Настольная СУБД Access 2002


                


He найдены записи, удовлетворяющие указанным_



Листинг 13.6. Процедура обработки события Отсутствие данных отчета

Private Sub Report_NoData(Cancel As Integer)

MsgBox " He найдены записи, удовлетворяющие указанным_

условиям.", vbExclamation, "Записи не найдены"

rstReport.Close Cancel = True
End Sub

Содержание    Назад    Вперед