Private Sub Report_NoData(Cancel As Integer)[INDENT]MsgBox "There is no data"[/INDENT][INDENT]Cancel = True[/INDENT] End Sub
Comment