ComboBox.Column-Eigenschaft (Access)

Sie können mit der Eigenschaft Column auf eine bestimmte Spalte oder eine Kombination aus Spalten und Zeilen in einem mehrspaltigen Kombinationsfeld oder einem Listenfeld verweisen. Schreibgeschützter Variant-Wert.

Syntax

expression.Column (Index, Row)

Ausdruck Eine Variable, die ein ComboBox-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Index	Erforderlich	Long	Ein Wert vom Typ „Long Integer“ zwischen 0 und der Einstellung der ColumnCount-Eigenschaft minus 1.
Row	Optional	Variant	Eine ganze Zahl zwischen 0 und der Einstellung der ListCount -Eigenschaft minus 1.

Hinweise

Use 0 to refer to the first column, 1 to refer to the second column, and so on. Use 0 to refer to the first row, 1 to refer to the second row, and so on. For example, in a list box containing a column of customer IDs and a column of customer names, you could refer to the customer name in the second column and fifth row as:

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

Sie können die Eigenschaft Column verwenden, um die Inhalte eines Kombinationsfelds oder Listenfelds einem anderen Steuerelement wie einem Textfeld zuzuweisen. Beispielsweise könnten Sie den folgenden Ausdruck verwenden, um die Eigenschaft ControlSource eines Textfelds auf den Wert in der zweiten Spalte eines Listenfelds festzulegen.

 =Forms!Customers!CompanyName.Column(1)

Wenn Benutzer keine Auswahl treffen, wenn Sie auf eine Spalte in einem Kombinations- oder Listenfeld verweisen, ist die Eigenschaft Column demzufolge Null. Sie können die Funktion IsNull verwenden, um zu bestimmen, ob eine Auswahl analog zum folgenden Beispiel vorgenommen wurde.

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

Hinweis

Sie können die Eigenschaftseinstellung ColumnCount überprüfen, um zu bestimmen, über wie viele Spalten ein Kombinations- oder Listenfeld verfügt.

Beispiel

Im folgenden Beispiel werden die Eigenschaften Column und ColumnCount verwendet, um die Werte einer Listenfeldauswahl zu drucken.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.