Wie ein Listenfeld Abfrage zugreifen

September 27

Wie ein Listenfeld Abfrage zugreifen

Zu wissen, wie die Ergebnisse einer Abfrage auf ein Listenfeld-Steuerelement festlegen und seine Werte in eine andere Abfrage verwenden, kann Ihre Datenbankanwendungen dynamischer gestaltet. Microsoft Office Access können Sie eine grafische Benutzeroberfläche (GUI), erstellen ein Listenfeld-Steuerelement hinzufügen und verwenden, um die Abfragedaten anzuzeigen. Der Zugang ist ein relationales Datenbank-Managementsystem für kleinere Datenbanken verwendet. Eine Abfrage wird verwendet, um Daten aus einer Datenbanktabelle abzurufen. Visual Basic für Applikationen (VBA) ist eine Computer-Programmiersprache verwendet, um Routineaufgaben zu automatisieren.

Anweisungen

1 Öffnen Sie die Microsoft Office Access-Datenbank. Die Northwind-Datenbank ist in der Microsoft Office-Suite enthalten.

2 Klicken Sie auf der Registerkarte "Erstellen" und wählen Sie "Formularentwurf" auf ein neues Formular erstellen. Klicken Sie auf "Listenfeld" im Bereich "Steuerelemente" und dann klicken Sie auf das Formular, halten Sie die Maustaste gedrückt und ziehen Sie Ihre Maus, um ein neues Steuerelement erstellen. Bereich "Steuerelemente" auf die gleiche Weise, die Sie im Listenfeld hinzugefügt eine neue Schaltfläche zum Formular hinzufügen klicken Sie an "Button".

3 Maustaste "Command0" und wählen Sie "Eigenschaften". Klicken Sie auf die Registerkarte "Ereignis" und aktivieren Sie "[Ereignisprozedur]" neben "Zu klicken." Klicken Sie auf das Auslassungszeichen (…) um das Fenster "Microsoft Visual Basic" öffnen.

4 Kopieren Sie und fügen Sie den folgenden Code unter "Private Sub Command0_Click()":

Dim StrSQL As String

StrSQL = "SELECT Bestellungen. [Mitarbeiter-ID]"

StrSQL = StrSQL & "Bestellungen. [Kunden-ID], bestellt. [Auslieferung von Datum]"

StrSQL = StrSQL & "Bestellungen. [Name, Schiff] Bestellungen. [Schiff-Adresse] "

StrSQL = StrSQL & "FROM Bestellungen"

StrSQL = StrSQL & "wo (((Bestellungen. [ Versand Adresse]) = '123 8th Street')); "

Me.List0.RowSource = StrSQL

Dieser Code wird die Tabelle "Orders" Abfragen und legen Sie die Eigenschaft "Datensatzherkunft" des Listenfeld-Steuerelements.

5 Wechseln Sie zurück zu Microsoft Access-Fenster mit der rechten Maustaste "List0", und wählen Sie "Eigenschaften". Klicken Sie auf die Registerkarte "Ereignis" und wählen Sie "[Ereignisprozedur]" neben "Nach Aktualisierung". Klicken Sie auf das Auslassungszeichen (…) um das Fenster "Microsoft Visual Basic" öffnen.

6 Kopieren Sie und fügen Sie den folgenden Code unter "Private Sub List0_Click()":

Dim Dbs als Datenbank

Dim Rst als Recordset

Dim SQLstr As String

Dim I As Integer

Eingestellt von Dbs = CurrentDb

Für I = 0 für mich! List0.ListCount

If Me!List0.Selected(I) Then

SQLstr = "SELECT Orders.[Shipped Date] FROM Orders "

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

Set rst = dbs.OpenRecordset(SQLstr)

rst.MoveLast

rst.MoveFirst

Debug.Print "Shipped Date for item selected: " & rst.Fields(0).Value

rst.Close

End If

Nächsten ich

DBS. Schließen

Dieser Code wird "Versanddatum" in dem Listenfeld ausgewählten Elemente angezeigt. Die Ergebnisse werden im Fenster "Sofort" angezeigt.

7 Schließen Sie das Fenster "Microsoft Visual Basic" mit der rechten Maustaste "Form1", und wählen Sie "Formularansicht." Klicken Sie auf "Command0" im Listenfeld mit Daten zu füllen. Wählen Sie einen Wert aus dem Listenfeld zum Ausführen des Codes für das Listenfeld-Steuerelement.