Go into the OnNoData event and enter this below the sub procedure header.
Msgbox "Sorry, there is no data for this report",0,"No Data Available"
The report will still have to be manually closed though, try entering
Cancel = True
under the Msgbox line and see if that works
Hope this works
Ian