Veta hur man kan få en kombinationsruta och sedan använda den i en fråga är användbart när man utvecklar datorprogram . Till exempel , i Microsoft Access , kan en kombinationsruta gör det enklare för användaren att manipulera data . Använda Visual Basic for Applications ( VBA ) dator programmeringsspråk , kan du göra ett formulär , skapa en tabell , och sedan använda tabellen för att lägga till data i en kombinationsruta . Instruktioner
1
Starta Microsoft Office Access 2007 , välj " Tom databas , " och klicka sedan på " Skapa ".
2
Klicka på " Skapa " -fliken och välj sedan " Form Design " för att skapa en ny form . Klicka på " Combo Box " på " Controls " rutan , och klicka sedan på formuläret och dra den för att skapa en ny kontroll kombinationsruta . Klicka på " Button " på " Kontroller " fönstret för att lägga till en ny knapp i formuläret .
3
Högerklicka " Command0 , " och klicka sedan på "Egenskaper . " Klicka på "Event " fliken , och välj sedan " [Event Procedure ] " bredvid " Vid klickning . " Klicka på ellips ( ... ) för att öppna " Microsoft Visual Basic " fönster
4
Kopiera och klistra in följande kod under " Private Sub Command0_Click ( ) " : .
Dim strSQL As String
strSQL = " CREATE TABLE DataTable ( ComboIndx NUMMER , rowData TEXT ) , "
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO DataTable ( ComboIndx , rowData ) "
strSQL = strSQL & " VALUES (1, ' ROW1 ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO DataTable ( ComboIndx , rowData ) "
strSQL = strSQL & " VALUES ( 2 , ' ROW2 ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO DataTable ( ComboIndx , rowData ) "
strSQL = strSQL & " VALUES ( 3 , ' ROW2 ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " Select DataTable . * från DataTable "
strSQL = strSQL & " WHERE dataTable.rowData = ' ROW2 ' , "
Me.Combo0.RowSource = strSQL
5
Växla tillbaka till Microsoft Access-fönstret , högerklicka på" Combo0 , " och klicka sedan på " Egenskaper . " Klicka på "Event " fliken . Välj . [Event Procedure ] " bredvid " Efter Update . " Klicka på tre punkter ( ... ) för att öppna " Microsoft Visual Basic " fönstret .
6
Kopiera och klistra in följande kod under " Private Sub Combo0_AfterUpdate ( ) " :
Dim dbs som databas
Dim rst Som Recordset
Dim comboString As Integer
Dim sqlstr As String
Ställ dbs = CurrentDb
comboString = Me.Combo10.Text
sqlstr = " SELECT dataTable.rowData FROM DataTable "
sqlstr = sqlstr & " WHERE dataTable.ComboIndx = " & ( comboString ) & " ; "
Set rst = dbs.OpenRecordset ( sqlstr ) katalog
rst.MoveLast
rst.MoveFirst
MsgBox " Data för denna kombo index är : " & rst.Fields ( 0 ) Value
rst.Close
dbs.Close
7
Stäng . " Microsoft Visual Basic " Window . Högerklicka på" Form1 "och klicka sedan på " Form View . " Klicka " Command0 " att fylla kombinationsrutan med data .
8
Välj ett värde från listrutan . Du 'll se data för detta index i en meddelanderuta .
