Wissen, wie man die Ergebnisse einer Abfrage in ein Listenfeld Kontrolle setzen und ihre Werte in einer anderen Abfrage können Sie Ihren Datenbank-Anwendungen mehr Dynamik. Microsoft Office Access ermöglicht es Ihnen, eine grafische Benutzeroberfläche (GUI) erstellen, fügen Sie ein Listenfeld und verwenden Sie es zum Abfragen von Daten anzuzeigen. Access ist ein relationales Datenbank- Management-System häufig für kleinere Datenbanken verwendet. Eine Abfrage wird verwendet, um Daten aus einer Datenbank -Tabelle abzurufen. Visual Basic für Applikationen (VBA ) ist eine Programmiersprache verwendet, um Routineaufgaben zu automatisieren . Anleitung
1

Öffnen Sie die Nordwind Microsoft Office Access-Datenbank. Die Nordwind-Datenbank wird der Microsoft Office-Suite enthalten.
2

Klicken Sie auf " Erstellen " und wählen Sie "Form Design" , eine neue Form zu schaffen. Klicken Sie auf " List Box " auf der "Controls" klicken und dann auf dem Formular klicken , die Maustaste gedrückt halten und ziehen Sie die Maus, um ein neues Listenfeld-Steuerelement zu erstellen. Klicken Sie auf " Taste" auf der "Controls" Fenster, um eine neue Schaltfläche, um Ihre Form fügen Sie die gleiche Weise hinzugefügt das Listenfeld .
3

rechten Maustaste auf " Command0 " und wählen Sie "Eigenschaften . " Klicken Sie auf die Registerkarte "Ereignis" und wählen Sie " [Event Procedure] " neben "On Click. " Klicken Sie auf den Schalter (... ), um die "Microsoft Visual Basic " -Fenster zu öffnen
4

Kopieren Sie den folgenden Code unter " Private Sub Command0_Click () ": .

Dim strSQL As String

strSQL = "SELECT Bestellungen . [Employee ID] , "

strSQL = strSQL & "Orders . [ Kundennummer ] Bestellungen . [ Versanddatum ] , "

strSQL = strSQL & "Orders . [ Schiff Name] , Aufträge . [ Schiff -Adresse] "

strSQL = strSQL & "FROM Orders"

strSQL = strSQL & " WHERE ( ( ( Orders. [ Schiff -Adresse] ) = '123 8th Street ')); Orders "

Me.List0.RowSource = strSQL

Dieser Code wird die Abfrage " " Tisch und stellen Sie die " RowSource " Eigenschaft des Listenfeld-Steuerelement .
5

Schalter zurück auf die Microsoft Access-Fenster mit der rechten Maustaste " List0 ", und wählen Sie dann " Eigenschaften ". Klicken Sie auf die Registerkarte "Ereignis" und wählen Sie " [Event Procedure] " neben " Nach Update". Klicken Sie auf den Schalter (... ), um die "Microsoft Visual Basic " -Fenster zu öffnen
6

Kopieren Sie den folgenden Code unter " Private Sub List0_Click () ": .

Dim dbs As Database Dim rst

Als Recordset

Dim sqlstr As String

Dim I As Integer

Set dbs = CurrentDb

I = 0 To Me ! List0.ListCount

If Me ! List0.Selected (I) Dann

sqlstr = "SELECT Bestellungen . [ Versanddatum ] FROM Orders"

sqlstr = sqlstr & "WHERE Orders [Employee ID ] = . " & ( Me! List0.ItemData (I)) & ";"

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

Debug.Print " Versanddatum für Artikel ausgewählt :" & rst.Fields (0 ) Wert

rst.Close
.

End If Next I

dbs.Close

Dieser Code zeigt die " Versand Date" für Elemente in der Liste ausgewählt . Die Ergebnisse in der "Sofort" -Fenster wird angezeigt .
7

Schließen Sie die "Microsoft Visual Basic "-Fenster mit der rechten Maustaste " Form1 ", und wählen Sie dann "Form View. " Klicken Sie auf " Command0 " , um die Liste mit Daten zu füllen. Wählen Sie einen Wert aus dem Listenfeld den Code für das Listenfeld-Steuerelement auszuführen.