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

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

Мы можем предотвратить отчет открытым, если нет данных, чтобы показать, и для этого мы используем две формы в зависимости от версии 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 Комментариев »

Как предотвратить открытие формы, если записи не показать?

Иногда это необходимо для предотвращения форме открытой, если существуют записи, чтобы показать, например, при выполнении запросов и без регистрации не требуется, мы не должны быть открыты формы, поскольку у нас нет данных для отображения. Итак, что мы должны проверить, существуют ли записи, чтобы показать и, если не показывать сообщение и препятствуют форме открытой. Как?

Легко просто поместите код в виде свойства в случае 'открыть':

= 0 Then Если Form.RecordsetClone.RecordCount
MsgBox "Записи не найдены.", VbExclamation, "Ошибка!"
DoCmd.Close acForm "найти данные"
Выход Sub
End If

Чтобы увидеть пример загрузки: Предотвращение форме открытого

Добавлено в примерах , форм , модулей | 2 Комментариев »