Msgbox function ? Question ?

[fouchev]

Im trying to run this code but when I click the Yes or No buttons nothing happens.

If Me.Input = "UserInput" then
Msgbox "Click Yes to Continue No to cancel", vbyesno
If msgbox(vbyesno) = vbYes then
Me.Input = "UserInput"
Else
If msgbox(vbyesno) = vbNo then
Docmd.cancelevent
end if
end if
end sub

What I basically want to happen is that when a person clicks the Yes button a certain event occur and when he clicks No another event occur. At the moment I experiemented with the vbOKOnly and worked but not with vbYesNo, vbOKCancel etc.

What the hec am I doing wrong here?

Fouche

[carolyn]

Try this

if msgbox("your question", vbYesNo) = vbYes then
   ....
else
   ....
end if

[karunakaran]

Hi
You are using msgbox statement not the function. For your case you should use msgbox function.
Here is some sample try this.

Private Sub Command2_Click()
Dim result
result = MsgBox("Do You want to see the form", vbOKCancel, "message")
If result = vbOK Then
Unload Me
Form2.Show
Else
Cancel = True
End If

End Sub


Have a nice time


------------------
With regards,
Karun

[fouchev]

Originally posted by karunakaran:
Hi
You are using msgbox statement not the function. For your case you should use msgbox function.
Here is some sample try this.

Private Sub Command2_Click()
Dim result
result = MsgBox("Do You want to see the form", vbOKCancel, "message")
If result = vbOK Then
Unload Me
Form2.Show
Else
Cancel = True
End If

End Sub


Have a nice time

Thanks