Vide, hvordan at sætte resultaterne af en forespørgsel til en liste kontrol og brug sine værdier i en anden forespørgsel kan gøre din database applikationer mere dynamisk. Microsoft Office Access kan du oprette en grafisk brugergrænseflade ( GUI) , tilføje en liste kontrol og bruge det til at vise forespørgslen data. Access er en relationel database management system der almindeligvis anvendes til mindre databaser. En forespørgsel bruges til at hente data fra en database tabel . Visual Basic for Applications ( VBA ) er en computer programmeringssprog, der anvendes til at automatisere rutineopgaver. Instruktioner
1

Åbn Northwind Microsoft Office Access -database. Databasen Northwind er inkluderet i Microsoft Office-pakken.
2

Klik på " Opret" -fanen og vælg " Form Design " for at oprette en ny formular. Klik på " List Box" på " Controls " ruden , og klik derefter på din formular , skal du holde museknappen nede og trække med musen for at oprette en ny liste box kontrol. Klik på " Button " på " Controls " ruden for at tilføje en ny knap til formularen på samme måde, du har tilføjet på listen.
3

Højreklik på " Command0 " og vælg "Egenskaber . " Klik på " Event" -fanen og vælg " [ Hændelsesprocedure ] " ud for " Ved klik ". Klik på ellipsen (... ) for at åbne "Microsoft Visual Basic " vinduet
4

Kopier og indsæt følgende kode under " Private Sub Command0_Click ()" : .

Dim strSQL As String

strSQL = " SELECT ordrer . [ Medarbejder-id ] , "

strSQL = strSQL & "Ordrer . [ Kunde-id ], ordrer . [ afsendt Dato] , "

strSQL = strSQL & " ordrer . [ Ship navn], ordrer . [ Ship adresse] "

strSQL = strSQL & " FROM Ordrer "

strSQL = strSQL & " WHERE ( ( ( Orders. [ Ship adresse] ) = '123 8th Street ' )), "

Me.List0.RowSource = strSQL

Denne kode vil forespørge på" ordrer "-tabellen og sæt" Rækkekilde " ejendom listen kontrol.
5.

Skift tilbage til Microsoft Access-vinduet og højreklik på " List0 "og derefter vælge " Egenskaber ". Klik på " Event" -fanen og vælg " [ Hændelsesprocedure ] " ved siden af ​​"Efter opdatering". Klik på ellipsen (... ) for at åbne "Microsoft Visual Basic " vinduet
6

Kopier og indsæt følgende kode under " Private Sub List0_Click ()" : .

Dim DBS Som Database

Dim rst Som Recordset

Dim SQLstr As String

Dim I As Integer

Set dbs = CurrentDb

I = 0 To Me ! List0.ListCount
p Hvis Me! List0.Selected (I) Så

SQLstr = " SELECT ordrer . [ afsendt Dato] FROM Ordrer "

SQLstr = SQLstr & " WHERE ordrer [ Medarbejder-id ] = ". & ( mig! List0.ItemData (I) ) & " "

Set rst = dbs.OpenRecordset ( SQLstr )

rst.MoveLast

rst.MoveFirst

Debug.Print " afsendt Dato for post valgt: " & rst.Fields (0) Value

rst.Close
.

End If

Næste jeg

dbs.Close

Denne kode vil vise " afsendt Date" for emner valgt i listen. Resultaterne vil blive vist i " Immediate " vinduet.
7

Luk "Microsoft Visual Basic " vinduet og højre-klik " Form1 " og derefter vælge " Form View ". Klik på " Command0 " at fylde listen med data. Vælg en værdi på listen boksen for at udføre koden for listen kontrol.