B
Bob
I want to be able to view this Report before printing
How do I adjust this code?
Private Sub Command27_Click()
On Error GoTo Err_Command27_Click
Dim stDocName As String
stDocName = "rptHoldingNames"
DoCmd.OpenReport stDocName, acNormal
Exit_Command27_Click:
Exit Sub
Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click
End Sub
Thanks in advance.........Bob Vance
How do I adjust this code?
Private Sub Command27_Click()
On Error GoTo Err_Command27_Click
Dim stDocName As String
stDocName = "rptHoldingNames"
DoCmd.OpenReport stDocName, acNormal
Exit_Command27_Click:
Exit Sub
Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click
End Sub
Thanks in advance.........Bob Vance