Propiedad ListBox.Column (Access)

Utilice la propiedad Column para hacer referencia a una columna o una combinación de columna y fila específicas en un cuadro combinado de varias columnas o un cuadro de lista. Variant de solo lectura.

Sintaxis

expresión. Columna (índice, fila)

Expresión Variable que representa un objeto ListBox .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Index	Obligatorio	Long	Número entero largo cuyo valor puede oscilar entre 0 hasta el valor de la propiedad ColumnCount menos uno.
Row	Opcional	Variant	Número entero cuyo valor puede oscilar entre 0 hasta el valor de la propiedad ListCount menos 1.

Comentarios

Use 0 para hacer referencia a la primera columna, 1 para hacer referencia a la segunda columna, etc. Use 0 para hacer referencia a la primera fila, 1 para hacer referencia a la segunda fila, etc. Por ejemplo, en un cuadro de lista que contiene una columna de identificadores de cliente y una columna de nombres de cliente, puede hacer referencia al nombre del cliente en la segunda columna y la quinta fila como:

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

Utilice la propiedad Column para asignar el contenido de un cuadro combinado o un cuadro de lista a otro control, como un cuadro de texto. Por ejemplo, para establecer la propiedad ControlSource de un cuadro de texto en el valor de la segunda columna de un cuadro de lista, puede usar la siguiente expresión.

 =Forms!Customers!CompanyName.Column(1)

Si el usuario no realizó ninguna selección cuando se hace referencia a una columna de un cuadro combinado o un cuadro de lista, el valor de la propiedad Column será Null. Use la función IsNull para determinar si se ha realizado una selección, como en el ejemplo siguiente.

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

Nota:

Para determinar cuántas columnas tiene un cuadro combinado o un cuadro de lista, puede fijarse el valor de la propiedad ColumnCount.

Ejemplo:

En el siguiente ejemplo, se usan la propiedad Column y la propiedad ColumnCount para imprimir los valores de una selección de un cuadro de lista.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.