Ms Access Message boxes 2

[4808]

HI,
I am trying to create a button on a form to exit the database application that i am developing. this is the senario - when the Exit button is clicked a message comes up asking ' are you sure you want exit now? You get a yes and no button but so far they dont work.

 

[jrbarnett]

Hello

What is the code behind the Exit button so far?

John

 

[mkov]

This is what I usually use for something like you want to do. This code would go in the OnClick of the button.

strQuestion = MsgBox("Are you sure you want to exit?", vbYesNo)

If strQuestion = vbYes Then
DoCmd.Quit
Elseif strQuestion = vbNo then
Exit Sub
Endif

 

[jrbarnett]

mkov

Your code would work fine, but you don't actually need the Elseif section, because you don't want anything to be run if they click "No"

John

 

[CajunCenturion]

The MsgBox function returns an integer, and it appears that you are assigning the result into a string. You might try changing strQuestion, if it is declared as a string, to intQuestion, defined as an integer.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[mkov]

jrbarnett,

You are correct, I just have a habit of using Elseif even when it isn't needed. When I learned VBA, that is the way I was taught and am still trying to break the habit.

 

[jrbarnett]

mkov

In fact, it can be even simpler:

If MsgBox("Are you sure you want to exit?", vbYesNo) = vbYes Then
    DoCmd.Quit
Endif

that's all you need.

John