15. Если отчет открыт, то можно использовать специальную форму для его фильтрации
'==============================================================
' Включить фильтр
Private Sub allFirms_AfterUpdate()
Dim rpt As Report
Set rpt = Reports("Пример 15")
rpt.Filter = "Описание='" Me.allFirms "'"
rpt.FilterOn = True
End Sub
'==============================================================
' Удалить фильтр
Private Sub butDelete_Click()
Reports("Пример 15").FilterOn = False
End Sub
'==============================================================
' Закрытие отчета
Private Sub Form_Close()
DoCmd.Close acReport, "Пример 15"
End Sub
'==============================================================
' Открыть отчет
Private Sub Form_Open(Cancel As Integer)
DoCmd.OpenReport "Пример 15", acViewPreview
End Sub