Å vite hvordan du skal sette resultatene av en spørring til en listeboks -kontroll og bruke sine verdier i en annen spørring kan lage dine databaseapplikasjoner mer dynamisk . Microsoft Office Access gir deg mulighet til å lage et grafisk brukergrensesnitt ( GUI ), tilsett en liste kontroll og bruke den til å vise søkedata . Access er en relasjonsdatabase styringssystem som vanligvis brukes for mindre databaser . En spørring brukes til å hente data fra en database tabell . Visual Basic for Applications ( VBA ) er et programmeringsspråk som brukes til å automatisere rutineoppgaver . Instruksjoner
en

Åpne Northwind Microsoft Office Access database. The Northwind database er inkludert i Microsoft Office-pakken.
2

Klikk på " Create "-fanen og velg " Form Design " for å skape en ny form . Klikk på " List Box" på " Controls " -panelet , og klikk deretter på skjemaet, hold museknappen og dra musen til å lage en ny liste boks kontroll. Klikk på " Button" på " Controls " -ruten for å legge til en ny knapp i skjemaet på samme måte som du har lagt listen .
3

Høyreklikk på " Command0 " og velg " Properties . " Klikk på "Event "-fanen og velg " [ Hendelsesprosedyre ] " ved siden av " Ved klikk . " Klikk på ellipse ( ... ) for å åpne " Microsoft Visual Basic "-vinduet
4

Kopier og lim inn følgende kode under " Private Sub Command0_Click ( )" : .

Dim strSQL As String

strSQL = " SELECT Orders. [ ansatt ID ],"

strSQL = strSQL & " Orders. [ Kunde ID ], Orders. [ Sendt dato ],"

strSQL = strSQL & " Orders. [ Skipets Navn ], Orders. [ Ship adresse] "

strSQL = strSQL & " FROM Orders"

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

Me.List0.RowSource = strSQL

Denne koden vil spørre " Orders " bord og sette" Radkilde " eiendom listeboksen kontroll.
5

Switch tilbake til Microsoft Access-vinduet og høyreklikk " List0 ", velg deretter " Properties ". Klikk på "Event "-fanen og velg " [ Hendelsesprosedyre ] " ved siden av " Etter Update . " Klikk på ellipse ( ... ) for å åpne " Microsoft Visual Basic "-vinduet
6

Kopier og lim inn følgende kode under " Private Sub List0_Click ( )" : .

Dim dBS Som Database

Dim rst Som Recordset

Dim SQLstr As String

Dim jeg As Integer

Set dBS = CurrentDb

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

SQLstr = " SELECT Orders. [ Sendt dato ] FROM Orders"

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

Sett rst = dbs.OpenRecordset ( SQLstr )

rst.MoveLast

rst.MoveFirst

Debug.Print " Sendt dato for elementet valgt :" & rst.Fields ( 0 ) Verdi

rst.Close
.

End If

Neste jeg

dbs.Close

Denne koden vil vise " Sendt dato " for elementer som er valgt i listeboksen . Resultatene vises i " Immediate "-vinduet.
7

Lukk "Microsoft Visual Basic "-vinduet og høyreklikk på " Form1 ", velg deretter " Form View. " Klikk " Command0 " for å fylle listen med data . Velg en verdi fra listen boksen for å utføre koden for listeboksen kontroll.