Control.ItemsSelected-Eigenschaft (Access)

Verwenden Sie die ItemsSelected-Eigenschaft , um einen schreibgeschützten Verweis auf die ausgeblendete ItemsSelected-Auflistung zurückzugeben. Diese ausgeblendete Auflistung kann für den Zugriff auf Daten in den ausgewählten Zeilen eines Listenfeld-Steuerelements mit Mehrfachauswahl verwendet werden.

Syntax

Ausdruck. ElementeAusgewählt

Ausdruck Eine Variable, die ein Control-Objekt darstellt.

Hinweise

Die Auflistung ItemsSelectedItemsSelected unterscheidet sich dadurch von anderen Auflistungen, dass es sich bei ihr um eine Auflistung von Variablen des Datentyps VariantsVariant statt von Objekten handelt. Jede Variable des Datentyps VariantVariant ist ein ganzzahliger Index, der auf eine ausgewählte Zeile in einem Listen- oder Kombinationsfeld verweist.

Verwenden Sie die ItemsSelected-Auflistung in Verbindung mit der Column-Eigenschaft oder der ItemData-Eigenschaft , um Daten aus ausgewählten Zeilen in einem Listen- oder Kombinationsfeld abzurufen. Sie können die ItemsSelected -Auflistung mit der For Each...Next -Anweisung anzeigen.

Wenn Sie z. B. ein Mitarbeiter-Listenfeld in einem Formular haben, können Sie die ItemsSelected-Auflistung auflisten und die ItemData-Eigenschaft des Steuerelements verwenden, um den Wert der gebundenen Spalte für jede ausgewählte Zeile im Listenfeld zurückzugeben.

Um die Mehrfachauswahl von Zeilen in einem Listenfeld zu aktivieren, legen Sie die MultiSelect-Eigenschaft des Steuerelements auf Einfach oder Erweitert fest.

Die ItemsSelected-Auflistung verfügt über zwei Eigenschaften, die Count - und Item-Eigenschaften , und keine Methoden.

Beispiel

Im folgenden Beispiel wird der Wert der gebundenen Spalte für jede ausgewählte Zeile in einem Listenfeld Namen in einem Kontaktformular ausgegeben. Zum Testen dieses Beispiels erstellen Sie das Listenfeld, und stellen Sie seine BoundColumn-Eigenschaft nach Belieben und seine MultiSelect-Eigenschaft auf Einzeln oder Erweitert ein. Wechseln Sie zur Formularansicht, wählen Sie mehrere Zeilen im Listenfeld aus, und führen Sie den folgenden Code aus.

Sub BoundData() 
 Dim frm As Form, ctl As Control 
 Dim varItm As Variant 
 
 Set frm = Forms!Contacts 
 Set ctl = frm!Names 
 For Each varItm In ctl.ItemsSelected 
 Debug.Print ctl.ItemData(varItm) 
 Next varItm 
End Sub

Im folgenden Beispiel wird dasselbe Listenfeld-Steuerelement verwendet, aber die Werte jeder Spalte werden für jede ausgewählte Zeile im Listenfeld ausgegeben, anstatt nur die Werte in der gebundenen Spalte.

Sub AllSelectedData() 
 Dim frm As Form, ctl As Control 
 Dim varItm As Variant, intI As Integer 
 
 Set frm = Forms!Contacts 
 Set ctl = frm!Names 
 For Each varItm In ctl.ItemsSelected 
 For intI = 0 To ctl.ColumnCount - 1 
 Debug.Print ctl.Column(intI, varItm) 
 Next intI 
 Debug.Print 
 Next varItm 
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.