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

Dim sFilter$
    If Me.FilterOn = True Then sFilter = Me.Filter
    'Открытие отчёта на просмотр c фильтром из текущей формы
    'Opening a report for viewing with a filter from the current form
    DoCmd.OpenReport "Your report mame, acViewPreview, , sFilter