This is what I have in there. I don't know VB much. Don't know how to create error handling
Private Sub cmdPrintMarkerInfoForm_Click()
DoCmd.Close
DoCmd.OpenReport "Marker_Info_by_StyleID", acViewPreview
End Sub
You can add an error trap:
http://www.baldyweb.com/ErrorTrap.htm
and don't include a message box for that error.
Is this correct??
Private Sub cmdPrintMarkerInfoForm_Click()
On Error GoTo ErrorHandler
DoCmd.Close
DoCmd.OpenReport "Marker_Info_by_StyleID", acViewPreview
ExitHandler:
Exit Sub
ErrorHandler:
Select Case Err
Case 2501
DoCmd.Hourglass False
Resume ExitHandler
Case Else
MsgBox Err.Description
DoCmd.Hourglass False
Resume ExitHandler
End Select
End Sub
If it works, yes. If it doesn't, no.
Offhand it looks okay.
Tried it and it works, thanks!