LEADERSOFT.ru Разработка на заказ программ и сайтов
Раздел обучения информационным технологиям
Разработка программ на Access
15. Если отчет открыт, то можно использовать специальную форму для его фильтрации
Свойства продукта

 Microsoft Office: 2000,2002,2003,2007,2010  Архив с файлами: Перейти
 Операционная система: Windows XP,Vista  Применение: Базы данных Access
 Продажа: Купить  Файл исходника: ..\Access\08 Отчеты\la_report1.mdb
 Язык интерфейса: Русский

   

'==============================================================
' Включить фильтр
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


Copyright © 2002-2015 ООО Лидер Эксэсс
Сайт работает под управлением: ASP.NET, Access