Exit Database

[Guest]

Hi,

I used the wizard to create an exit database button but I want to have a
pop-up screen just like the Delete Record button created with the wizard that
asked you if you really want to delete the record but I want the pop-up to
ask the users if they really want to exit the database and not pushed it my
accident. Thanks.

 

[John Vinson]

Hi,

I used the wizard to create an exit database button but I want to have a
pop-up screen just like the Delete Record button created with the wizard that
asked you if you really want to delete the record but I want the pop-up to
ask the users if they really want to exit the database and not pushed it my
accident. Thanks.

Try changing the wizard-generated code to something like:

Private Sub cmdQuit_Click()
Dim iAns As Integer
iAns = MsgBox("Do you really want to exit the application?", vbYesNo)
If iAns = vbYes Then
Application.Quit
End If
End Sub


John W. Vinson[MVP]