Aborting the End command when Cancel is pressed in the Dialog 2

[james0264]

How can I abort the End command when Cancel is pressed in the Dialog that is presented in the Form_Unload Sub? Many thanks.

My code I am currently using is as follows. The code at the moment ends the program even though the Cancel button was pressed.

Private Sub Form_Unload(Cancel As Integer)
  If MsgBox("Are you sure?", vbOKCancel) = vbOK Then
    End
  Else
    'Cancel the unloading
  End If
End Sub

 

[HarleyQuinn]

Try:

Cancel = 1

Hope that helps

HarleyQuinn
---------------------------------
Get the most out of Tek-Tips, read FAQ222-2244 before posting.

 

[HarleyQuinn]

Sorry, forgot to say that the above code goes in place of your current

'Cancel the unloading

Hope this helps

HarleyQuinn
---------------------------------
Get the most out of Tek-Tips, read FAQ222-2244 before posting.

 

[james0264]

Hey! Nice one HarleyQuinn. Here's a star.

 

[HarleyQuinn]

Thanks, glad to help

HarleyQuinn
---------------------------------
Get the most out of Tek-Tips, read FAQ222-2244 before posting.

 

[strongm]

james0264,

don't wish to be rude, but did you actually check the Vb documentation for Unload? It is pretty specific ...

 

[TysonLPrice]

This is a handy peice of code:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    Select Case UnloadMode
        Case vbFormControlMenu
            MsgBox "The user chose the Close command (the ""X"") from the Control menu on the form."
        Case vbFormCode
            MsgBox "The Unload statement is invoked from code."
        Case vbAppWindows
            MsgBox "The current Microsoft Windows operating environment session is ending."
        Case vbAppTaskManager
            MsgBox "The Microsoft Windows Task Manager is closing the application."
        Case vbFormMDIForm
            MsgBox "An MDI child form is closing because the MDI form is closing."
        Case vbFormOwner
            MsgBox "A form is closing because its owner is closing."
    End Select

End Sub

 

[tsdragon]

Thanks Tyson. Very useful.

Tracy Dryden

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.