Simple Message Box Problem

[Only1Abhi]

Hi People.
What's wrong with this code?
When I press the button to exit the program, I want a message box to appear, which confirms this action.


Private Sub cmdExit_Click()

MsgBox("Are you sure you want to exit?", vbYesNo, "Exit The Program&quot

End Sub

 

[awingnut]

Did you make sure the 'OnClick' event for the button is pointing to this sub? You also realize the button will not close the window with just a msgbox in the sub, right? You need DoCmd.Close (assuming this button is in the main window) as well, depending on the answer to your message box.

 

[JohnLowell]

Try this:

Private Sub cmdExit_Click()

if MsgBox("Are you sure you want to exit?", vbYesNo, "Exit The Program&quot = vbYes then
application.quit
end if

End Sub

 

[LogicalmanUS]

Only1Abhi,

here you go:

If MsgBox("Are you sure you want to exit?", vbYesNo, "Exit The Program&quot = vbYes Then
DoCmd.Close acForm, Me.Name
End If

Logicalman

 

[Only1Abhi]

thanks guys...

But I solved it using another way.

When I click the button, another form loads with Yes & No button.


That solved the problem.

Thanks anyway!

Kind Regards,
Abhi!