Veta hur man använder kontrollerna i ett formulär och skicka värden från dessa kontroller för att en fråga kan du spara tid när du arbetar med databaser . Microsoft Office Access är en relationsdatabas management system som vanligen används för mindre databaser . En kombinationsruta är en kontroll som används i grafiska användargränssnitt ( GUI ) för att ge användaren större flexibilitet för att manipulera data . En listruta kontroll är användbar när du behöver visa frågeresultat för användaren . 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
Visa fler instruktioner
1
Öppna Northwind Microsoft Office Access-databas . Northwind-databasen ingår i Microsoft Office-paketet .
2
Välj " Skapa "-fliken och " Form Design " för att skapa en ny form . Klicka på " Combo Box " på " Controls " rutan , och klicka sedan på formuläret och dra musen 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 " Vid klickning . " Klicka på ellips ( ... ) för att öppna " Microsoft Visual Basic " fönstret . 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 använda " Anställda " tabellen för information.
Option Compare Database
Private Sub Command0_Click ( ) katalog
Dim strSQL As String
Dim nameSelected As String
Me.Combo0.SetFocus
nameSelected = Me.Combo0.Text
strSQL = " SELECT Anställda . [ Befattning ] , anställda . [ E - postadress ] "
strSQL = strSQL & " FROM Anställda "
strSQL = strSQL & " WHERE ( ( ( Employees. [ Efternamn ] ) = ' " & ( nameSelected ) & " ' ) ) , "
Me.List0.RowSourceType = " Tabell /fråga "
Me.List0.RowSource = strSQL
End Sub
Private Sub Form_Load ( ) katalog
Me.List0.ColumnCount = 2 Review
Me.Combo0.RowSourceType = " Tabell /fråga "
Me.Combo0.RowSource = " SELECT Anställda . [ Efternamn ] FROM Anställda ; "
End Sub
5
Stäng " Microsoft Visual Basic " fönstret och högerklicka på" Form1 "och välj sedan " Formulär " . Välj ett efternamn från kombinationsrutan kontroll . Klicka " Command0 " för att visa information om anställda i listrutan kontroll baserat på efternamnet du valt .
