vbYesNo not working with DoCmd

  • Thread starter Thread starter Bart
  • Start date Start date
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
 
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
. . .
 
Back
Top