Å vite hvordan man skal få tilgang til en kombinasjonsboks og deretter bruke den i en spørring er nyttig for utvikling av dataprogrammer. For eksempel , i Microsoft Access , kan en kombinasjonsboks gjøre det enklere for brukeren å manipulere data . Bruke Visual Basic for Applications ( VBA ) programmeringsspråk , kan du lage et skjema, lage en tabell , og deretter bruke tabellen for å legge til data i en kombinasjonsboks. Instruksjoner
en

start Microsoft Office Access 2007 , velger du " Blank Database ", og klikk deretter på "Create ".
2

Klikk på " Create "-kategorien , og velg deretter " Form Design " for å skape en ny form . Klikk " Combo Box" på " Controls " -panelet , og klikk deretter skjemaet og dra det å opprette en ny kombinasjonsbokskontroll . Klikk på " Button" på " Controls " -ruten for å legge til en ny knapp i skjemaet .
3

Høyreklikk på " Command0 ", og klikk deretter på "Egenskaper". Klikk på " Event" -kategorien, og velg deretter " [ Hendelsesprosedyre ] " ved siden av " Ved klikk . " Klikk på ellipse ( ... ) for å åpne " Microsoft Visual Basic "-vinduet
4

Kopier og lim inn følgende kode under " Private Sub Command0_Click ( )" : .

Dim strSQL As String

strSQL = " CREATE TABLE datatable ( ComboIndx NUMMER , rowData TEKST ),"

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 ​​, ' ROW2 '); "

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

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

strSQL = strSQL & " VALUES ( 3 , ' ROW2 '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = "Velg datatable . * fra datatable "

strSQL = strSQL & " WHERE dataTable.rowData = ' ROW2 '; "

Me.Combo0.RowSource = strSQL
5

Switch tilbake til Microsoft Access Window, høyreklikk på" Combo0 , " og klikk" Egenskaper. " Klikk på "Event "-kategorien . Velg . [ Hendelsesprosedyre ] " ved siden av" Etter Update . "Klikk på ellipse ( ... ) for å åpne" Microsoft Visual Basic "-vinduet.
6

Kopier og lim inn følgende kode under" Private Sub Combo0_AfterUpdate ( ) " : en

Dim dBS Som Database

Dim rst Som Recordset

Dim comboString As Integer

Dim SQLstr As String
< p > Sett dBS = CurrentDb

comboString = Me.Combo10.Text

SQLstr = "SELECT dataTable.rowData FRA datatable "

SQLstr = SQLstr & " WHERE dataTable.ComboIndx = "& ( comboString ) &" ; "

Sett rst = dbs.OpenRecordset ( SQLstr )

rst.MoveLast

rst.MoveFirst

MsgBox " data for denne combo indeksen er : "& rst.Fields ( 0 ) Verdi

rst.Close

dbs.Close
7

Lukk . " Microsoft Visual Basic " Window . Høyreklikk på" Form1 ", og klikk deretter på " Skjema View. "Klikk " Command0 "for å fylle kombinasjonsboksen med data .
8

Velg en verdi fra kombinasjonsboksen. Du vil se dataene for at indeksen i en meldingsboks.