Propriedade ListBox.ItemData (Access)

A propriedade ItemData retorna os dados na coluna vinculada para a linha especificada em uma caixa de lista. Somente leitura Variant.

Sintaxe

expressão. ItemData (Índice)

Expressão Uma variável que representa um objeto ListBox .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Obrigatório	Long	A linha na caixa de combinação ou na caixa de listagem que contém os dados que você deseja retornar. Linhas em caixas de combinação e caixas de lista são indexadas a partir de zero. Por exemplo, para retornar um item na sexta linha de uma caixa de combinação, especifique 5 como o argumento rowindex.

Comentários

A propriedade ItemData permite percorrer a lista de entradas em uma caixa de combinação ou caixa de listagem. Por exemplo, suponha que você queira percorrer todos os itens em uma caixa de listagem para procurar uma entrada específica. Use a propriedade ListCount para determinar o número de linhas na caixa de lista e use a propriedade ItemData para retornar os dados da coluna vinculada em cada linha.

Você também pode usar a propriedade ItemData para retornar dados somente de linhas selecionadas em uma caixa de listagem. Você pode iterar por meio da coleção ItemsSelected para determinar quais linhas ou linhas na caixa de lista foram selecionadas e, em seguida, usar a propriedade ItemData para retornar os dados nessas linhas. Você deve definir a propriedade MultiSelect da caixa de listagem como Simple ou Extended para permitir que o usuário selecione mais de uma linha por vez.

Use a propriedade Column para retornar dados de uma linha e coluna especificadas, mesmo que a coluna especificada não seja a coluna vinculada.

Exemplo

O exemplo a seguir imprime o valor da coluna vinculada para cada linha selecionada na caixa de lista EmployeeList em um formulário Employees . A propriedade MultiSelect da caixa de listagem deve ser definida como Simple ou 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.