Exit Button with a message 1

[molly]

I have a good EXIT button working, however, I would like to add an event message such as "Are you sure that you want to exit the file?". I would like to stay with an Access event code and not a fancy module. Something simple for me.

I presently use an On Click Event:

Private Sub cmdEXIT_Click()

DoCmd.Quit

End Sub


Thanks
Molly

 

[Remou]

It is simple enough to add a message:

Private Sub cmdEXIT_Click()
If MsgBox("Are you sure?",vbYesNo)=vbYes Then
   DoCmd.Quit
End if
End Sub

 

[molly]

Remou - long time no hear ! Love your work.
Thanks for the tip. It works real nice.

Here is one for you.

Private Sub cmdEXIT_Click()
If MsgBox("Is Remou terrific?",vbYesNo)=vbYes Then
DoCmd.Quit
End if
End Sub

And I will always answer "Y".

Molly

 

[ZmrAbdulla]

Molly,

Private Sub cmdEXIT_Click()
    Do While MsgBox("Is Remou terrific?", vbYesNo) <> vbYes
    Loop
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people