Private Sub cmdQuit_Click()
On Error GoTo Err_cmdQuit_Click
If MsgBox("Are you sure you wish to Exit the Database Application?", vbYesNo, "QUIT APPLICATION") = vbYes Then
DoCmd.Quit
Else
End If
Exit_cmdQuit_Click:
Exit Sub
Err_cmdQuit_Click:
MsgBox "Please contact Manager and report issue: " & vbNewLine _
& Err.Number & Err.Description & vbNewLine _
& "cmdQuit Click"
Resume Exit_cmdQuit_Click
End Sub
"I know what you're t'inkin', ma petite. Dat Gambit... still de suave one, no?"