Å vite hvordan du bruker kontrollene i et skjema og sende verdier fra disse kontrollene til en spørring kan spare deg for tid når du arbeider med databaser . Microsoft Office Access er en relasjonsdatabase styringssystem som vanligvis brukes for mindre databaser . En kombinasjonsboks er en kontroll som brukes i grafiske brukergrensesnitt ( GUI ) for å gi brukeren mer fleksibilitet til å manipulere data . En liste kontroll er nyttig når du trenger å vise søkeresultatene til brukeren. Visual Basic for Applications ( VBA ) er et programmeringsspråk som brukes til å automatisere rutineoppgaver i Access og andre MS Office-programmer . Du trenger
Microsoft Office Access
Vis flere instruksjoner
en

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

Velg "Opprett "-fanen og " Form Design " for å skape en ny form . Klikk " Combo Box" på " Controls " -panelet , og klikk deretter skjemaet og dra musen til å opprette en ny kombinasjonsbokskontroll . Klikk på " Button" på " kontroller" rute og legge til en ny knapp i skjemaet . Velg " List Box" og legge til en ny liste box kontroll i skjemaet.
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 . Trykk " Ctrl" og " A" og trykk "Delete " for å fjerne all eksisterende kode .
4

Kopier og lim inn følgende kode til den nye modulen. Koden vil bruke " Employees" tabell for informasjon.

Option Compare Database

Private Sub Command0_Click ( )

Dim strSQL As String

Dim nameSelected som String

Me.Combo0.SetFocus

nameSelected = Me.Combo0.Text

strSQL = " SELECT ansatte . [ Stillingstittel ] , ansatte . [E - postadresse ] "

strSQL = strSQL &" FROM ansatte "

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

Me.List0.RowSourceType =" Tabell /spørring "

Me.List0.RowSource = strSQL

End Sub

Private Sub Form_Load ( )

Me.List0.ColumnCount = 2

Me.Combo0.RowSourceType = " Tabell /spørring "

Me.Combo0.RowSource = " SELECT ansatte . [ etternavn ] FROM Ansatte ; "

End Sub
5

Lukk " Microsoft Visual Basic "-vinduet og høyreklikk på" Form1 ", velg deretter " Form View " . Velg et etternavn fra kombinasjonsbokskontroll . Klikk " Command0 " for å vise informasjon om de ansatte i listeboksen kontroll basert på siste navnet du valgte .