Option Compare Database
Option Explicit
Private TotalTime As Integer
Private Sub Form_Timer()
Me.lblShowSeconds.Caption = TotalTime ' Show on label
TotalTime = TotalTime - 1 ' Decrement
If TotalTime = 0 Then
Me.TimerInterval = 0 ' Turn off the form's timer if it's reached 0
End If
End Sub
Private Sub lblShowSeconds_Click()
TotalTime = 10 ' Set it to 10 so it decrements every second in Timer event
Me.TimerInterval = 1000 ' Run every second
End Sub