Hi,

   Okay, here is the code I am using for reports when there is no data:

'==========Code Starts============
Private Sub Report_NoData(Cancel as Integer)
   Cancel = MsgBox("No Records Found", vbInformation, Me.Caption)
End Sub
'==========Code Ends==============

This works fine. When there is no data for the report, a messagebox comes up with the title of the report, and the message that No Records Found.

However, once you click Ok, a second message box comes up stating that the action has been cancelled.

How do I get rid of this second message box?

Thanks,

mmcdonal

__________________
mmcdonal

Look it up at: http://wrox.books24x7.com

Hmmm... how about

Private Sub Report_NoData(Cancel as Integer)

   DoCmd.SetWarnings False
   Cancel = MsgBox("No Records Found", vbInformation, Me.Caption)
   DoCmd.SetWarnings True

End Sub


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division