Bypass the unload event if the Exit button is clicked?

[jsimons]

If the user accidentally clicks the X close button I'm using the
following code in the form unload event to stop them from accidentally
quitting Access.

Private Sub Form_Unload(Can cel As Integer)
Select Case MsgBox("Are you sure you want to exit?", vbYesNo)
Case Is = vbYes
Exit Sub
Case Is = vbNo
Cancel = True
End Select
End Sub

However if they use the EXIT button on the form I would like Access to
Quit without stopping the user and asking them if they want to exit
access.

Is it possible to bypass the unload event if the Exit button is clicked?

[lesperancer]

when your exit button is clicked, change its caption from Exit to
Exiting
then in your unload event, bypass your current prompt if caption =
Exiting

[Tim Marshall]

js*****@bright. net wrote:

If the user accidentally clicks the X close button I'm using the
following code in the form unload event to stop them from accidentally
quitting Access.

Private Sub Form_Unload(Can cel As Integer)
Select Case MsgBox("Are you sure you want to exit?", vbYesNo)
Case Is = vbYes
Exit Sub
Case Is = vbNo
Cancel = True
End Select
End Sub

However if they use the EXIT button on the form I would like Access to
Quit without stopping the user and asking them if they want to exit
access.

Untried, but what about dimming a boolean at form level:

booOkToLeave as Boolean

Set it to false in the form on open event.

enclose your procedure above in:
Private Sub Form_Unload(Can cel As Integer)
If booOkToLeave = False then

end if
End Sub

Then, on your exit button, include:

booOkToLeave = True
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me