Tweeking a Exit Button! 1

[Joel27]

On my autoexec form I have a button on it that quits access or the database if you will. I use the following code to do so:

Private Sub quit1_Click()
On Error GoTo Err_quit1_Click

dim holder as string
holder = msgbox("Are You Sure You Want To Quit?",vbYesNo)
if vbYes then Docmd.Quit
Else
end If

Exit_quit1_Click:
Exit Sub

Err_quit1_Click:
MsgBox Err.Description
Resume Exit_quit1_Click

End Sub



What Am I doing wrong
Thanks Joel

 

[Rohdem]

if holder = vbYes then Docmd.Quit
Mike Rohde
rohdem@marshallengines.com

 

[ghubbell]

Hi Joel, Mike,
I'll elaborate a spec to Mikes solution and add:

Private Sub quit1_Click()
On Error GoTo Err_quit1_Click
If MsgBox("Are you sure you want to quit? ", vbYesNo + vbQuestion + vbDefaultButton1, "Quit application confirmation...&quot = vbNo Then Exit Sub
Application.Quit acQuitSaveAll

Exit_quit1_Click:
Exit Sub

Err_quit1_Click:
MsgBox Err.Description
Resume Exit_quit1_Click
End Sub

Two treats here 1: sneaky little method to center your text in your message box when you use an icon. Add about 16 spaces and everything will look right. 2: Application.Quit will knock out Access and the save all takes care of anything that's left open in the background and without warning. Extra treat.. no declared variable. Voila! ;-) Gord
ghubbell@total.net

 

[Joel27]

Is there a way to edit the title bar on a message box?

I like the code you gave me, Gordon
very nice
Joel

 

[ghubbell]

Thanks Joel and yes just as you see in the example above. The "Quit application confirmation..." is where you can do this. This is really important in 2000: Even with a "Database title", It won't be picked up and your users would always get a title of "Microsoft Access." Gord
ghubbell@total.net

 

[jazzplayer]

My guess is that in this line:

vbQuestion + vbDefaultButton1, "Quit application confirmation...&quot =

the "Quit application confirmation..." is the title bar on the message box --- so just edit that.