Close form on vbCancel

[lastout]

The following If...Then block is supposed to perform different commands on form based on whether the user clicks vbYes, vbNo, or vbCancel. It all works except for the vbCancel. If the user clicks vbCancel, I want the form to close. What happens instead is that the MsgBox closes and the focus goes to the form. Can anyone tell me what I'm doing wrong here? Many thanks in advance!

If intEntityID <> intPREntityID Then
If MsgBox(Msg, vbQuestion + vbYesNoCancel + vbDefaultButton2) = vbYes Then
DoCmd.GoToRecord , , acNewRec
DoCmd.Maximize
Forms!frmPartnersRelations!EntityID = Me.EntityID
Forms!frmPartnersRelations!ProjectID = Me.ProjectID
ElseIf vbNo Then
DoCmd.GoToRecord , , acFirst
DoCmd.Maximize
Else
DoCmd.CancelEvent
DoCmd.Close
End If
End If lastout (the game's not over till it's over)

 

[Rolliee]

Keep code simple. Do an if catch with vbCancel before doing the checks for yes/no. This makes is much easier when you look at your code six years later even tho it may not seem as elegant!!!

Rollie

 

[lastout]

Rollie,

Thanks for responding. I'm not sure what you mean by an if catch. If it isn't too much trouble, could you give me a simple example? THANKS! lastout (the game's not over till it's over)

 

[Rolliee]

Dim yes as integer

yes = msgbox ( 'all that stuff)
if not (yes = vbCancel) then
if (yes = vbYes) then
somestuff cause it means yes
else
somestuff cause it must be no
endif
endif

 

[Rolliee]

By the way, the answer to your question, &quot;What did I do wrong' is the logical there which is only 'vbNo.' vbNo is a constant which translates to the integer 6 (i believe). It never is anything else. 6 is always true in boolean math.