ник: snipe
У Анатолия(Киев) как всегда красивое решение
вот сделал как у него написано
кнопка64 расположена на форме
Private Sub Кнопка64_Click()
If Me.FilterOn = True Then
DoCmd.OpenReport "Отчет", acViewPreview, "", Me.Filter, acNormal
Else
DoCmd.OpenReport "Отчет", acViewPreview
End If
End Sub