Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.05.2011, 01:14   #1
dezer
Новичок
Джуниор
 
Регистрация: 31.05.2011
Сообщений: 1
По умолчанию Отчет и процедура для события "отсутствие данных"

Приветствую вас комрады программисты много полезной информации получил с вашего форума, но вот настал момент когда не могу найти решения своей маленькой проблемы. Очень надеюсь на вашу помощь)
Есть форма "Меню". Для "списка" при двойном нажатии обрабатывается данный код
фрагмент кода:
Цитата:
Private Sub Меню_DblClick(Cancel As Integer)
Select Case Меню
Case 9
DoCmd.OpenReport "Список книг в наличии", acViewPreview
End Select
End Sub
Так же есть отчет "Список книг в наличии"
При событии "отсутствии данных" выполняется следующий код
Цитата:
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Нет записей для отчета", vbExclamation, "No Records"
Cancel = True
End Sub
Суть в том что запуская просто отчет из окна бд все работает нормально, сообщается о том что "нет записей для отчета", нажимаем ОК и все.
Но проблема в том, что если открывать отчет через форму "Меню" то сначала сообщение "нет записей для отчета", при нажатии ОК выскакивает ошибка Run-Time error 2501 Прервано выполнение макрокоманды OpenReport.
Я вобще нуп, поэтому поковырялся чутка, но не получилось у меня ничего. А как известно ларчик открывается очень легко)
Помогите пожалуйста,где там чего добавить нужно
dezer вне форума Ответить с цитированием
Старый 07.11.2011, 17:31   #2
ivb2004
Новичок
Джуниор
 
Регистрация: 06.02.2011
Сообщений: 2
Радость Реакция на отсутствие данных в отчете

У меня была та же проблема. Я нашел выход в следующем:
добавил в начале кода, где вызываю отчет
On Error GoTo Err_Надпись1_Click

В конце кода (перед Exit sub) обработка ошибки, но отключил MsgBox:

Err_Надпись1_Click:
'MsgBox Err.Description
Resume Exit_Надпись1_Click

И все заработало
ivb2004 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как "повесить " передачу данных из формы на событие нажатия кнопки типа "button" ? vedro-compota JavaScript, Ajax 10 14.12.2010 21:05
Программа для работы с базой данных "Записная книжка" ArtS Помощь студентам 6 27.07.2010 19:12
Отчет "Перевод сотрудника" на основе запроса TimRus Microsoft Office Access 0 13.06.2010 22:35
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04