How to cancel the OnTime Method? Thanks NateO!

[Legacy 98055]

Hi Guys.

In the following procedure, when the user places a check in in this CheckBox, a procedure is run every 60 seconds.

The code continues looping until the checkbox is unchecked.

What is the code needed to cancel the OnTime method?

The help files for the OnTime method only give an example for a static time, not a loop.

This is the line I am using in my attempt to cancel the method.<pre>

Application.OnTime Procedure:="RefreshDeTime", Schedule:=False</pre>

Thanks,
Tom<pre>


Private Sub CheckBox1_Click()

Do Until CheckBox1.Value = False
Application.OnTime Now + TimeValue("00:00:60"), "RefreshDeTime"
Sheet1.Range("D2").Value = Now
ActiveWorkbook.save
Loop
Application.OnTime Procedure:="RefreshDeTime", Schedule:=False

End Sub</pre>
This message was edited by TsTom on 2002-04-26 15:12
This message was edited by TsTom on 2002-04-26 15:41

 

[NateO]

Hi Ts, you may want read Chip's perspective on the desirability of storing the time in a variable (bottom half).

http://www.cpearson.com/excel/ontime.htm

_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue">O</font></font></font>
This message was edited by NateO on 2002-04-26 15:45

 

[Legacy 98055]

Thanks NateO
Works just as I needed..
Tom<pre>


#########################################
Standard Module TimerRefresh
#########################################

Public RunWhen As Date

Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, 5)
Application.OnTime earliesttime:=RunWhen, procedure:="RefreshDeTime", _
schedule:=True
End Sub

Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=RunWhen, procedure:="RefreshDeTime", _
schedule:=False
End Sub

Sub RefreshDeTime()
Sheet1.Range("D2").Calculate
ActiveWorkbook.save
StartTimer
End Sub
#########################################








#########################################
Class Module Workbook
#########################################
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopTimer
End Sub
#########################################








#########################################
Class Module Sheet1(PSRT Tracking)
#########################################
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
RefreshDeTime
Else
StopTimer
End If
End Sub
#########################################</pre>
This message was edited by TsTom on 2002-04-26 15:42

 

[NateO]

Glad to hear you're up and running. Have a great weekend! Say, neat trick changing the post title, is this an option for an original poster? I'm off to the test section....

_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue">O</font></font></font>
This message was edited by NateO on 2002-04-27 15:18