Att ha kunskap om hur man skapar och använder avancerade former i Microsoft Office Access kan göra dina databasapplikationer mer kraftfull . Du kan enkelt skapa ett formulär med Formulärguiden men du kommer inte alltid att få de resultat du vill ha . Du har möjlighet att lägga till olika kontroller i formuläret när du skapar den manuellt . Dessutom kan du skriva Visual Basic for Applications ( VBA ) för att utföra processer bakom dessa kontroller . Visual Basic for Applications ( VBA ) är en dator programmeringsspråk som används för att automatisera rutinuppgifter i Access och andra MS Office-program . Saker du behöver
Microsoft Office Access
Northwind databas
Visa fler instruktioner
1
Öppna Northwind Microsoft Office Access-databas . Northwind-databasen ingår i Microsoft Office-paketet .
2
Klicka på " Skapa " -fliken och välj " Form Design " för att skapa en ny form . Klicka på " Combo Box " på " Kontroller " fönstret klickar sedan formuläret och dra för att skapa en ny kontroll kombinationsruta . Klicka på " Button " på " Kontroller " fönstret och lägga till en ny knapp i formuläret . Välj " List Box " och lägga till en ny kontroll listruta i formuläret .
3
Högerklicka " Command0 " och välj "Egenskaper" . Klicka på "Event " -fliken och välj " [Event Procedure ] " bredvid " On Click " . Klicka på punkter ( " ... " ) för att öppna " Microsoft Visual Basic " Window . Tryck på " Ctrl " och " A " och tryck på " Delete " för att ta bort all befintlig kod .
4
Kopiera och klistra in följande kod till din nya modulen . Koden kommer att ladda kontrollen kombinationsrutan med efternamn från " Product " bord .
Option Compare Database
Private Sub Command2_Click ( ) katalog
Dim sqlstr As String
Dim prductSelected As String
Me.Combo3.SetFocus
prductSelected = Me.Combo3.Text
sqlstr = "Välj produkter . [ Produktnamn ] , produkter . [ Pris ] "
sqlstr = sqlstr & " från produkter "
sqlstr = sqlstr & " WHERE ( ( ( Products. [ Produktnamn ] ) = ' " & ( prductSelected ) & " ' ) ) ; "
Me.List0.RowSourceType = " Tabell /fråga "
Me.List0.RowSource = sqlstr
End Sub
Private Sub Form_Load ( ) katalog
Me.List0.ColumnCount = 2 Review
Me.Combo3.RowSourceType = " Tabell /fråga "
Me.Combo3.RowSource = " . SELECT produkter [ Produktnamn ] FROM Products , "
End Sub
5
Stäng " Microsoft Visual Basic " Fönster och Högerklicka på " Form1 " och välj sedan " Formulär " . Välj en Produce namn från kombinationsrutan kontroll . Klicka " Command0 " att visa Listpris i listrutan kontroll baserad på produktens namn du valt .
