Gewusst wie: Drucken Sie den Inhalt einer ListBox in VBA

Drucken des Inhalts eines Steuerelements "ListBox" in der Visual Basic für Applikationen (VBA)-Programm, können Sie den Inhalt des Steuerelements anzeigen, während Sie Ihr Programm debuggen. VBA kann in allen Microsoft Office-Anwendungen, einschließlich des Zugangs verwendet werden. Eine ListBox ist häufig in Access verwendet, die Benutzer zusätzliche Daten Sortieroptionen geben. Verwenden Sie die Eigenschaft "ItemData" die Elemente im Kombinationsfeld zugreifen, indem Sie eine Zeilennummer angeben und diese durch das Direktfenster angezeigt.

Anweisungen

1 Starten Sie Microsoft Access zu, klicken Sie auf der Registerkarte "Erstellen" und klicken Sie auf "Formulardesign" um ein neues Formular zu erstellen. Klicken Sie auf "Listenfeld" aus dem Bereich "Steuerelemente" und klicken Sie auf das Formular, um ein neues Kombinationsfeld-Steuerelement hinzufügen. Klicken Sie auf "Befehl" um eine neue Schaltfläche hinzuzufügen. Fügen Sie eine zweite Schaltfläche, die nach dem gleichen Verfahren.

2 Maustaste auf die erste Befehlsschaltfläche, und klicken Sie auf "Eigenschaften". Klicken Sie auf die Registerkarte "Ereignis", wählen Sie "[Ereignisprozedur]" und klicken Sie auf die Auslassungsschaltfläche, um ein Click-Ereignis für diese Schaltfläche zu erstellen.

3 Fügen Sie den folgenden Code in der Click-Ereignis der Schaltfläche im Listenfeld mit vier Elementen aufgefüllt:

Me.List0.RowSourceType = "Liste Wert"

Me.List0.AddItem ("Eintrag 1")

Me.List0.AddItem ("Eintrag 2")

Me.List0.AddItem ("Eintrag 3")

Me.List0.AddItem ("Eintrag 4")

4 Wechseln Sie zurück zu Microsoft Access, und mit der rechten Maustaste der ersten Befehlsschaltfläche. Klicken Sie auf "Eigenschaften" und klicken Sie auf die Registerkarte "Ereignis", dann wählen Sie "[Ereignisprozedur]" und klicken Sie auf die Auslassungsschaltfläche, um ein Click-Ereignis für diese Schaltfläche zu erstellen.

5 Fügen Sie den folgenden Code, um den Inhalt in den Steuerelementen "ListBox" in das Direktfenster zu drucken:

Dim X

Für X = 0 bis 3

Debug.Print (Me.List0.ItemData(X))

Nächsten X

6 Wechseln Sie zurück zu Microsoft Access, und klicken Sie auf "Ansicht", um das Formular ausführen. Klicken Sie auf die erste Schaltfläche, um den Steuerelementen "ListBox" auffüllen; Klicken Sie auf die zweite Schaltfläche, um die Elemente in das Direktfenster zu drucken.