Å ha kunnskap om hvordan du oppretter og bruker avanserte former i Microsoft Office Access kan lage dine databaseapplikasjoner kraftigere. Du kan enkelt lage et skjema ved hjelp av skjemaveiviseren men du vil ikke alltid få de resultatene du ønsker . Du må ha fleksibilitet til å legge til ulike kontroller i skjemaet når du oppretter den manuelt . I tillegg kan du skrive Visual Basic for Applications ( VBA ) for å utføre prosessene bak disse kontrollene. 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
Northwind Database
Vis flere 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 " Combo Box" på " Controls " -panelet deretter venstre-klikk skjemaet og dra for å 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 "Egenskaper" . Klikk på "Event "-fanen og velg " [ Hendelsesprosedyre ] " ved siden av "On Click" . Klikk på ellipse ( " ...") for å åpne " Microsoft Visual Basic " Window . 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 laste kombinasjonsbokskontroll med etternavn fra " produkt" tabellen .

Option Compare Database

Private Sub Command2_Click ( )

Dim sqlStr As String

Dim prductSelected As String

Me.Combo3.SetFocus

prductSelected = Me.Combo3.Text

sqlStr = "Velg produkter . [ Produktnavn ] , Products . [ Pris ] "

sqlStr = sqlStr &" FROM Products "

sqlStr = sqlStr &" WHERE ( ( ( Products. [ Produktnavn ] ) = ' "& ( prductSelected ) &" ') ); "

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

Me.List0.RowSource = sqlStr
< p> End Sub

Private Sub Form_Load ( )

Me.List0.ColumnCount = 2

Me.Combo3.RowSourceType = " Tabell /spørring "
< p> Me.Combo3.RowSource = " . velge produkter [ Produktnavn ] Fra produkter ; "

End Sub
5

Lukk "Microsoft Visual Basic " Window og høyreklikk " Form1 ", velg deretter " Form View" . Velg et Produce navn fra kombinasjonsbokskontroll . Klikk " Command0 " for å vise Listepris i listeboksen kontroll basert på Produktnavn du valgte .