selam

alttaki kodları açıklamarının bulunduğu olay yordamlarına yazın
formda 5 dakika içinde fare hareketi olmaz ise form kendiliğinden kapanacaktır


Public sayi As Integer
'formu ayrıntısının fare raşındığında olay yordamına
Private Sub Ayrıntı_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sayi = 1
Form.TimerInterval = 50000
End Sub
'///////////////////////////////////////////////////////////////////////////////////////////
'formun zaman dolduğunda olay yordamına
'zaman kısmını 50000 yani 5 dakika gibi
Private Sub Form_Timer()
If sayi = 0 Then
DoCmd.Close
Else
sayi = 0
End If
End Sub