Достъп Примери

Да предотвратят отварянето доклад, ако няма никакви данни да се покаже

Сряда, 20 май, 2009

Можем да предотвратим отворен доклад, ако няма никакви данни да покажат, и за това ние използваме две форми, в зависимост от версията на достъп:

1 - Всички версии на достъп
Поставете кода по-долу в свойствата на доклада, "Активиране на събитието '

Използвайте случай благоприятна (Activate) Доклад:

Частни Под Report_Activate ()

Ако DCount ("*", Me.RecordSource) = 0 Тогава

MsgBox "Няма документация, за да се покаже" vbDefaultButton1, "Грешка!"

AcReport DoCmd.Close "доклада име"

Крайна сметка, ако

End Sub

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

Private Sub Report_NoData (Отказ като цяло число)

MsgBox "Няма данни в доклада.", VbInformation, "Грешка!"

Отказ = True

End Sub

За да видите изтеглите пример: Предотвратяване доклад на откриването

Публикувано в Uncategorized | 13 Коментари »