Dim sFilter$ If Me.FilterOn = True Then sFilter = Me.Filter 'Открытие отчёта на просмотр c фильтром из текущей формы DoCmd.OpenReport "Имя Отчета", acViewPreview, , sFilter