Не надо макросов.

Private Sub Report_Open(Cancel As Integer)
if me.recordcound=0 then
msgbox "Сам дурак!"
cancel = true
endif
end sub

У Гетца то-ли в "решениях", то-ли в 1-м томе был пример. М.б. он лучше сказанного мною.

---
2ВС
Забыл, а как пишется "то-ли". Не слитно, это я вижу. Но через дефис чи ни?

Открой нужный отчет в режиме конструктора.
Свойства отчета (не выбирая ни какого поля, или нажав на квадратик в перекресии линеек).
Вкладка событие.
Строка открытие.
Три точки [...]
Программа.
Вставляй приведенный мною выше код.
Замени в нем строку "Фиг вам" на культурное сообщение.
Закрой код.
Закрой и сохрани отчет.
---
Только я этого никогда не делал. Я смотрю, у события OnOpen есть Cancel, поэтому про него и написал. Возможно, придется использользовать другое - OnLoad, OnCurrent или др.
---
Кстати, на будущее, у форм/отчетов запрос, который обеспечивает им отображаемые данные, выполняется "асинхронно". Т.е. сначала он смотрит, есть ли хоть одна запись, удовлетворяющая условиям и сортировке, и возвращает ее. Когда появлятся время, "догоняет" это число до 51 (не знаю, почему). А когда появляется потребность, вычисляет все остальное. И это удобно. Поэтому в событии, выполняемом при открытии отчета, нельзя делать проверки, что, скажем, число записей > 200 и др.
---
Знатоки меня поправят, если что. А вообще, я не знаю, зачем последний абзац написал. Но, раз уж написал, не стирать же. М.б. пригодится в жизни.
:)

Ну вот, уже поправили. :))

Пошел дальше квасить