تايمر لاغلاق القاعدة ويفتح نموذج الدخول

[alzahrani2014]

السلام عليكم ومساءكم معطر

اريد تايمر يغلق القاعده بعد 5 دقايق من عدم الاستخدام ويفتح مباشرة نموذج الدخول بالرقم السري اسمه frmlogin 

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

مع شكري وتقديري سلفا

[ناقل]

ممكن مثالك ليتم وضع الاكواد فيها ....

[ناقل]

Option Compare Database
Dim MyTime As Date
Private Sub Form_AfterUpdate()
MyTime = Now()
End Sub
Private Sub Form_Current()
MyTime = Now()
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MyTime = Now()
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MyTime = Now()
End Sub
Private Sub Form_Open(Cancel As Integer)
MyTime = Now()
End Sub
Private Sub Form_Timer()
If MyTime = Empty Then MyTime = Now()
If Now() >= DateAdd("n", 1, MyTime) Then

    DoCmd.Close
    DoCmd.OpenForm "LogIn"
    End If
End Sub

 

[alzahrani2014]

هذا مثالي طال عمرك

مع الشكر والتقدير

 

asd.accdb

[ناقل]

تفضل ....

 

asd.accdb

[alzahrani2014]

Fantastic

Works well

شكرا لك @ناقل

تتبعت كثير من المواقع الاجنبية لكن ما طرحته استاذ ناقل سهل وجميل ... شكرا لك

[alzahrani2014]

للاسف  @ناقل....

صار يعمل على طول .... اذا انتهى العداد وانا اعمل يقفل البرنامج  🤥

[ناقل]

منذ ساعه, alzahrani2014 said:

للاسف  @ناقل....

صار يعمل على طول .... اذا انتهى العداد وانا اعمل يقفل البرنامج  🤥

جرب كده .....

 

asd.accdb

[alzahrani2014]

لازال ياقلبي 🤷‍♂️

[لاتبخل]

سلام

هذا موضوع 

 

[د.كاف يار]

تفضل هذا التعديل

عند عدم الاستخدام لمدة خمسة دقائق سيتم اغلاق الصفحة الرئيسية و فتح صفحة تسجيل الدخول

لكن اذا تم تحريك الماوس سيتم تصفير العداد و اعادة الحساب من جديد

asd (3).accdb