Stop a procedure from running with a click event

[ajetrumpet]

Guys,

How do I terminate a procedure with the "OnClick" event of a button? I have a public function running through 60 short code loops, and I want to terminate the process if a button is clicked...

 

[pbaldy]

You can try adding

DoEvents

within your code, which yields control to the OS during code execution. Not sure if it will work in your situation, but it's worth a try.

 

[ajetrumpet]

I already have the DoEvents line in the Called Function, just like the help menu tells you to do.

I also used one of GHudson's samples from a previous thread, as he had copied the help menu's instructions and put it into practice.

I'm obviously doing a countdown here, but I want the countdown (the loop) to stop running if I push the cancel button...

 

[petehilljnr]

It may be possible to declare some public boolean variable and (as pbaldy said) use the DoEvents command:

Public RunLoop as Boolean

Sub MyLoop()

Do While RunLoop And .... (other condition)
    ...
    ...
    ...
    DoEvents
Loop
RunLoop = False

End Sub

On your form:

Private Sub MyStartButton_OnClick()
RunLoop = False
End 

Private Sub MyStopButton_OnClick()
RunLoop = True
Call MyLoop()
End

I haven't tried it but at a glance it looks like it could make sense?

Pete.

 

[pbaldy]

I wrote a stopwatch type thing in VB6 as practice. I'll try and dig it up to see what I did there.

 

[ajetrumpet]

OK Guys, I got it to work. Here is the Form's module:

Private i As String
  Private RunLoop As Boolean
[COLOR="Red"]****************************************[/COLOR]
Public Function CountdownDISPLAY()

i = "10"

  Do While RunLoop = True
    Me.lblseconds.Caption = i
      CountDown (1)
        i = i - 1

          If i = 0 Then
            RunLoop = False
          End If
  Loop

    DoCmd.Close

End Function
[COLOR="Red"]****************************************[/COLOR]
Private Sub cmdcancel_Click()

  RunLoop = False

End Sub
[COLOR="Red"]****************************************[/COLOR]
Private Sub Form_Load()

  Me.TimerInterval = 1000
    Me.lblseconds.Caption = "10"
      RunLoop = True

End Sub
[COLOR="Red"]****************************************[/COLOR]
Private Sub Form_Timer()

  Call CountdownDISPLAY

End Sub

What do you think of this? It works pretty darn good!