Buttons in MsgBox 2

[BT24]

Hi
This is the code that i have written and when i hit the Ok button or the cancel button they both do the same thing and when i hit the ok button the form opens but goes to the background. could someone please help

Private Sub Maintenance_Click()
MsgBox ("Email Todd Harvey About the Problem With the Truck&quot, vbOKCancel
If "1" Then
DoCmd.OpenForm ("frmToddEmail&quot, acNormal
End If
If "2" Then
DoCmd.OpenForm ("frmTruckSheet&quot, acNormal
End If
End Sub

thanks for the help
IAMUSELESS

 

[Junior1544]

Try this...

Private Sub Maintenance_Click()
if MsgBox ("Email Todd Harvey About the Problem With the Truck", vbOKCancel) = vbOK then
DoCmd.OpenForm ("frmToddEmail&quot, acNormal
else
DoCmd.OpenForm ("frmTruckSheet&quot, acNormal
End If
End Sub
junior1544@jmjpc.net
Life is change. To deny change is to deny life.

 

[dpimental]

Try this



Dim strMsg As String, res As String
strMsg = "Email Todd Harvey About the Problem With the Truck"
If MsgBox(strMsg, vbOKCancel, "Give Me 2 stars&quot = vbOK Then
'DoCmd.OpenForm ("frmToddEmail&quot, acNormal
res = MsgBox("You Pressed OK", vbOKOnly, "FYI&quot
Else
'DoCmd.OpenForm ("frmToddEmail&quot, acNormal
res = MsgBox("You Pressed CANCEL", vbOKOnly, "FYI&quot
End If



test it with the message box, then, if it works, comment them out and uncomment the open form commands.

David
I'm Your Huckleberry!

 

[BT24]

Thanks For all your help Folks!