Close Button

[cbrsix]

Is it possible to have a message box appear when the databases' (not on a form or report) close button is clicked? I want it to say something like "Are you sure you want to exit? yes/no" with the yes button closing the db and the no button returning to main navigation menu.

[June7]

I don't think can associate code directly with the application close button. Review http://visualbasic.ittoolbox.com/gro...e-event-860153

[RuralGuy]

Actually, if you load an invisible form first with say the Autoexec macro, it will be the last to close when the user "exits" the application in any manner (other than three finger salute of course). You can use the UnLoad event of this invisible form, which is cancellable, to ask your question and abort the exit.

[RuralGuy]

Hmm...sorry June. I should have followed your link before posting since that is exactly the advice it gave.

[cbrsix]

I looked at the link and I'm unable to follow what they are suggesting. Can you tell me what you would put in the Unload event of the form?

[RuralGuy]

Something like:

Private Sub Form_Unload(Cancel As Integer)
   If MsgBox("Are you sure you want to exit?", vbCritical + vbYesNo) = vbNo Then
      Cancel = True
      DoCmd.OpenForm "YourNavForm"
   End If
End Sub

[cbrsix]

Thank you. That works perfectly.

[RuralGuy]

Glad we could help.