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

Статья
04/07/2023

Используйте свойство 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 и обратная связь.

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