Sapere come accedere a una casella combinata e poi utilizzarlo in una query è utile per lo sviluppo di applicazioni informatiche . Ad esempio, in Microsoft Access, una casella combinata può rendere più facile per l'utente per manipolare dati . Utilizzando il Visual Basic for Applications ( VBA ) linguaggio di programmazione , è possibile effettuare una forma , creare una tabella , e quindi utilizzare la tabella per aggiungere dati a una casella combinata . Istruzioni
1
Avviare Microsoft Office Access 2007 , selezionare " Database vuoto ", e quindi fare clic su " Crea".
2 Fare clic sulla scheda "Crea" , quindi selezionare "Progettazione Form" per creare un nuovo modulo . Fare clic su " Casella combinata ", nel riquadro " Controls " , quindi fare clic su modulo e trascinarlo per creare un nuovo controllo casella combinata . Fare clic su "Pulsante" sul pannello " Controlli " per aggiungere un nuovo pulsante al form .
3
destro del mouse su " Command0 , " e quindi fare clic su "Proprietà ". Fare clic sulla scheda "Evento" e quindi scegliere " [ Event Procedure ] " accanto a " Al clic del mouse . " Fare clic sui puntini di sospensione ( ... ) per aprire la finestra "Microsoft Visual Basic "
4
Copia e incolla il seguente codice in " Private Sub Command0_Click ( ) " : .
Dim strSQL As String
strSQL = " CREATE TABLE dataTable ( ComboIndx NUMERO , rowData TEXT) ; "
DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO dataTable ( ComboIndx , rowData ) "
strSQL = strSQL & " VALUES ( 1 , ' Row1 '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO dataTable ( ComboIndx , rowData ) "
strSQL = strSQL & " VALUES ( 2 , ' Row2 '); "
DoCmd.SetWarnings False
< p > DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO dataTable ( ComboIndx , rowData ) "
strSQL = strSQL & " VALUES ( 3 , ' Row2 '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) per
strSQL = "Select dataTable. * da DataTable "
strSQL = strSQL & "WHERE dataTable.rowData = ' Row2 '; "
Me.Combo0.RowSource = strSQL
5
tornare alla finestra di Microsoft Access , fare clic destro " Combo0 , "e quindi fare clic su " Proprietà. " Fare clic sulla scheda "Evento" . Scegli. [ Event Procedure ] " accanto a" Dopo aggiornamento ". Clicca sui puntini di sospensione ( ... ) per aprire il " Microsoft Visual Basic " finestra .
6
Copia e incolla il seguente codice in" Private Sub Combo0_AfterUpdate ( ) " :
Dim dbs As Database Dim rst
come Recordset
Dim comboString As Integer Dim
sqlstr Come
String < p > Set dbs = CurrentDb
comboString = Me.Combo10.Text
sqlstr = "SELECT dataTable.rowData da DataTable "
sqlstr = sqlstr & "WHERE dataTable.ComboIndx = "& ( comboString ) &" ; "
Set rst = dbs.OpenRecordset ( sqlstr ) per
rst.MoveLast
rst.MoveFirst
MsgBox" I dati per questo indice combo è : " & rst.Fields ( 0 ) Valore
rst.Close
dbs.Close
7
Chiudere il . " Microsoft Visual base " finestra. destro del mouse su " Form1 "e quindi fare clic su " Visualizzazione Maschera . "Click " Command0 " per riempire la casella combinata con i dati.
8
Seleziona un valore dalla casella combinata . Si 'll vedere i dati per tale indice in una finestra di messaggio .