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

Добавлено в среду, 20 мая, 2009 - 22:01 | по администратора |

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

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

RSS поток | Trackback URI

13 Комментариев »

Комментарий от Мишель
2009-06-02 21:00:48

Интересно, какую версию Access, который используется для открытия системы продаж на моей машине, база данных сообщений формат не распознается.

Комментарий администратора
2009-06-03 11:01:56

Все примеры выполнены в Access 2003. Могу ли я отправить в другой формат до Access 2003, если хотите.

Комментарий от Тиаго Сантос
2009-07-31 14:24:46

Доброе утро, я делаю табличной форме, эта форма есть три поля в каждой колонке по формулам (expressaão) пример:

Calculado1 период - (минус) период calculado2
(Space ж / положить дата) (р-пространства / поставить дату)

Calculado3 период - (минус) период calculado4
(Space ж / положить дата) (р-пространства / поставить дату)

Calculado5 период - (минус) период calculado6
(Space ж / положить дата) (р-пространства / поставить дату)

после того, как он делает результат разности даты, то она умножается на 30 по отношению к ежемесячной "X", то результат выражения в этих колонках приведет добавив еще один с полем называется кредит, и р / появляется Результат в области Crediton собираешься заполнить все столбцы, поля не datasn или поставить дату 00/00/0000, если я встал уже было достаточно, просто отсутствует эта ж / закончить свою работу.
Если вы можете помочь мне поблагодарить Вас и поздравить в блоге Abrç. Тьяго
Если вы не поняли Посо отправки ж / Вам по электронной почте от уже благодарю вас за ваше внимание.

Комментарий администратора
2009-07-31 20:38:53

Вы можете использовать функции NZ

Calculado1 период - (минус) Новая Зеландия (calculado2 период)

Комментарий Луис
2009-08-09 19:59:58

Привет-Хосе

Я скачал вашу систему продаж, MS имеет много
для отладки, загружается в систему продаж для меня.
благодарна.

Комментарий от Алан
2009-08-12 17:29:22

У вас есть образец файла, как использовать функцию DLookup = е = DLookup

Комментарий Dri Виаро
2009-08-13 17:44:57

Привет, я узнал своего блога и пожелать доброго вечера
bjsss

Я жду вашего визита :)

Комментарий от Вашингтона
2010-02-27 21:58:53

Это супер просто, чтобы не допустить открытого отчета

1) Откройте отчет в режиме конструктора и открыть форму свойств.
2) Перейдите на вкладку События и выберите ЕСЛИ НЕТ ДАННЫХ
3) Нажмите кнопку с многоточием (...)
4) Введите код

Private Sub Report_NoData (Отмена As Integer)
MsgBox ("Нет информации для настоящего доклада")
Конец
End Sub

5) Закройте редактор VISUAL BASIC
6) Обратите внимание, что опция появляется в процедуре события нет данных
7) Вы можете запускать программу.

Комментарий администратора
2010-04-25 18:05:39

Есть много способов для достижения цели, просто выберите и быть творческим.

Комментарий от Брюса
2010-05-19 19:13:56

Вы можете использовать функции NZ

Calculado1 период - (минус) Новая Зеландия (calculado2 период)

Комментарий Otavio Баррос
2011-01-27 10:26:41

Доброе утро! Вы можете создать кнопку на форме, чтобы выполнить резервное копирование базы данных?
Благодарный.

Комментарий от Андрей
2011-07-26 22:43:07

Поздравляем Вас с работы! Я посещаю Ваш сайт ежедневно ... Кстати, я хотел бы указать сайт http://www.iAulas.com.br там вы найдете более 10000 учебников для бесплатного скачивания всеми видами предметов, в том числе доступ подачки ... Я помог ...

Комментарий Жозе Оливейра
2011-08-30 18:47:59

действительно с нетерпением прекрасных примеров доступа
Большое спасибо

Имя (обязательно)
Email (обязательно - не публикуется)
Веб-сайт
Ваш комментарий ( Уменьшение | Увеличение )
Вы можете использовать <a href="" title=""> <abbr title=""> <acronym title=""> <blockquote cite=""> <b> <cite> <code> <del datetime=""> <em> <i> <Q cite=""> <strike> <strong> в комментариях.

Презентация

Аватара

Благодарим Вас за посещение.
Подписаться на канал, чтобы не пропустить ни одного сообщения.

Здесь в блоге я приведу примеры работы с Microsoft Access, а также задать вопросы тем, кто просит. больше

Хотите подписаться?

Подписаться или подписаться по электронной почте:
Введите адрес электронной почты:


Объявления