Свойство ComboBox.ListCount (Access)

Используйте свойство ListCount , чтобы определить количество строк в поле со списком. Для чтения и записи, Long.

Синтаксис

expression. ListCount

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

Замечания

Microsoft Access задает для свойства ListCount количество строк в списке или в поле со списком. Значение свойства ListCount доступно только для чтения и не может быть задано пользователем.

Это свойство доступно только с помощью макроса или Visual Basic. Это свойство можно прочитать только в режиме формы и в режиме таблицы.

Параметр свойства ListCount содержит общее количество строк в списке со списком или списке, которое определяется свойствами RowSource и RowSourceType элемента управления. Если элемент управления основан на таблице или запросе (для свойства RowSourceType задано значение Table/Query, а свойству RowSource задана определенная таблица или запрос), параметр свойства ListCount содержит количество записей в таблице или результирующем наборе запросов. Если свойство RowSourceType имеет значение Список значений, параметр свойства ListCount содержит количество строк, в которых приводит список значений, указанный в свойстве RowSource (это зависит от списка значений и количества столбцов в списке списка или списке со списком, заданное свойством ColumnCount ).

Если для свойства ColumnHeads задано значение Да, строка заголовков столбцов будет включена в число строк, возвращаемых свойством ListCount . Для полей со списком и списков, основанных на таблице или запросе, добавление заголовков столбцов добавляет дополнительную строку. Для полей со списком и списков, основанных на списке значений, добавление заголовков столбцов оставляет количество строк без изменений (первая строка значений становится заголовками столбцов).

Используйте свойство ListCount со свойством ListRows , чтобы указать, сколько строк нужно отобразить в поле со списком.

Пример

В следующем примере свойство ListCount используется для поиска количества строк в поле со списком CustomerList в форме Customers . Затем он задает свойство ListRows для отображения указанного количества строк в списке.

Public Sub SizeCustomerList() 
 
 Dim ListControl As Control 
 
 Set ListControl = Forms!Customers!CustomerList 
 With ListControl 
 If .ListCount < 8 Then 
 .ListRows = .ListCount 
 Else 
 .ListRows = 8 
 End If 
 End With 
 
End Sub

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

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