LEADERSOFT.ru Разработка на заказ программ и сайтов
ЕСЛИ БАЗА ВАМ НУЖНА В ЛИДЕРСОФТ ЗАЙДИ СПЕРВА!
Все примеры Microsoft Access - VBA
























































15. Если отчет открыт, то можно использовать специальную форму для его фильтрации

Все примеры Microsoft Access
'==============================================================
' Включить фильтр
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