Exit Access

[enginerd477]

I have a button on my switchboard that say's exit. for now all it does
it exit the current application and keeps access open. i was wondering
if there was any code that when i press this button it causes access to
close as well.
Any help is greatly appreciated.

[pietlinden]

you mean

DoCmd.Quit

doesn't work?

[enginerd477]

pi********@hotmail.com wrote:

you mean

DoCmd.Quit

doesn't work?

My question is how would i get that into the button. i used the
database utilities to create the switchboard and i used the exit
application command in the switchboard manager. i was wondering how i
could get that code into the exit application or would i have to create
code in vba and then insert it into the command.

[Nick 'The Database Guy']

Hi Enginer

You have to select the button, right click on it, then select
properties.

Select the 'Event' bookmark tab, then click on the elipis (the three
fullstops at the end of the line). A vba windows should open and the
code in there should look something like:

Private Sub btnExit_Click()
Docmd.Close
End Sub

Change it to:

Private Sub btnExit_Click()
If MsgBox("Are you sure that you want to quit this database?",
vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
Docmd.Quit
End If
End Sub

Good luck,

Nick

enginerd477 wrote:

pi********@hotmail.com wrote:

you mean

DoCmd.Quit

doesn't work?

My question is how would i get that into the button. i used the
database utilities to create the switchboard and i used the exit
application command in the switchboard manager. i was wondering how i
could get that code into the exit application or would i have to create
code in vba and then insert it into the command.

[enginerd477]

Nick,

That did it for me. Now if i don't want the message box can i make the
code just

Docmd.Quit

Thanks again for the help.

Nick 'The Database Guy' wrote:

Hi Enginer

You have to select the button, right click on it, then select
properties.

Select the 'Event' bookmark tab, then click on the elipis (the three
fullstops at the end of the line). A vba windows should open and the
code in there should look something like:

Private Sub btnExit_Click()
Docmd.Close
End Sub

Change it to:

Private Sub btnExit_Click()
If MsgBox("Are you sure that you want to quit this database?",
vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
Docmd.Quit
End If
End Sub

Good luck,

Nick

enginerd477 wrote:

pi********@hotmail.com wrote:

you mean
>
DoCmd.Quit
>
doesn't work?

My question is how would i get that into the button. i used the
database utilities to create the switchboard and i used the exit
application command in the switchboard manager. i was wondering how i
could get that code into the exit application or would i have to create
code in vba and then insert it into the command.

[pietlinden]

sure. just make the code

DoCmd.Quit