Sub Report_NoData(Cancel As Integer)
MsgBox "There is no data for this report. Canceling report..." Cancel = True End Sub