تحديد وقت معين تغلق فيه قاعدة البيانات عند عدم الاستخدام

[كوماندير]

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

 

اعزائي الكرام

اريد كود بحيث عند التوقف عن استخدام قاعدة البيانات اكسس لمدة 10 دقائق ان يتم اغلاق البرنامج ؟

[jjafferr]

وعليكم السلام

 

تفضل:

برنامج جاهز:

http://www.peterssoftware.com/isd.htm

 

وكود من

 https://www.experts-exchange.com/questions/28397475/Shutdown-Access-Database-After-Certain-Idle-Time.html

Private Sub Form_Load()
   
   ' start the count down in 3 minutes (60 x 3 = 180)
   Me.Tag = 180
   
   ' interval is every second
   Me.TimerInterval = 1000
   
End Sub

Private Sub Form_Timer()

   On Error Resume Next
   '**********************************
   ' Bail out when count down is zero
   '**********************************
   
   Me.Tag = Val(Me.Tag) - (Me.TimerInterval / 1000)
   
   Me.Caption = "Form will exit in " & Me.Tag & " seconds"
   
   If Val(Me.Tag) <= 0 Then
      DoCmd.Quit
   End If

End Sub

.

جعفر

[كوماندير]

جيد

لكن ياليت ان يكون هناك كودا لايعتمد على اي نموذج وانما يعتمد على قاعدة البيانات كاملة .

 

ياترى هل هذا ممكنا ؟

[أبو نادر]

ولا يهون اخوي جعفر .. هنا كود اخر

اضف نموذج  ..   DetectIdelTime  .. بالكود الموجود فيه لبرنامجك

اضف كود فتحه ( مخفي ) في نموذج البدأ ...

 

واستفسارك الاخير لو فيه طريقه بتوكن ميه ميه

اغلاق البرنامج عند عدم التنشيط.rar