08. На этапе форматирования отчета, Вы можете управлять записями изменить их содержание или вообще не печатать. Такой метод позволяет Вам не менять запрос, а полностью перейти на управление отчетом из VBA
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
'Выбираем поле Даты и проверяем значения
Select Case Me.Section(acDetail).Controls("Дата")
Case Null 'Если нет даты, то отключаем запись
Cancel = False
Case Is = DateValue("31.12.1999") + 1 'Отображаем книги 2000 года
Cancel = False 'Отключаем оставшиеся записи
Case Else
Cancel = True
End Select
End Sub