Creating an quit program macro with a yes/no message

[jrod0479]

Hello all,

I'm trying to create a button in my main form that runs a macro command to quit Access, but pop up a message box that says "Are you sure you want to quit?", and give a yes/no option. I'm not familiar with the VB code, but I think I can use the macro builder. Can someone help me out? I'm using Access 2007. Thanks.

 

[bob fitz]

Hello all,

I'm trying to create a button in my main form that runs a macro command to quit Access, but pop up a message box that says "Are you sure you want to quit?", and give a yes/no option. I'm not familiar with the VB code, but I think I can use the macro builder. Can someone help me out? I'm using Access 2007. Thanks.

Create a button on your form which can be used to Quit. You can do this with a macro or with one line of code in the On Click event of the button:

DoCmd.Quit

Put the following lines of code in the forms UnLoad event:

    If MsgBox("Are you sure?", vbQuestion + vbYesNo, "Quit Program") = vbNo Then
        Cancel = True
    End If

 

[jrod0479]

Where would I find the unload event? I went to the bottom of the code window and didn't find it.

 

[bob fitz]

Open the form in "Design" view.
Open the forms Property sheet.
Click the "Events" tab.
Find On Unload in the list and click in the column.
You should then see what looks like the dropdown arrow of a combo box. Click it and then select [Event Procedure].
In the right margin you should also see a button with three dots ...
Click these dots to open the forms code module. It should open showing:

Private Sub Form_Unload(Cancel As Integer)

End Sub

Put the code from my earlier post between these two lines, like this:

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Are you sure?", vbQuestion + vbYesNo, "Quit Program") = vbNo Then
        Cancel = True
    End If
End Sub

 

[mdlueck]

You must create the event via the Form Editor if the event does not currently exist.

Open the Form in Design View
Have the Property Sheet open
Event tab, while the "Section Type" pick list is set to Form
Locate the "On Unload" event, when you are successfully selected on that event, two buttons will show up at the right of that row...
Click the down arrow and select "[Event Procedure]"
Then click the [...] button to be brought to the VBA editor and that new event will have been created for you

Nothing to it!

 

[bob fitz]

jrod0479

BTW: Welcome to the forum

 

[jrod0479]

Awesome! It worked. Thanks so much!

 

[mdlueck]

You are very welcome, jrod0479.

 

[mjhd786]

I havea form with a quit button. I added the code to the Unload event. No matter if you press the quit button or Access close button, the msg box appears but whtheryou press no or yes, the Access closes.