Propriedade Control.Column (Access)

Use a propriedade Column para se referir a uma combinação de coluna ou coluna e linha específica em uma caixa de combinação de várias colunas ou caixa de lista. Somente leitura Variant.

Sintaxe

expressão. Coluna (Índice, Linha)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Obrigatório	Long	Um inteiro longo que pode variar de 0 até a configuração da propriedade ColumnCount menos um.
Row	Opcional	Variant	Um inteiro que pode estar no intervalo de 0 até a configuração da propriedade ListCount menos 1.

Comentários

Use 0 para fazer referência à primeira coluna, 1 para a segunda coluna e assim por diante. Use 0 para fazer referência à primeira linha, 1 para a segunda linha e assim por diante. Por exemplo, em uma caixa de listagem que contém um coluna de identificações de clientes e uma coluna de nomes de clientes, você poderia fazer referência ao nome do cliente na segunda coluna e quinta linha da seguinte forma:

 Forms!Contacts!Customers.Column(1, 4)

Use a propriedade Column para atribuir o conteúdo de uma caixa de combinação ou caixa de listagem a outro controle, como uma caixa de texto. Por exemplo, para definir a propriedade ControlSource de uma caixa de texto como o valor na segunda coluna de uma caixa de listagem, você pode usar a expressão a seguir.

 =Forms!Customers!CompanyName.Column(1)

Se o usuário não tiver feito nenhuma seleção quando se referir a uma coluna em uma caixa de combinação ou caixa de listagem, a configuração da propriedade de coluna será Nulo. Use a função IsNull para determinar se uma seleção foi feita, como no exemplo a seguir.

 If IsNull(Forms!Customers!Country) 
   Then MsgBox "No selection." 
 End If

Observação

Para determinar quantas colunas há em uma caixa de combinação ou em uma caixa de listagem, você poderá inspecionar a configuração da propriedade ColumnCount.

Exemplo

O exemplo a seguir usa a propriedade Column e a propriedade ColumnCount para imprimir os valores de uma seleção de caixa de listagem.

Public Sub Read_ListBox() 
 
 Dim intNumColumns As Integer 
 Dim intI As Integer 
 Dim frmCust As Form 
 
 Set frmCust = Forms!frmCustomers 
 If frmCust!lstCustomerNames.ItemsSelected.Count > 0 Then 
 
 ' Any selection? 
 intNumColumns = frmCust!lstCustomerNames.ColumnCount 
 Debug.Print "The list box contains "; intNumColumns; _ 
 IIf(intNumColumns = 1, " column", " columns"); _ 
 " of data." 
 
 Debug.Print "The current selection contains:" 
 For intI = 0 To intNumColumns - 1 
 ' Print column data. 
 Debug.Print frmCust!lstCustomerNames.Column(intI) 
 Next intI 
 Else 
 Debug.Print "You haven't selected an entry in the " _ 
 & "list box." 
 End If 
 
 Set frmCust = Nothing 
 
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.