no records, msgbox , + error?? 1

[Samulayo]

i have a nodata sub (as below), which gives a message if there are no messages, this is fine, but then an error message appears saying that you have cancelled the loading of the form etc. then an [OK]button. how can i stop the report from loading when there are no records without making this message appear? any help whould be greatfully accepted.


Private Sub Report_NoData(Cancel As Integer)
MsgBox "There are no records for this filter; Press OK to return to the Filter screen", vbInformation, "No Records"
Cancel = True
End Sub


Regards

Samulayo

 

[CosmoKramer]

Check out this FAQ from Garridon:

faq703-1594

 

[Samulayo]

Thank you very much, does exactly what i need, have a star