Option Compare Database

Const sure As Long = 60 '1 dakika
Const saniye As Long = 1000 'saniye cinsi

Dim say As Byte

Private Sub Ayrýntý_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    say = 1
End Sub

Private Sub Form_Load()
    TimerInterval = saniye
End Sub

Private Sub Form_Timer()

    Static ExpiredTime
    Dim ExpiredMinutes
    
    On Error Resume Next
  
    If say = 1 Then
        ExpiredTime = 0
        say = 0
    Else
        ExpiredTime = ExpiredTime + Me.TimerInterval
    End If

    ExpiredMinutes = (ExpiredTime / saniye)
    Me.txtSay.Value = sure - ExpiredMinutes
    
    If sure - ExpiredMinutes = 30 Then
        Beep
'        MsgBox "uyuma calis...", vbInformation, "calisss"
        'msgbox yerine emailde yollandirilabilir
'        ExpiredTime = 0
    End If
    
    If sure - ExpiredMinutes <= 0 Then
          Beep
          MsgBox "uyuma calis...", vbInformation, "calisss"
          'Msgbox yerine dosya kapatma kodu eklenebilir.
          ExpiredTime = 0
    End If
  
End Sub