Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
print report
- Thread starter vilmarie
- Start date
Private Sub BUTTONNAME_Click()
On Error GoTo Err_BUTTONNAME_Click
Dim stDocName As String
stDocName = "REPORTNAME"
DoCmd.OpenReport stDocName, acNormal
Exit_BUTTONNAME_Click:
Exit Sub
Err_BUTTONNAME_Click:
MsgBox Err.DESCRIPTION
Resume Exit_BUTTONNAME_Click
End Sub
On Error GoTo Err_BUTTONNAME_Click
Dim stDocName As String
stDocName = "REPORTNAME"
DoCmd.OpenReport stDocName, acNormal
Exit_BUTTONNAME_Click:
Exit Sub
Err_BUTTONNAME_Click:
MsgBox Err.DESCRIPTION
Resume Exit_BUTTONNAME_Click
End Sub
- Thread starter
- #3
- Status
Similar threads
- Locked
- Question
- Locked
- Question