Private Sub Form_Timer()
Static LastFormName As Variant
Static LastControlName As Variant
Static IdleTime As Variant
Dim N As Integer
Dim ActiveFormName As Variant
Dim ActiveControlName As Variant

On Error Resume Next
N = 120
'n- kol-vo minut cherez kotoroe zakrivaetsa applikazia , esli polzovatel ne rabotaet
ActiveFormName = Screen.ActiveForm.Name
ActiveControlName = Screen.ActiveControl.Name

On Error GoTo 0

If LastFormName <> ActiveFormName Then
LastFormName = ActiveFormName
IdleTime = 0
End If

If LastControlName <> ActiveControlName Then
LastControlName = ActiveControlName
IdleTime = 0
End If

IdleTime = IdleTime + Me.TimerInterval / 1000

If IdleTime = 60 * N Then
IdleTime = 0
DoCmd.Close acForm, ActiveFormName, acSaveYes
DoCmd.Quit
End If

End Sub


TimerInterval= 1000 у формы
у меня это висит на главной форме, если не работают то закрываю аппликацию вообще