Exiting a Routine

[lenze]

I have an On Open procedure that calls a Userform with instructions. On this UserForm I have two command buttons. One is labeled continue and hides the UserForm. I would like the other one to allow the user to hide the user form and Exit the On Open procedure. Exit Sub only exits the OnClick routine. How do I exit the On Open routine?

 

[Mudface]

Not quite sure what you mean, but would 'End' do for you?

 

[Legacy 98055]

Hi Lenze.
This assumes your form is being shown modally.
Dim a public boolean in a standard module.
for ex. Public ExitNow as Boolean
Put a line such as this in your OnOpen procedure immediately following your Show statement:

If ExitNow then Exit Sub

In your cmdExitOnOpen_Click event, commandbutton to end the OnOpen procedure, set ExitNow to = TRUE.

Tom
This message was edited by TsTom on 2002-10-04 10:23

 

[lenze]

So simple I overlooked the obvious. Thanks Mudface

Edit:
Tom:
For what I need the End statement seems to work, but I also like your approach. I do have a need for this is a similar application.
Thanks
This message was edited by lenze on 2002-10-04 10:28

 

[Legacy 98055]

Hi Lenze.
The end statement will unload your userform.
You mentioned that you only wanted to hide it. The end statement should be used sparingly.
Tom

PS Search the "End Staement" in VBA help and see the remarks at the bottom.
This message was edited by TsTom on 2002-10-04 10:44