vbYesNo not working with DoCmd

B

Bart

I am calling the following procedure a module to
print/save a report but it always runs the DoCmd even if
the user chooses vbNo. Any suggestions?

Public Function printoptions()
'This functions provides the user with the option to print
and save the report (letter)

MsgBox "Do you want to print the letter?", vbYesNo
If vbYes Then
DoCmd.PrintOut acPrintAll
End If

MsgBox "Do you want to save the letter?", vbYesNo
If vbYes Then
DoCmd.OutputTo acOutputReport, , acFormatRTF
Else
DoCmd.Close
End If

End Function

Thanks for your help.

Bart
 
M

Marshall Barton

Bart said:
I am calling the following procedure a module to
print/save a report but it always runs the DoCmd even if
the user chooses vbNo. Any suggestions?

Public Function printoptions()
'This functions provides the user with the option to print
and save the report (letter)

MsgBox "Do you want to print the letter?", vbYesNo
If vbYes Then
DoCmd.PrintOut acPrintAll
End If

MsgBox "Do you want to save the letter?", vbYesNo
If vbYes Then
DoCmd.OutputTo acOutputReport, , acFormatRTF
Else
DoCmd.Close
End If

End Function
Click to expand...


It's the MsgBox function that returns the vbYes value.

Dim response As Integer
response = MsgBox("Do you want to print the letter?", _
, vbYesNo)
If response = vbYes Then
. . .
 
Top