Vide, hvordan man adgang til en kombinationsboks og derefter bruge det i en forespørgsel er nyttigt , når de udvikler edb-applikationer. For eksempel, i Microsoft Access kan en kombinationsboks gøre det lettere for brugeren at manipulere data. Brug af Visual Basic for Applications ( VBA ) computer programmeringssprog , kan du lave en formular , skal du oprette en tabel, og derefter bruge tabellen til at tilføje data til en kombinationsboks. Instruktioner
1

Start Microsoft Office Access 2007 , skal du vælge " Tom database " og derefter på " Opret ".
2

Klik på " Opret" fanen, og vælg derefter " Form Design " for at oprette en ny formular. Klik på " Combo Box" på " Controls " ruden , og klik derefter på din formular og trække det til at oprette en ny kombinationsboks kontrol. Klik på " Button " på " Controls " ruden for at tilføje en ny knap til formularen .
3

Højreklik på " Command0 ", og klik derefter på "Egenskaber". Klik på " Event" fanen, og vælg derefter " [ Hændelsesprocedure ] " ud for " Ved klik ". Klik på ellipsen (... ) for at åbne "Microsoft Visual Basic " vinduet
4

Kopier og indsæt følgende kode under " Private Sub Command0_Click ()" : .

Dim strSQL As String

strSQL = " CREATE TABLE DataTable ( ComboIndx NUMMER , rowData TEXT ) "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO DataTable ( ComboIndx , rowData ) "

strSQL = strSQL &" VALUES (1, ' ROW1 '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO DataTable ( ComboIndx , rowData ) "

strSQL = strSQL & " VALUES (2, ' rÆKKE2 '); "

DoCmd.SetWarnings False
< p> DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO DataTable ( ComboIndx , rowData ) "

strSQL = strSQL & " VALUES (3, ' rÆKKE2 '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " Select DataTable . * fra DataTable "

strSQL = strSQL & " WHERE dataTable.rowData = ' rÆKKE2 « "

Me.Combo0.RowSource = strSQL
5

Skift tilbage til Microsoft Access-vinduet , højre-klik " Combo0 ", og klik derefter på " Egenskaber. " Klik på "Event "-fanen. Vælg . [ Hændelsesprocedure ] "ud for " Efter opdatering ". Klik på ellipsen (... ) for at åbne " Microsoft Visual Basic "vinduet.
6

Kopier og indsæt følgende kode under " Private Sub Combo0_AfterUpdate () " : Hej

Dim dbs som database

Dim rst Som Recordset

Dim comboString As Integer

Dim SQLstr As String
< p > 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 " data for denne combo indeks er : "& rst.Fields (0) Value

rst.Close

dbs.Close
7

Luk . " Microsoft Visual Basic "Window . Højreklik på" Form1 ", og klik derefter på " Form View ". Klik på" Command0 " at fylde kombinationsboksen med data.
8

Vælg en værdi fra kombinationsboksen . du 'll se dataene for dette indeks i en besked boks .