d. Нет данных

 

     Обработка событий. Напишем событие, которое при открытии отчета, в котором нет данных, выдавало бы на экран специальное сообщение (смотрите рисунок).

 

Private Sub Report_NoData(Cancel As Integer)

    MsgBox "Нет данных для печати!", vbExclamation, "Мой калькулятор"

    Cancel = True ‘Отменяем открытие отчета

End Sub