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
























































08. На этапе форматирования отчета, Вы можете управлять записями изменить их содержание или вообще не печатать. Такой метод позволяет Вам не менять запрос, а полностью перейти на управление отчетом из VBA

Все примеры Microsoft Access
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
    'Выбираем поле Даты и проверяем значения
    Select Case Me.Section(acDetail).Controls("Дата")
    Case Null 'Если нет даты, то отключаем запись
        Cancel = False
    Case Is >= DateValue("31.12.1999") + 1 'Отображаем книги 2000 года
        Cancel = False 'Отключаем оставшиеся записи
    Case Else
        Cancel = True
    End Select
End Sub