ComboBox.ColumnCount-Eigenschaft (Access)

Verwenden Sie die ColumnCount-Eigenschaft , um die Anzahl der Spalten anzugeben, die in einem Listenfeld oder im Listenfeldteil eines Kombinationsfelds angezeigt oder an OLE-Objekte in einem Diagrammsteuerelement oder einem ungebundenen Objektrahmen gesendet werden. Ganze Zahl mit Lese-/Schreibzugriff.

Syntax

Ausdruck. Columncount

Ausdruck Eine Variable, die ein ComboBox-Objekt darstellt.

HinwBemerkungeneise

Die ColumnCount-Eigenschaft enthält eine ganze Zahl zwischen 1 und der maximalen Anzahl von Feldern in der Tabelle, Abfrage oder SQL-Anweisung oder der maximalen Anzahl von Werten in der Wertliste, die in der RowSource-Eigenschaft des Steuerelements angegeben wird.

Für Tabellenfelder können Sie diese Eigenschaft auf der Registerkarte Nachschlagen im Abschnitt Feldeigenschaften der Tabellenentwurfsansicht für Felder festlegen, bei denen die DisplayControl-Eigenschaft auf Kombinationsfeld oder Listenfeld festgelegt ist.

Wenn Sie beispielsweise die ColumnCount-Eigenschaft für ein Listenfeld in einem Mitarbeiterformular auf 3 festlegen, kann eine Spalte Nachnamen auflisten, eine andere kann Vornamen auflisten, und die dritte kann Mitarbeiter-ID-Nummern auflisten.

Ein Kombinations- oder Listenfeld kann mehrere Spalten enthalten. Wenn die RowSource-Eigenschaft des Steuerelements den Namen einer Tabelle, Abfrage oder SQL-Anweisung enthält, werden in einem Kombinationsfeld oder Listenfeld die Felder aus dieser Quelle von links nach rechts bis zu der von der ColumnCount-Eigenschaft angegebenen Zahl angezeigt.

Um eine andere Kombination von Feldern anzuzeigen, erstellen Sie eine neue Abfrage oder eine neue SQL-Anweisung für die RowSourceRowSource-Eigenschaft unter Angabe der gewünschten Felder und der gewünschten Reihenfolge.

Wenn die RowSource-Eigenschaft eine Liste von Werten enthält (die RowSourceType-Eigenschaft ist auf Value List festgelegt), werden die Werte in die Zeilen und Spalten des Kombinationsfelds oder Listenfelds in der Reihenfolge eingefügt, in der sie in der RowSource-Eigenschaft aufgeführt sind. Beispiel: Die RowSource-Eigenschaft enthält die Liste "Rot; Grün; Blau; Gelb" und die ColumnCount-Eigenschaft auf 2 festgelegt ist, enthält die erste Zeile des Kombinationsfelds oder listenfelds "Rot" in der ersten Spalte und "Grün" in der zweiten Spalte. Die zweite Zeile enthält "Blue" in der ersten Spalte und "Yellow" in der zweiten Spalte.

Verwenden Sie die ColumnWidths-Eigenschaft , um die Breite der im Steuerelement angezeigten Spalten festzulegen oder Spalten auszublenden.

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

Das folgende Beispiel zeigt, wie Sie ein Kombinationsfeld erstellen, das an eine Spalte gebunden ist, während eine andere angezeigt wird. Das Festlegen der ColumnCount-Eigenschaft auf „2“ gibt an, dass das cboDept-Kombinationsfeld die ersten beiden Spalten der Datenquelle anzeigt, die in der RowSource-Eigenschaft angegeben wird. Das Festlegen der BoundColumn-Eigenschaft auf „1“ gibt an, dass der in der ersten Spalte gespeicherte Wert zurückgegeben wird, wenn Sie den Wert des Kombinationsfelds prüfen.

Die ColumnWidths-Eigenschaft gibt die Breite der zwei Spalten an. Durch Festlegen der Breite der ersten Spalte auf 0in. wird die erste Spalte nicht im Kombinationsfeld angezeigt.

Private Sub cboDept_Enter()
    With cboDept
        .RowSource = "SELECT * FROM tblDepartments ORDER BY Department"
        .ColumnCount = 2
        .BoundColumn = 1
        .ColumnWidths = "0in.;1in."
    End With
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.