devxlogo

Easy Confirmation

Easy Confirmation

Sometimes you want to give your users the chance to confirm that they wish to proceed with the closure of a form. Instead of using a MsgBox function and a Select Case statement, put this code in the Form_Unload event:

 Private Sub Form_Unload(Cancel as Integer)	Cancel = (MsgBox("Quit now?", vbOKCancel Or _		vbQuestion, "Confirmation Demo") = vbCancel)End Sub

Behind the Exit button and the Exit menu option, put a simple Unload Me. Whenever users choos to exit, they will be asked to confirm their action.

devx-admin

Share the Post: