make a form, add a check box: chkTimer
in the form property set the TIMERINTERVAL = 0
the timer runs on ticks (millisecs)
1 second = 1000 ms
so 30 min = 1800000
in chkTimer.afterupdate event , to turn the timer ON
Code:
If chkTimer.Value Then
Me.TimerInterval = 1800000
Else
Me.TimerInterval = 0
End If
in the form property ON TIMER, (this is what runs when the timer hits its count)
run your event; either macro or query
Code:
Private Sub Form_Timer()
docmd.runMacro "mAddRecord"
End Sub
be sure the macro turns off warnings or youll get that dang message box
setwarnings false