stop execution

[al]

2nd post please help
In a form I put a commmandbutton with cancel and
default=true so when the program is running I could stop
the execution, but it does not work, I try click and
mouse-up subs. It only works after the code has finish
executing. What am I doing wrong? Can you give me an
example of how can I accomplish this task?
Thanks in advance
Al
..

 

[Steve Smallman]

Al,

Your code is executing, and during execution, you click on the Cancel
button. Your form is responding to events in the sequence in which they
occur.

Check out the DOEVENTS function.

Steve

 

[Bob Kilmer]

What is your code doing that you want to cancel? Is it looping over a range
of values? It would help if you would post an example.

 

[Bob Kilmer]

Create a form with two buttons and drop this into its code module.

Option Explicit
Private mCancel As Boolean

Private Sub CommandButton1_Click()
Dim n
Me.MousePointer = fmMousePointerHourGlass
For n = 1 To 10000
'long running process
Debug.Print n
DoEvents
If mCancel = True Then Exit For
Next n
mCancel = False
Me.MousePointer = fmMousePointerDefault
End Sub

Private Sub CommandButton2_Click()
mCancel = True
End Sub

Private Sub UserForm_Initialize()
mCancel = False
End Sub