Do not print a Report if there is no data

Do not print a Report if there is no data

If you want to stop the printing of a report that has no data, then there are two steps that you need to do. Firstly, you need to use the Report's NoData event to stop it being printed:

Private Sub Report_NoData(Cancel As Integer)
Cancel = True
End Sub

The problem with using the NoData event programmatically is that it raises an error in the calling code. Therefore, you will also need to add an error handle to the procedure that opens the Report specifically to trap this error:

Private Sub cmdPrint_Click()
    On Error GoTo E_Handle
    DoCmd.OpenReport "rptName"
sExit:
    Exit Sub
E_Handle:
    Select Case Err.Number
        Case 2501
        Case Else
            MsgBox Err.Description, vbCritical + vbOKOnly, "Error: " & Err.Number
    End Select
    Resume sExit
End Sub

Top

Last modified at 06/06/2006 15:00:53