vbYesNoCancel Open Report on Yes

[flemmo]

I have the following code:

Answer = MsgBox("My prompt?", vbYesNoCancel, "Title")

If Answer = vbYes Then
     DoCmd.OpenReport MyReport, acPreview, "MyReportFilter"
ElseIf Answer
     DoCmd.OpenReport MyReport2, acPreview, "MyReportFilter2"
End If

However, when I click on Yes or No, no report loads. What am I doing wrong?
Thanks

 

[namliam]

Elseif <Expression>

The expression needs to be something that is or evaluates to a True or False. Only a True value causes the if to be "entered", true equals to a -1.
Your answer is vbNo, the numeric contained within this variable is 7... i.e. <> -1 => Does not equal True => No entering the ElseIf.

I hope you understand and can fix the problem now.

 

[allan57]

Change it to:

If MsgBox("My prompt?", vbYesNoCancel, "Title") = vbYes Then
DoCmd.OpenReport MyReport, acPreview, "MyReportFilter"
Else
DoCmd.OpenReport MyReport2, acPreview, "MyReportFilter2"
End If

 

[missinglinq]

Also, are MyReport and MyReport2 the actual names of the reports? If so they need to be in quotes:

Answer = MsgBox("My prompt?", vbYesNoCancel, "Title")

If Answer = vbYes Then
     DoCmd.OpenReport "MyReport", acPreview, "MyReportFilter"
Else
     DoCmd.OpenReport "MyReport2", acPreview, "MyReportFilter2"
End If

 

[flemmo]

Also, are MyReport and MyReport2 the actual names of the reports? If so they need to be in quotes:

They are named more appropriately, but you're quite right I missed the quotes out, silly me.