END statement

I use END statement when the user press the Cancel button on my vbYesNoCancel MsgBox.
But when I use the End statement it clear all my variables.
But I wanna preserve the value of my variables. And I use the Stop statement instead. But it doesen't work? Why?

Don't put any code in CANCEL event...

I hope that you don't want to close you app with END...

Dim intYesNo as Integer

intYesNo = msgbox ("TEST",vbYesNoCancel)

if intYesNo = vbYes then

' Do something

endif

if intYesNo = vbNo then

' Do something

endif

==============

If I don't put any code in CANCEL event my code continue to next sub...

if intYesNo = vbCancel then

Exit sub

end if

Do want to CLOSE the app or just get out of that sub...???

if you just want to get out of sub then use GARY's code...

or post here what exactly you are looking for...

Cheers..........

I don't want to CLOSE the app...only STOP the current subs and functions and when I use the End statement it clear all my variables.
But I wanna preserve the value of my variables...

Dim I As Integer

I = MsgBox("TEST", vbYesNoCancel)
If I = vbYes Then
MsgBox "YES"
End If

If I = vbNo Then
MsgBox "NO"
End If

If I = vbCancel Then
End
End If

Quote:

---

Originally posted by Gary007
if intYesNo = vbCancel then

Exit sub

end if

---

Use this. If you want to close your app when the user clicks Cancel use this:

VB Code:

if intYesNo = vbCancel then 
Unload me
end if

Do you mean you want to close you application, but want to preserve the value of your variables?

If you close an application, the memory will be cleared, so if you want to save them, you will have to write them to disk somehow, and read them in when you start the application again.

There are numerous ways to save something to disk, like a database, the registry, a text file, an XML file etc.

I don't want to CLOSE the app...only STOP the current subs and functions and when I use the End statement it clear all my variables.
But I wanna preserve the value of my variables...

You can only stop the current sub.

If you want to jump out of the calling sub then you have to use parameters.

If the value given is from jump out of sub (Exit Sub)
then exit the calling sub too.

Hope this clears your mind.

If not post some code to show the place you are trying to exit

Two things :

First : Don't use END.

Use :

VB Code:

Dim frm As Form
    
    For Each frm In Forms
        
        Unload Me
        
        Set frm = Nothing
        
    Next

Second : How do you want to store the variables? As mentioned, there are many different options...

VB Code:

If MsgBox("This is the message" vbYesNoCancel, "Title") = vbCancel Then
  Exit Sub
End If

If the variables you want to preserve are declared in this sub they won't be preserved, you will have to declare them in the General Declarations.