ListBox.Column-Eigenschaft (Access)

Artikel
04/07/2023

Verwenden Sie die Column-Eigenschaft , um auf eine bestimmte Spalte oder Spalten- und Zeilenkombination in einem mehrspaltigen Kombinationsfeld oder Listenfeld zu verweisen. Schreibgeschützter Variant-Wert.

Syntax

Ausdruck. Spalte (Index, Zeile)

Ausdruck Eine Variable, die ein ListBox-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Index	Erforderlich	Long	Eine lange ganze Zahl, die zwischen 0 und der Einstellung der ColumnCount-Eigenschaft minus 1 liegen kann.
Row	Optional	Variant	Eine ganze Zahl, die zwischen 0 und der Einstellung der ListCount-Eigenschaft minus 1 liegen kann.

HinwBemerkungeneise

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)

Verwenden Sie die Column-Eigenschaft , um den Inhalt eines Kombinationsfelds oder Listenfelds einem anderen Steuerelement zuzuweisen, z. B. einem Textfeld. Um beispielsweise die ControlSource-Eigenschaft eines Textfelds auf den Wert in der zweiten Spalte eines Listenfelds festzulegen, können Sie den folgenden Ausdruck verwenden.

 =Forms!Customers!CompanyName.Column(1)

Wenn der Benutzer keine Auswahl getroffen hat, wenn Sie auf eine Spalte in einem Kombinations- oder Listenfeld verweisen, ist die Eigenschaft Column demzufolge Null. Verwenden Sie die IsNull-Funktion , um zu ermitteln, ob eine Auswahl vorgenommen wurde, wie im folgenden Beispiel gezeigt.

 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.