Поделиться через

Свойство GroupLevel.GroupOn (Access)

  • Статья

Используйте свойство GroupOn в отчете, чтобы указать, как группировать данные в поле или выражение по типу данных. Например, это свойство позволяет группировать поле даты по месяцам. Для чтения и записи, Integer.

Синтаксис

expression. Groupon

Выражение Переменная, представляющая объект GroupLevel .

Замечания

Параметры свойства GroupOn , доступные для поля, зависят от типа данных, как показано в следующей таблице. Для выражения доступны все параметры. По умолчанию для всех типов данных используется параметр Each Value.

Тип данных поля Setting Группы записей с Visual Basic
Текст (по умолчанию) Каждое значение То же значение в поле или выражении. 0
Символы префикса То же самое первое n число символов в поле или выражении. 1
Дата и время (по умолчанию) Каждое значение То же значение в поле или выражении. 0
Год Даты в том же календарном году. 2
Qtr Даты в том же календарном квартале. 3
Month Даты в том же месяце. 4
Неделя Даты на той же неделе. 5
День Дата на ту же дату. 6
Часы Время в тот же час. 7
Минуты Время в той же минуте. 8
AutoNumber, Currency, Number (по умолчанию) Каждое значение То же значение в поле или выражении. 0
Interval Значения в пределах указанного интервала. 9

В Visual Basic это свойство задается в процедуре Открытия события отчета.

Чтобы присвоить свойству GroupOn значение, отличное от Значения Each, необходимо сначала задать для свойства GroupHeader или GroupFooter значение Да для выбранного поля или выражения.

Пример

В следующем примере задаются свойства SortOrder и grouping для первого уровня группы в отчете Products By Category (Продукты по категории ), чтобы создать список продуктов в алфавитном порядке.

Private Sub Report_Open(Cancel As Integer) 
    ' Set SortOrder property to ascending order. 
    Me.GroupLevel(0).SortOrder = False 
    ' Set GroupOn property. 
    Me.GroupLevel(0).GroupOn = 1 
    ' Set GroupInterval property to 1. 
    Me.GroupLevel(0).GroupInterval = 1 
    ' Set KeepTogether property to With First Detail. 
    Me.GroupLevel(0).KeepTogether = 2 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.