Exit or Quit Access from Switchboard

G

Guest

hi
I use this:
Private Sub cmdExit_Click()

If MsgBox("This action will close Access. Do you still
wish to continue?", vbYesNo, "Exit Application Warning") =
vbYes Then
DoCmd.Close acForm, "frmMainIntro", acSaveYes
DoCmd.Close acDefault, "MDB40.mdb", acSaveYes
DoCmd.Quit acQuitSaveNone
Else
MsgBox ("Exit Application Action Aborted.")
End If

End Sub
 
J

Jeff C

in the switchboard manager...there are command controls for "quit
application" build a new control button using this...it works just fine..
 
Top