Weten hoe u een keuzelijst en vervolgens gebruiken in een query is handig bij het ontwikkelen van computertoepassingen . Bijvoorbeeld in Microsoft Access , kan een keuzelijst maken het makkelijker voor de gebruiker om gegevens te manipuleren . Met behulp van de Visual Basic for Applications ( VBA ) programmeertaal , kunt u een formulier maakt , maakt u een tafel , en dan de tabel gebruiken om gegevens naar een keuzelijst toe te voegen . Instructies
1 Start Microsoft Office Access 2007 , kiest u " Lege database , " en klik vervolgens op "Create . " Kopen van 2 Klik op het tabblad "Create " , en selecteer vervolgens " Form Design " naar een nieuw formulier te maken . Klik op " Combo Box" op de " Controls " venster , klik vervolgens op uw formulier en sleep het naar een nieuwe keuzelijst met invoervak te creëren . Klik op " knop" op de " Controls " venster naar een nieuwe knop toe te voegen aan uw formulier .
3 Klik met de rechtermuisknop " Command0 , " en klik vervolgens op 'Eigenschappen'. Klik op het tabblad " Event " en kies vervolgens " [ 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
= " CREATE TABLE dataTable ( ComboIndx NUMBER , rowData TEKST ) ; " DoCmd.RunSQL ( strSQL ) strSQL
= " INSERT INTO dataTable ( ComboIndx , rowData ) "
strSQL = strSQL & " VALUES ( 1 , ' rij1 ' ) ; " DoCmd.SetWarnings
False DoCmd.RunSQL ( strSQL ) op Twitter strSQL = " INSERT INTO dataTable ( ComboIndx , rowData ) "
strSQL = strSQL & " VALUES ( 2 , ' rij2 ' ) ; " DoCmd.SetWarnings
False
DoCmd.RunSQL ( strSQL ) strSQL
= " INSERT INTO dataTable ( ComboIndx , rowData ) "
strSQL = strSQL & " VALUES ( 3 , ' rij2 ' ) ; "
DoCmd.SetWarnings Valse DoCmd.RunSQL ( strSQL ) op strSQL =
" Select dataTable . * van dataTable "
strSQL = strSQL & " WHERE dataTable.rowData = ' rij2 ' ; " Me.Combo0.RowSource = strSQL
Switch
5 terug naar het Access- venster van Microsoft , klik met de rechtermuisknop " Combo0 , " en vervolgens op" Eigenschappen . " Klik op het tabblad " Event " . Kiezen . [ Event Procedure ] " naast" Na Update. " Klik op de drie puntjes ( ... ) om het te openen " Microsoft Visual Basic " venster .
Copy 6 en plak de volgende code onder " Private Sub Combo0_AfterUpdate ( ) " : Dim dbs
Als Database Dim rst
als Recordset Dim comboString
als Geheel Dim sqlstr
als Koord
Set dbs = CurrentDb
comboString = Me.Combo10.Text sqlstr
= " SELECT dataTable.rowData FROM dataTable "
sqlstr = sqlstr & " WHERE dataTable.ComboIndx = " & ( comboString ) & " ; "
Set rst = dbs.OpenRecordset ( sqlstr ) rst.MoveLast
rst.MoveFirst MsgBox
" gegevens voor deze combo index is : " & rst.Fields ( 0 ) Value rst.Close dbs.Close
7
Sluit het . " Microsoft Visual Basic " Window . rechtermuisknop op " Form1 " en klik vervolgens op " Form View . " Klik " Command0 " in te vullen de combo box met data .
8 Selecteer een waarde uit de keuzelijst . U ' ll de gegevens voor die index te zien in een message box .
|
