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

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

الكثير منا يرغب بان يقوم البرنامج باجراء معين اذا لم يتم استخدامة لفترة من الوقت، الكود التالي سيقوم بالغرض المطلوب ويجب وضعة في
Form timer 
وكما يلي

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

code:

Private Sub Form_Timer()

ic ExpiredTime

Dim ActiveFormName As String

Dim ActiveControlName As String

Dim ExpiredMinutes

On Error Resume Next

ActiveFormName = Screen.ActiveForm.Name

If Err Then

ActiveFormName = "No Active Form"

Err = 0

End If

ActiveControlName = Screen.ActiveControl.Name

If Err Then

    ActiveControlName = "No Active Control"

    Err = 0

End If

 

If (PrevControlName = "") Or (PrevFormName = "") _

Or (ActiveFormName <> PrevFormName) _

Or (ActiveControlName <> PrevControlName) Then

    PrevControlName = ActiveControlName

    PrevFormName = ActiveFormName

    ExpiredTime = 0

Else

    ExpiredTime = ExpiredTime + Me.TimerInterval

End If

ExpiredMinutes = (ExpiredTime / 1000) / 60

If ExpiredMinutes >= IDLEMINUTES Then

ExpiredTime = 0

IdleTimeDetected ExpiredMinutes

End If

End Sub

-----------------------------------------------------------------------------------------------------------------

Sub IdleTimeDetected(ExpiredMinutes)

DoCmd.quit ' =============➔ الكود الذي نريد تنفيذه ( في المثال سيتم الخروج من البرنامج)  
End Sub