Bypass QueryClose on Form

[AlexanderBB]

I want to use the Form X Close event and btnSave event to run the same prompt e.g

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Select Case MsgBox("Save changes", vbYesNoCancel + vbQuestion)
        Case vbYes
            Stop
        Case vbNo
           Unload Me
        Case Else
            Cancel = True
    End Select
End Sub

Private Sub btnSave_Click()
    UserForm_QueryClose 0, 0
End Sub

The problem is "Unload Me' runs the QueryClose again.
What might be the correct way to handle this? Is CloseMode an option ?

 

[AlexanderBB]

Sorted.. used a boolean. Unless a 'better' way?

 

[smozgur]

Sorted.. used a boolean. Unless a 'better' way?

You don't need to call QueryClose even procedure, it will be triggered as soon as the form is closed anyway.
Try the following code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Select Case MsgBox("Save changes", vbYesNoCancel + vbQuestion)
        Case vbYes
            MsgBox "Saving the changes first..."
        Case vbNo
            ' This condition is not necessary, just for testing purposes
            MsgBox "Closing without saving the changes..."
        Case vbCancel
            Cancel = True
    End Select
End Sub

Private Sub btnSave_Click()
    Unload Me
End Sub