Как при открытии или печати отчета вывести "Нет данных", если в источнике нет записей?

@AlexV0 · Регистрация: 08.08.2007

Студворк — интернет-сервис помощи студентам

Как при открытии или печати отчета вывести 'НЕТ ДАННЫХ' если в источнике нет записей ?
Если нет записей, то отчет пустой, а на месте Sum-полей выдает #ОШИБКА.
Как проверить, есть ли хоть одна запись и если нет, то выдать сообщение и закрыть отчет ?

15.12.2007, 23:07

if @@rowcount <> 0

@monstrU · 16.12.2007, 06:42

в таком случае bof И eof одновременно равны true

@Yloo · 16.12.2007, 16:09

Если это про аксесс, то там у отчета есть такое событие 'Отсутствие данных'

@AlexV0 · 16.12.2007, 18:07 **[ТС]**

Я использовал стандартный обработчик 'Отсутствие данных'.
В нем написал вывод MsgBox('Данные для отчета отсутствуют'),
После этой message все равно отчет (пустой) открывается.(а этого не нужно).
Я добавил команду DoCmd.CancelEvent после MsgBox.
Теперь после MsgBox выводится еще один message: Прервано выполнение макрокоманды OpenReport.
Как при отсутствии данных для отчета, просто выдать MsgBox('Данные для отчета отсутствуют') и все. Отчет при этом открываться не должен.

@Yloo · 17.12.2007, 09:35

В событии 'Отсутствие данных' вот такая маленькая процедурка:

Visual Basic
1
2
3
4
Private Sub Report_NoData(Cancel As Integer)
    MsgBox('Данные для отчета отсутствуют') 
    Cancel = True
End Sub

@AlexV0 · 17.12.2007, 18:08 **[ТС]**

Все равно после моего message появляется следом за ней 'Прервано выполнение макрокоманды OpenReport'

18.12.2007, 05:54

Перед вызовом отчета поместить on error resume next
После его вызова, если это конечно необходимо - вернуть установки перехвата ошибок(on error goto 0, например)

18.12.2007, 11:06

Тупой вариант: вместо Cancel сделать Close. Тогда прерывания макрокоманды не возникнет.

18.12.2007, 12:28

Ну что, akula, получилось ? Должно было получиться, т.к. все толково люди объяснили

@AlexV0 · 18.12.2007, 19:45 **[ТС]**

Ну все получилось.
Тема закрыта!

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@AlexV0 0 / 0 / 0 Регистрация: 08.08.2007 Сообщений: 184

	Как при открытии или печати отчета вывести "Нет данных", если в источнике нет записей? 15.12.2007, 07:32. Показов 2607. Ответов 10 Метки нет (Все метки) Как при открытии или печати отчета вывести 'НЕТ ДАННЫХ' если в источнике нет записей ? Если нет записей, то отчет пустой, а на месте Sum-полей выдает #ОШИБКА. Как проверить, есть ли хоть одна запись и если нет, то выдать сообщение и закрыть отчет ? 0

@monstrU 0 / 0 / 1 Регистрация: 30.11.2006 Сообщений: 510
	16.12.2007, 06:42
	в таком случае bof И eof одновременно равны true 0

@Yloo 0 / 0 / 0 Регистрация: 30.05.2007 Сообщений: 86
	16.12.2007, 16:09
	Если это про аксесс, то там у отчета есть такое событие 'Отсутствие данных' 0

@AlexV0 0 / 0 / 0 Регистрация: 08.08.2007 Сообщений: 184
	16.12.2007, 18:07 [ТС]
	Я использовал стандартный обработчик 'Отсутствие данных'. В нем написал вывод MsgBox('Данные для отчета отсутствуют'), После этой message все равно отчет (пустой) открывается.(а этого не нужно). Я добавил команду DoCmd.CancelEvent после MsgBox. Теперь после MsgBox выводится еще один message: Прервано выполнение макрокоманды OpenReport. Как при отсутствии данных для отчета, просто выдать MsgBox('Данные для отчета отсутствуют') и все. Отчет при этом открываться не должен. 0

@AlexV0 0 / 0 / 0 Регистрация: 08.08.2007 Сообщений: 184
	17.12.2007, 18:08 [ТС]
	Все равно после моего message появляется следом за ней 'Прервано выполнение макрокоманды OpenReport' 0

YURA
	18.12.2007, 05:54
	Перед вызовом отчета поместить on error resume next После его вызова, если это конечно необходимо - вернуть установки перехвата ошибок(on error goto 0, например)

msd
	18.12.2007, 11:06
	Тупой вариант: вместо Cancel сделать Close. Тогда прерывания макрокоманды не возникнет.

Tania
	18.12.2007, 12:28
	Ну что, akula, получилось ? Должно было получиться, т.к. все толково люди объяснили

@AlexV0 0 / 0 / 0 Регистрация: 08.08.2007 Сообщений: 184
	18.12.2007, 19:45 [ТС]
	Ну все получилось. Тема закрыта! 0

AiK
	15.12.2007, 23:07
	if @@rowcount <> 0