Свойство ListBox.ItemData (Access)

Свойство ItemData возвращает данные в привязанном столбце для указанной строки в списке. Только для чтения, Variant.

Синтаксис

expression. ItemData (индекс)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Индекс;	Обязательный	Long	Строка в поле со списком или списке, содержащая данные, которые требуется вернуть. Строки в полях со списком и списках индексируются начиная с нуля. Например, чтобы вернуть элемент в шестой строке поля со списком, необходимо указать 5 для аргумента rowindex .

Замечания

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

Свойство ItemData также можно использовать для возврата данных только из выбранных строк в списке. Вы можете выполнить итерацию по коллекции ItemsSelected , чтобы определить, какие строки или строки в списке были выбраны, а затем использовать свойство ItemData для возврата данных в этих строках. Необходимо задать для свойства MultiSelect в списке значение Простой или Расширенный, чтобы разрешить пользователю одновременно выбирать несколько строк.

Используйте свойство Column для возврата данных из указанной строки и столбца, даже если указанный столбец не является привязанным столбцом.

Пример

В следующем примере выводится значение привязанного столбца для каждой выбранной строки в списке EmployeeList в форме Employees . Для свойства MultiSelect в списке должно быть задано значение Simple или Extended.

Sub RowsSelected() 
 Dim ctlList As Control, varItem As Variant 
 
 ' Return Control object variable pointing to list box. 
 Set ctlList = Forms!Employees!EmployeeList 
 ' Enumerate through selected items. 
 For Each varItem in ctlList.ItemsSelected 
 ' Print value of bound column. 
 Debug.Print ctlList.ItemData(varItem) 
 Next varItem 
End Sub

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

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