Доступ Примеры

Предотвращение открытия отчета, если нет данных,

Мы можем предотвратить отчет открытым, если нет данных, чтобы показать, и для этого мы используем две формы в зависимости от версии Access:

1 - Все версии ДОСТУПА
Разместите код в свойствах отчета, "Активация" событие

Используйте событие Включение (Activate) доклад:

Private Sub Report_Activate ()

Если DCount ("*", Me.RecordSource) = 0 Then

MsgBox "Нет записей для отображения" vbDefaultButton1, "Ошибка!"

AcReport DoCmd.Close ", название отчета"

End If

End Sub

2 - Начиная с версии 7 (Access 95) было добавлено событие ", если нет данных, то мы можем urilizar следующий код:

Private Sub Report_NoData (Отмена As Integer)

MsgBox "Нет данных в отчете.", VbInformation, "Ошибка!"

Отмена = True

End Sub

Чтобы увидеть работы скачать пример: предотвращение открытия отчета

Опубликовано в Без рубрики | 13 Комментариев »