Vide, hvordan at bruge kontrol i en form og overføre værdier fra disse kontrolelementer til en forespørgsel kan du spare tid , når du arbejder med databaser. Microsoft Office Access er en relationel database management system der almindeligvis anvendes til mindre databaser. En kombinationsboks er en kontrol , der anvendes i Graphical User Interfaces ( GUI ) for at give brugeren mere fleksibilitet til at manipulere data. En liste box kontrol er nyttig, når du har brug for at vise forespørgslen resultater for brugeren. Visual Basic for Applications ( VBA ) er en computer programmeringssprog, der anvendes til at automatisere rutineopgaver i Access og andre MS Office-programmer. Ting du skal
Microsoft Office Access
Vis Flere Instruktioner
1

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

Vælg "Opret " fanen og " Form Design " for at oprette en ny formular. Klik på " Combo Box" på " Controls " ruden , og klik derefter på din form og træk med musen for at oprette en ny kombinationsboks kontrol. Klik på " Button " på " Controls " ruden og tilføje en ny knap til formularen . Vælg " List Box" og tilføje en ny liste box kontrol til formularen .
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. Tryk på " Ctrl" og "A " og tryk " Delete " for at fjerne alle eksisterende kode.
4

Kopier og indsæt følgende kode til din nye modul. Koden vil bruge " Medarbejdere " tabel for information.

Option Sammenlign Database

Private Sub Command0_Click ()

Dim strSQL As String

Dim nameSelected As String

Me.Combo0.SetFocus

nameSelected = Me.Combo0.Text

strSQL = "Vælg ansatte. [ Stilling ] Medarbejdere . [E-mail -adresse ] "

strSQL = strSQL &" FROM Medarbejdere "

strSQL = strSQL &" WHERE ((( Employees. [ Efternavn ] ) = ' "& ( nameSelected ) &" ") ) ; "

Me.List0.RowSourceType =" Tabel /forespørgsel "

Me.List0.RowSource = strSQL

End Sub

Private Sub Form_Load ( )

Me.List0.ColumnCount = 2

Me.Combo0.RowSourceType = " Tabel /forespørgsel "

Me.Combo0.RowSource = "Vælg ansatte. [ Efternavn ] FROM Medarbejdere , "

End Sub
5

Luk " Microsoft Visual Basic " vinduet og højre-klik" Form1 "og derefter vælge " Form View " . Vælg et efternavn fra kombinationsboksen kontrol. Klik på " Command0 " for at vise medarbejderen oplysninger i listen kontrol baseret på den sidste navn, du har valgt.