have viden om, hvordan du opretter og bruger avancerede former i Microsoft Office Access kan gøre din database applikationer mere kraftfuld. Du kan nemt oprette en formular ved hjælp af guiden Formular , men du vil ikke altid får de resultater, du ønsker . Du har mulighed for at tilføje forskellige kontroller til din formular , når du opretter det manuelt. Derudover kan du skrive Visual Basic for Applications ( VBA ) for at udføre processerne bag denne kontrol. 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
Northwind Database
Vis Flere 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å " Combo Box" på " Controls " ruden og derefter venstre-klik din form og træk 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 "On Click" . Klik på ellipsen ( " ...") for at åbne "Microsoft Visual Basic " Window . 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 indlæse kombinationsboksen kontrol med sidste navne fra "Produkt" tabellen.
Option Sammenlign Database
Private Sub Command2_Click ()
Dim sqlStr As String < br >
Dim prductSelected As String
Me.Combo3.SetFocus
prductSelected = Me.Combo3.Text
sqlStr = "Vælg produkter . [ Produkt navn ] , Produkter . [ Pris ] "
sqlStr = sqlStr &" FROM Produkter "
sqlStr = sqlStr &" WHERE ((( Products. [ Produktnavn] ) = ' "& ( prductSelected ) &" ") ), "
Me.List0.RowSourceType = " Tabel /forespørgsel "
Me.List0.RowSource = sqlStr
< p> End Sub
Private Sub Form_Load ()
Me.List0.ColumnCount = 2
Me.Combo3.RowSourceType = " Tabel /forespørgsel "
< p> Me.Combo3.RowSource = " . Vælg produkter [ Produktnavn] FROM Produkter , "
End Sub
5
Luk "Microsoft Visual Basic " Window og højre-klik " Form1 " og derefter vælge " Form View" . Vælg et Produce Name fra kombinationsboksen kontrol. Klik på " Command0 " for at vise List Price i listen kontrol baseret på produktnavnet , du valgte.