Weten hoe de resultaten van een query ingesteld op een keuzelijst en gebruik maken van haar waarden in een andere query kan uw database applicaties dynamischer te maken . Microsoft Office Access kunt u een grafische gebruikersinterface ( GUI ) te maken , voegt u een keuzelijst en deze gebruiken om query- gegevens weer te geven . Access is een relationele database management systeem vaak gebruikt voor kleinere databases . Een query wordt gebruikt om gegevens uit een database tabel te halen . Visual Basic for Applications ( VBA ) is een programmeertaal gebruikt om routinetaken te automatiseren . Instructies
1 Open de Noordenwind Microsoft Office Access-database . De database Noordenwind is opgenomen in de Microsoft Office-suite . Kopen van 2 Klik op het tabblad "Create " en selecteer " Form Design" naar een nieuw formulier te maken . Klik op " List Box" op de " Controls " venster , klik dan op uw formulier , houd de muisknop ingedrukt en sleep de muis naar een nieuwe keuzelijst maken . Klik op " knop" op de " Controls " venster naar een nieuwe knop op dezelfde manier als de keuzelijst toegevoegd aan het formulier toevoegen .
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 " openen
Kopieer 4 en plak de volgende code onder " Private Sub Command0_Click ( ) " : .
Dim strSQL As String strSQL
= "SELECT Orders. [ Employee ID ] , "
strSQL = strSQL & "Orders . [ Customer ID ] , Orders . [ Verzenddatum ] , "
strSQL = strSQL & "Orders . [ Schip Naam ] , Orders . [ Schip adres] "
strSQL = strSQL & " FROM Orders "
strSQL = strSQL & " WHERE ( ( ( Orders. [ Ship adres] ) = '123 8th Street ' ) ) ; Bestellingen " Me.List0.RowSource = strSQL
Deze code zal de query " " tafel en zet de" RowSource " eigenschap van de keuzelijst .
Switch 5 terug naar het venster van Microsoft Access en klik met de rechtermuisknop " List0 , " selecteer " Eigenschappen . " Klik op het tabblad " Event " en selecteer " [ Event Procedure ] " naast " Na Update. " Klik op de drie puntjes ( ... ) om het venster " Microsoft Visual Basic " openen
Copy 6 en plak de volgende code onder " Private Sub List0_Click ( ) " : .
Dim dbs Als Database Dim rst
als Recordset Dim sqlstr
als Koord
Dim I As Integer Set dbs = CurrentDb
Voor I = 0 To Me! List0.ListCount
Als Me! List0.Selected ( I ) op sqlstr = "SELECT Orders. [ Verzenddatum ] FROM Orders "
dan sqlstr = sqlstr & " WHERE Bestellingen [ Employee ID ] = . " & ( Me! List0.ItemData ( I ) ) & " ; "
Set rst = dbs.OpenRecordset ( sqlstr ) op rst.MoveLast rst.MoveFirst Debug.Print
" Verzenddatum voor geselecteerde item : " & rst.Fields ( 0 ) Value
rst.Close
. End If
Volgende ik dbs.Close
Deze code zal de " Verzenddatum " voor items geselecteerd in de keuzelijst weer te geven . De resultaten zullen worden weergegeven in de " Direct " -venster .
7 de " Basic Microsoft Visual " venster en klik met de rechtermuisknop Close " Form1 ", selecteer "Form View . " Klik op " Command0 " in te vullen de keuzelijst met gegevens . Selecteer een waarde in de keuzelijst om de code uit te voeren voor de keuzelijst .
|
