Sapere come accedere a una casella combinata e quindi utilizzarlo in una query è utile quando si sviluppano applicazioni per computer. Ad esempio, in Microsoft Access, una casella combinata può rendere più facile per l'utente di manipolare i dati. Utilizzando il Visual Basic Applications Edition (VBA) computer linguaggio di programmazione, si può fare un modulo, 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" e quindi selezionare "Modulo Design" per creare un nuovo modulo. Fare clic su "Casella combinata" nel riquadro "Controlli", quindi fare clic sul modulo e trascinare per creare un nuovo controllo casella combinata. Fare clic su "Pulsante" nel riquadro "Controlli" per aggiungere un nuovo pulsante al form.
3
Pulsante destro del mouse "Command0" e quindi fare clic su "Proprietà". Fare clic sulla scheda "Eventi" e scegli "[routine evento]" accanto a "il"Click. Fare clic sui puntini di sospensione (...) per aprire la finestra di "Microsoft Visual Basic".
4
Copiare e incollare il seguente codice sotto "Private Sub Command0_Click()":
Dim strSQL As String
strSQL = "Crea tabella dataTable (ComboIndx numero, rowData testo);"
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
DoCmd.RunSQL (strSQL)
strSQL = "INSERT INTO dataTable (ComboIndx, rowData)"
strSQL = strSQL & "VALUES (3, 'Row2');"
DoCmd.SetWarnings False
DoCmd.RunSQL (strSQL)
strSQL = "Select dataTable.* from 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à". Scegliere la scheda "Eventi" scegliere. [Routine evento] "accanto a"Dopo aggiornamento". Fare clic sui puntini di sospensione (...) per aprire la finestra di "Microsoft Visual Basic".
6
Copiare e incollare il seguente codice sotto "Private Sub Combo0_AfterUpdate()":
() Dim dbs As Database
Dim rst As Recordset
Dim comboString As Integer
Dim SQLstr As String
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 "dati per questo indice combinato sono:" & rst. Fields(0). Valore
RST. Chiudere
DBS. Chiudere
7
Chiudere la finestra di "Microsoft Visual Basic". Pulsante destro del mouse "Form1" e quindi fare clic su "Visualizzazione maschera." Fare clic su "Command0" per riempire la casella combinata con i dati.
8
Selezionare un valore dalla casella combinata. Vedrai i dati per tale indice in una finestra di messaggio.