Cancel a running process

[wkilgroe]

I have a loop that runs through and updates excel sheets. The form that calls this process has a cancel button on it, but it is useless because the click events are ignored while the loop is running. Any ideas how I can make the cancel button work? Btw, I have already used DoEvents to set the focus back to the cancel button on the form.

 

[GKProgrammer]

Hi wkilgroe,

You say you are already using the DoEvents command but I have used this to get my cancel button to work properly while another process is being ran. I did something like the following:

While
cntLine = cntLine + 1

Do something.....

If cntLine = 10 Then
cntLine = 0
DoEvents
End If
Wend

With this your cancel button should work properly when clicked.

Regards,
gkprogrammer

 

[CajunCenturion]

One approach is use a global variable which is set to false. In the Click event, set the variable to True, and check the value of the variable inside the loop.

Dim NotCancel as Boolean

Sub WhichHasTheLoop

NotCancel = False
Do While <your condition> and (NotCancel = False)
<your loop code>
Do Events
Loop

End Sub

Sub CancelButton_Click

NotCancel = True

End Sub



Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[wkilgroe]

Thanks, I used a combination of these suggestions and its working now.