Set Timer

[Drol]

I need to time a test for 30 mins, how to I get the timer to run from a Cmd Button?

 

[mtek13]

To set a timer to run on CMDButton Click

Timer1.Enabled = true

 

[RonVaught]

Private Sub Command1_Click()
' Timer code will fire once a second. Interval is milliseconds
Me.Timer1.Interval = 1000
End Sub

 

[johnwm]

Don't forget that the timer can only be set up to 65535 max (a little over a minute).
try this:

In the Form load (or wherever you want to start the timer):

Timer1.Interval = 60000 ' 1 minute
Timer1.Enabled = True

and for the Timer event:

Private Sub Timer1_Timer()
Static lngCounter As Long
lngCounter = lngCounter + 1
If lngCounter = 30 Then
MsgBox "30 mins is up"
Timer1.Enabled = False
lngCounter = 0
End If
End Sub

Let me know if this helps
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'There are 10 kinds of people in the world: those who understand binary, and those who don't.'