Xuân Thanh > 23-08-12, 03:25 PM
Private Sub Report_NoData(Cancel As Integer)
    MsgBox "No data found! Closing report."
    Cancel = True
End SubPrivate Sub TestNoData_Click()
    On Error Resume Next
    DoCmd.OpenReport "SomeReport", acViewPreview
    If Err = 2501 Then Err.Clear
End Subcpucloi > 27-08-12, 08:19 PM