Stop code execution but keep form open

[miicker]

Hi Everyone,

I have a UserForm where a user can check some check boxes and fill in some field. I have one inputfield where the users enters a number, when the user enters 0, I want a msgbox displayed, and when the user hits "ok" I wan't the form to be still open, but the code to stop executing. I've tried this with an End, Exit Sub, etc. The problem is that the code i'm running is a function, which i'm calling in another piece of code. So when I use "Exit Sub", it still executes the rest of the code.

How do I fix this?

 

[Norie]

How is this function being executed?

 

[Paul Ked]

I've never shown a form from a function, until now!

Just tried this (form.show in the function):

Private Sub TextBox1_AfterUpdate()
    If TextBox1 = "0" Then
        TextBox1 = ""
        TextBox1.SetFocus
        MsgBox "Can't be Zero.", vbInformation, "No no..."
        Exit Sub
    End If
    'Do your other stuff here
End Sub

and it halted the function without a hitch. Is your user form ShowModel set to True? That may have an impact but I haven't tried it.

 

[miicker]

Thanks for the help, I managed to fix it this way:
Ouside sub:

Public subfail as Integer

Fisrt sub:

Sub 1
'some code
Call Sub 2
If subfail = 1 Then
Exit Sub
End If
'more code
End sub

Second sub:

Sub 2
If 'Some check = False Then
Subfail = 1
Exit Sub
Else
'some code
End If
End sub

This way the form stays opened

 

[Paul Ked]

Interesting, but don't forget to set subfail to 0 at some point!