Pretpostavljam da imas neku glavnu formu koja je stalno otvorena,tipa Swichboard ili slicno.Iskoristi kod u prilogu ako nema pokreta misom ili klik dugmeta vise od 60min,onda zatvori aplikaciju.Ja sam probao da Time interval stavim na 60000(na 1min da ne bih cekao 60min hehe) i radi bez problema.
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*********************
Moras malo da prepravis kod da bi radio na 60min,jer ovaj kod radi ako nema aktivnosti 30min.
Jednog dana...