Открытие отчёта c фильтром из текущей формы

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