screen saver

[redial2020]

مدتی است که به این مسئله فکر میکنم که آیا میتوان در اکسس کدی نوشت که بوسیله آن اگر کاربر مدتی با باز بودن برنامه با آن کار نکرد بر نامه خود بخود quit شود!
همانند کاری که ما در screen saver ویندوز میتوانیم انجام دهیم -
یعنی آیا اکسس توانایی فهمیدن این را دارد که در حال حاضر کار بر با کامپیوتر کار نمیکند !
متشکرم

[moustafa]

اگه اکسس خودش ابرازی مثل تایمر وی بی داشت براحتی میشد اگه بخواهیم از رویداد ان تایم فرمها استفاده کنیم نیاز به یه مقدار الگوریتم وتحلیل داریم وانگیزه که چه کاربردی داره؟

[redial2020]

moustafa
متشکرم

در مورد انگیزه در مواردی کار برد داره که شما میخواهید اگر کاربر در زمانی که با برنامه کار نمی کنه و پشت سیستم نیست فراموش کرد ;که از برنامه خارج بشه با توجه به اهمیت اطلاعاتتون خیالتون راحت باشه که برنامه خود بخود quit شده و کس دیگری با قرار گرفتن در پشت سیستم نمی تواند به اطلاعاتتون دسترسی داشته باشه و می توان بجای quit دستور shutdown ویندوز را داد و... انصافاً فکر میکنم قابلیت خوبیه
و ضمناً من شنیده ام که با کدهای اسکی میتوان نوشت !

[moustafa]

و ضمناً من شنیده ام که با کدهای اسکی میتوان نوشت

بهر حال بنوعی به زمان وابسته است تا چه مدت کاربر کلیدی را فشار نده
من فعلا این راه به ذهنم خطور کرد با فشار هر کلیدکیبرد ساعت سیستم در یه جدول ثبت بشه وفاصله دو رکورد متوالی محاسبه بشه هر جا از مدت معینی تجاوز کرد از برنامه خارج بشه
شاید راه خیلی بهتر وساده تر وحتی توابع مخصوصی باشه که من با ان اشنا نیستم

[moustafa]

البته دوتا رکورد بیشتر نخواهیم داشت هر کلید که فشرده میشه رکورد اول حذف میشه رکورد مانده میشه رکورد اول ورکورد جدید میشه رکورد اخر حالا تفاضل این دو رکورد مورد بررسی قرار میگیره

[moustafa]

در فرم استارت اپ دوتا تکس باکس گذاشتم (text1,text2)وخاصیت visible هردو no
وقتی کلیدی فشرده میشه(keydown ,keyup ,keypress,...)(keypreview=yes)

text1=time()

در رویداد on time فرم :(1000=timer interval)

text2=time()-text1

if text2>1 then 

docmd.quite

end if 

فقط فرم استارت اپ هیچ وقت بسته نمیشه وhide میشه
رویداد onopen فرم یادتون نره

text1=time()

میتونید رویداد موس را هم بهش اضافه کنید
رویداد keydown با تنظیم keypreview=yes فکر کنم کافی باشه

[redial2020]

moustafa
از پاسخ شما متشکرم
خیلی عالی بود امتحان کردم و جواب داد.
فکر نمیکردم به این سرعت به جواب برسید.
راه ساده اما کار بردی
مهم این نیست که شاید راه دیگری نیز داشته باشه مهم اینه که در حال حاضر به جواب رسیدیم.
بازم از پاسختون متشکرم
ضمناً در صورت امکان کد hide شدن فرم را برایم بنویسید .

[moustafa]

مرسی دوست عزیز
ضمن اینکه نکته جالبی وکاربردی از لحاظ امنیتی بود باعث شد من به چیزهای دیگه اونو تعمیم بدم مثلا در تاریخهای از پیش تعیین شده یه سری فرمها باز شوند یا گزارشاتی چاپ شودو ....
برای مخفی شدن فرم استارت اپ در اخرین رویداد مربوط به ان
Me.Visible=False

[redial2020]

moustafa
از پاسخ و فایل نمونه متشکرم .

اما یک سوال جالب !
آیا میتوان در هنگام اجرا شدن برنامه محیط اکسس و Application برنامه از دید کاربر MINIMIZE و یا در صورت امکان HIDE شود .

من modules ذیل را در این مورد دارم .

Option Compare Database
Option Explicit
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

()Public Function HideApplicationWindow
Dim dwReturn As Long
(dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED
End Function

در باز شدن فرم کد
HideApplicationWindow


نتیجه:


که در هنگام اجرا شدن برنامه و با باز شدن اولین فرم Application برنامه را MINIMIZE نموده .

اما دارای مشکلاتی است.
1- بعد از بازشدن اولین فرم دیگر بقیه فرم ها در این حالت قابل دیدن نیستند
و در حالت عادی برنامه میتوان آنها را دید .
2- اگر در این modules بخواهیم از خاصیت HIDE شدن Application استفاده کنیم
دیگر حتی فرم اول هم دیده نمی شود !!.

متشکرم

[moustafa]

آیا میتوان در هنگام اجرا شدن برنامه محیط اکسس و Application برنامه از دید کاربر MINIMIZE و یا در صورت امکان HIDE شود .

منظورت چی ؟ ساده تر توضیح بده وهمینکه بگو چه فایده ای دارد؟

[شاپرک]

خیلی جالب بود
ممنون

[moustafa]

مرسی شاپرک

[redial2020]

moustafa
برنامه حقوق و دستمزدی که قبلاً در سایت گذاشته بودی دیدم
خیلی جالب و آموزنده بود متشکرم .

اما در مورد مبحث قبلی

تا بحال حتماً از برنامه های اتوران استفاده کرده ای همانند king در اکثر این برنامه ها با اجرای برنامه کل فضای دسکتاپ اشغال نمی شود و فرم برنامه fullscreen نمی باشد . منطور من اجرای برنامه به یه همچین صورتی است.

و در صورت hide شدن کل منوی برنامه و روش دستکاری logo شروع اکسس که قبلاً در این سایت نه بطور کامل عنوان شده بود و تغییر آیکون اجرای برنامه
حاصل شبیه یک برنامه exe می شود .

و در کل میتوان آن را به صورت یک خلاقیت در برنامه نویسی با اکسس دانست.
البته انتطار ندارم که وقت روی این موضوع صرف کنی .

یک سوال دیگر

آیا در اکسس امکان استفاده از فایلهای صوتی وجود دارد و آیا بغیر از خاصیت beep در اکسس
خاصیت صوتی دیگری وجود دارد یا خیر . متشکرم .

moustafa
بازم از برنامه ای که در سایت گذاشته بودی ممنونم و به دوستان دیگر هم توصیه میکنم یه نگاهی بهش بندازن .

[moustafa]

درباره سوال اولتون من بشخصه کار نکردم
من ترجیح میدم که بیشتر در مورد مباحث شبکه -اکسس +اس کیو ال سرور - اکسس در اینترنت -visual studio tools for office ودر اخر موارد exe کردن فایل کار ومباحثه کنیم
درباره فایل صوتی که سهله فایل تصویری با insert / oleobject/Windows Media Player
در نمای طراحی درURL ادرس فایلت بذارالبته میتونی هر شی دیگری رابجای مدیا پلیر وارد کنی

[reza850101]

باسلام
ممکن است لینگ فایل حقوق ودستمزد آقامصطفی رابزارید که ماهم استفاده کنیم

[ykm145]

فرضیه جالبی بود

[ali_bagheri34]

باسلام
ممکن است لینگ فایل حقوق ودستمزد آقامصطفی رابزارید
از شما متشکر می شوم