Листинг 13.6. Процедура обработки события Отсутствие данных отчета
Private Sub Report_NoData(Cancel
As
Integer)
MsgBox "He найдены записи, удовлетворяющие указанным_
условиям.", vbExclamation, "Записи не найдены"
rstReport.Close Cancel = True
End Sub