Userform exit

[ShoYnn]

I have a simple userform that is used to either change the dates of a scheduled job or delete it. For the text boxes the user would enter the new dates, I have a private sub that runs when the text box is exited to verify it is a date. Everything works perfectly, except if the focus is on a text box, if the user closes the form via the X button it still pops up the message from the text box exit private sub. How would I be able to allow the user to close the userform without fear of the message box popping up? Thanks!

Also, this is on a government computer, so I can't upload stuff the fancy ways, if needed I will have to take pictures of it.

 

[igold]

How about this- placed in the userform module... You will need another CommandButton for the user to close the form with

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If CloseMode = vbFormControlMenu Then
        Cancel = True
        MsgBox "Please use the ""EXIT"" button to close the form", vbOKOnly, "VIZCAYA"
    End If
    
End Sub

 

[ShoYnn]

How about this- placed in the userform module... You will need another CommandButton for the user to close the form with

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If CloseMode = vbFormControlMenu Then
        Cancel = True
        MsgBox "Please use the ""EXIT"" button to close the form", vbOKOnly, "VIZCAYA"
    End If
   
End Sub

I was kind of thinking of forcing a close/cancel button, but I was also curious if there was a way without that. I'll give this a try when I get back to work tomorrow and let you know how it goes!