D
Dave Elliott
I use this code to open a report in design mode and want to ask the user if
he or she really wants to do this, then open or not if they answer yes or
no., it does not work right now...Why???
On Error GoTo CheckAligner_Err
If vbYes = MsgBox("Are you sure you want to Align Checks?", vbQuestion + _
vbYesNo, "acCmdDesignView Report?") Then
DoCmd.OpenReport "RCheckAll", acViewDesign, "", "", acDialog
Else:
End If
CheckAligner_Exit:
CheckAligner_Err:
MsgBox Error$
Resume CheckAligner_Exit
--
---------------------------------------------------------------------
This email and any files transmitted with it from Dave Elliott are
confidential and intended solely for the
use of the individual or entity to whom they are addressed.
If you have received this email in error please notify the
sender.
All Mail is pre-scanned with Norton Antivirus 2004 for your protection.
http://[email protected]
he or she really wants to do this, then open or not if they answer yes or
no., it does not work right now...Why???
On Error GoTo CheckAligner_Err
If vbYes = MsgBox("Are you sure you want to Align Checks?", vbQuestion + _
vbYesNo, "acCmdDesignView Report?") Then
DoCmd.OpenReport "RCheckAll", acViewDesign, "", "", acDialog
Else:
End If
CheckAligner_Exit:
CheckAligner_Err:
MsgBox Error$
Resume CheckAligner_Exit
--
---------------------------------------------------------------------
This email and any files transmitted with it from Dave Elliott are
confidential and intended solely for the
use of the individual or entity to whom they are addressed.
If you have received this email in error please notify the
sender.
All Mail is pre-scanned with Norton Antivirus 2004 for your protection.
http://[email protected]