غلق تلقائى

[Abdelaziz Osman]

السلام عليكم ورحمة الله

هل يوجد إمكانية داخل برنامج الاكسيس من خلالها  يتم غلق البرنامج تلقائيا بعد 15 دقيقة

اقصد برنامج  المستخدم وليس قاعدة البيانات

[Foksh]

35 دقائق مضت, Abdelaziz Osman said:

اقصد برنامج  المستخدم وليس قاعدة البيانات

وضح هذه الجزئية ، وان شاء الله يوجد امكانيات 

[Abdelaziz Osman]

يوجد لقاعدة البيانات  برنامج اكسيس واجهة المستخدم الذى يحتوى على العديد من النماذج والاستعلامات وخلافة

هل يوجد كود معين  يغلق برنامج واجهة المستخدم بالكامل بعد وقت معين لان كثير من الوقت يترك المستخدم البرنامج فى وضع التشغيل دون العمل عليه 

تم تعديل فبراير 19, 2024 بواسطه Abdelaziz Osman

[kkhalifa1960]

تفضل استاذ @Abdelaziz Osman مرفق من مكتبتي .

Main_Form Close After 15 minute.rar

[Foksh]

وهذه مشاركتي البسيطة مع الأستاذ خليفة 

 

Sleep Mode.accdb

[Foksh]

سنشرح الفكرة والأكواد ..
بداية قمت بإنشاء متغيرين في أول الأكواد ، هما :-

Private Const TimeoutMinutes As Integer = 1

قمت بإنشاء متغير ثابت ( Const ) يسمى ( TimeoutMinutes ) ، ويتم تعيين قيمته إلى 1 تعبيراً عن دقيقة واحدة. ( وطبعاً تستطيع تغييره كما تريد )
سنستخدم هذا المتغير لتحديد المدة الزمنية (بالدقائق) التي يجب أن يمر ولا توجد فيها حركة للماوس حتى يتم اعتبار النموذج في وضع الخمول .

Private LastMouseMoveTime As Date

هنا سنقوم بإنشاء متغير خاص (Private) يسمى ( LastMouseMoveTime ) ويتم تحديده كنوع ( Date ) لأنه سيتم تخزين قيمة بصيغة وقت . يُستخدم هذا المتغير لتخزين الوقت الأخير الذي حدثت فيه حركة الماوس على النموذج.

 

الآن بدأت في حدث عند التحميل لتثبيت قيمتين ، هما :-

أولاً المتغير الخاص لتكون قيمته كمتغير الوقت الذي تم فتح النموذج فيه

LastMouseMoveTime = Now

ثانياً قمت بتشغيل الأمر كل دقيقة بالسطر التالي

Me.TimerInterval = 60000

وفي حدث تحريك الماوس ، قمت بجعله يأخذ قيمة الوقت الحالي مرة أخرى كحدث عند التحميل 
 

LastMouseMoveTime = Now

وفي حدث الوقت سيتم التحقق من أن الماوس لم يتم تحريكه منذ آخر قيمة تم تسجيلها في المتغير آخر حركة للماوس سابقاً ، بالكود التالي
تخطي الخطأ لأنه سيتقوم بمهمة تغيير في النموذج عند مرور الوقت ، فوجب تلافي الخطأ لأنه لن يؤثر على النموذج 
 

On Error Resume Next

سيتم التحقق من آخر مدة زمنية لتحريك الماوس ما إذا تخطيناها أم لا.
 

If Now - LastMouseMoveTime > TimeValue("00:00:" & TimeoutMinutes * 60) Then

اذا تحقق الشرط وكان الوقت المسجل في المتغير أقل بدقيقة من الوقت الحالي فستظهر رسالة 
ولك حرية حذفها بالمهمة التي تريدها .

 

MsgBox "تم تسجيل الخروج بسبب عدم تحريك الماوس", vbInformation

بعد الرسالة سيتم اغلاق آكسيس . طبعاً تستطيع هنا أن تعدل الأحداث كما ترغب .
 

DoCmd.Quit
    End If

 

تم تعديل فبراير 19, 2024 بواسطه Foksh

[Abdelaziz Osman]

بالفعل عمل رائع

لاستاذنا ,ومعلمنا @kkhalifa1960

واستاذنا ومعلمنا @Foksh

لسيادتكم أفضل الإجابات

ساستخدم كلا. الحلين

لكما منى كل التحية والتقدير

[ابوخليل]

10 ساعات مضت, Abdelaziz Osman said:

اقصد برنامج  المستخدم وليس قاعدة البيانات

ايضا من خلال امثلة الاخوة الكرام

بعد انقضاء الوقت

يمكنك اظهار شاشة الدخول والمطالبة بكلمة المرور ويبقى البرنامج غير مفعل في الخلفية