Weten hoe u besturingselementen gebruiken in een vorm en laat de waarden van die controles tot een query kunt u tijd besparen bij het werken met databases . Microsoft Office Access is een relationele database management systeem vaak gebruikt voor kleinere databases . Een combo box is een controle gebruikt in de Graphical User Interfaces ( GUI ) om de gebruiker te voorzien van meer flexibiliteit om gegevens te manipuleren . Een keuzelijst is handig wanneer u nodig hebt om query resultaten worden weergegeven aan de gebruiker . Visual Basic for Applications ( VBA ) is een programmeertaal gebruikt om routinetaken in Access en andere MS Office-toepassingen te automatiseren . Wat je nodig hebt
Microsoft Office Access
Toon Meer Aanwijzingen
1 Open de Noordenwind Microsoft Office Access-database . De database Noordenwind is opgenomen in de Microsoft Office-suite . Kopen van 2 Selecteer het tabblad "Create " en " Form Design" naar een nieuw formulier te maken . Klik op " Combo Box" op de " Controls " venster , klik vervolgens op uw formulier en sleep je muis om een nieuwe keuzelijst met invoervak te creëren . Klik op " knop" op de " Controls " venster en voeg een nieuwe knop aan uw formulier . Selecteer " List Box" en voeg een nieuwe keuzelijst aan uw formulier .
Klik met de rechtermuisknop " Command0 " 3 en selecteer "Eigenschappen . " Klik op het tabblad " Event " en selecteer " [ Event Procedure ] " naast " Bij klikken . " Klik op de drie puntjes ( ... ) om het venster " Microsoft Visual Basic " te openen . Druk op " Ctrl " en " A " en druk op " Delete " om alle bestaande code te verwijderen .
Kopieer 4 en plak de volgende code op uw nieuwe module . De code zal de " Werknemers " tabel gebruiken voor informatie . Optie
Vergelijk Database
Private Sub Command0_Click ( ) Dim strSQL
als Koord
Dim nameSelected As String Me.Combo0.SetFocus
nameSelected = Me.Combo0.Text strSQL
= "SELECT Werknemers . [ Job Title ] , Werknemers . [ E - mail adres ] "
strSQL = strSQL & " FROM Employees "
strSQL = strSQL & " WHERE ( ( ( Employees. [ Achternaam ] ) = " " & ( nameSelected ) & " " ) ) , " Me.List0.RowSourceType =
" Tabel /Query " Me.List0.RowSource = strSQL
End Sub Private Sub Form_Load
( ) Me.List0.ColumnCount = 2 Me.Combo0.RowSourceType
= " Tabel /Query " Me.Combo0.RowSource = " SELECT Werknemers
. [ Last Name
] FROM Werknemers ; Basic " venster en klik met de rechtermuisknop " Microsoft Visual Form1 " End Sub
5
de buurt " , " kies vervolgens" Form View " . Selecteer een laatste naam uit de keuzelijst met invoervak . Klik op " Command0 " om informatie werknemer weer te geven in de keuzelijst controle op basis van de achternaam die u hebt geselecteerd .
|
