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

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

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

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 Коментари »

Как да се предпазим отворен форма, ако няма документация, за да се покаже?

Понякога е необходимо да се предотврати отворен форма, ако има записи, да покажат, например, когато се прави заявка и без регистрация не се изисква, ние не трябва да бъде открита форма, тъй като няма данни за показване. Така че това, което ние трябва да проверите е дали има записи да се покаже и ако няма покаже съобщение и пречат формата отворена. Как?

Лесно е просто да поставите кода по-долу под формата свойства на събитието ", за да отворите":

= 0 След Ако Form.RecordsetClone.RecordCount,
MsgBox "Няма намерени резултати.", VbExclamation, "Грешка!"
DoCmd.Close acForm "намери данни"
Изход Sub
Крайна сметка, ако

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

Публикувано в Примери , форми , модули | 2 Коментари »