Code:
Option Compare Database 
Option Explicit

Dim lngActivityCounter As Long

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     ' Reset the timer
     lngActivityCounter = 0
     Me.doomsday.Caption = 15
   Me.doomsday.Visible = False' stavi najpre true da vidis sta se desava
End Sub



Private Sub Form_KeyPress(KeyAscii As Integer)
     ' Reset the timer
     lngActivityCounter = 0
     Me.doomsday.Caption = 15 'neka labela na toj glavnoj formi nayvana doomsday
     Me.doomsday.Visible = False
End Sub

Private Sub Form_Timer()
     'NOTE: The Timer Interval = 60000 (1 minute)
     'If no activity by user for 30 minutes, then quit application
    lngActivityCounter = lngActivityCounter + 1
     '30 minutes = 1800 sec (30 min x 60 sec/min)
     'After 30 minutes (1800 sec via: 20 min x 60 sec/min) of no activity,
     'close application completely
     If lngActivityCounter >= 30 Then
         Beep
         Me.doomsday.Visible = True
             If Me!doomsday.Caption = 0 Then
                DoCmd.Quit acQuitSaveAll
             Else
               ' This counts down 15 seconds before quiting
                Me!doomsday.Caption = Me!doomsday.Caption - 1
             End If
     End If
End Sub
'**************Code End*********************