Sapendo come accedere a una casella combinata e quindi utilizzare in una query è utile quando si sviluppano applicazioni informatiche. Ad esempio, in Microsoft Access, una casella combinata può facilitare all'utente di manipolare i dati. Utilizzando il Visual Basic, Applications linguaggio di programmazione (VBA) del computer, è possibile effettuare un modulo, creare una tabella, e quindi utilizzare la tabella per aggiungere dati a una casella combinata.

istruzione

1 Avviare Microsoft Office Access 2007, selezionare "Database vuoto", e quindi fare clic su "Crea".

2 Fare clic sulla scheda "Crea", quindi selezionare "Form Design" per creare un nuovo modulo. Fai clic su "Casella combinata" nel riquadro "Controlli", quindi fare clic sul modulo e trascinarlo per creare un nuovo controllo casella combinata. Fai clic su "Button" nel riquadro "Controlli" per aggiungere un nuovo pulsante al form.

3 Right-click "Command0," e quindi fare clic su "Proprietà". Fare clic sulla scheda "Evento", e quindi scegliere "[Routine evento]" accanto a "Al clic". 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 TESTO);"

DoCmd.RunSQL (strSQL)

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

strSQL = strSQL & "VALORI (1, 'Row1');"

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

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

strSQL = strSQL & "VALORI (2, 'Row2');"

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

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

strSQL = strSQL & "VALORI (3, 'Row2');"

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

strSQL = "Seleziona dataTable. * da dataTable"

strSQL = strSQL & "DOVE 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". Scegliere. [Event Procedure] "accanto a" dopo l'aggiornamento. "Fare clic sui puntini di sospensione (...) per aprire la" finestra di Microsoft Visual Basic ".

6 Copia e incolla il seguente codice in "Private Sub Combo0_AfterUpdate ()":

DBS fiochi come database

Dim rst come Recordset

Dim comboString As Integer

Dim SQLStr As String

Set dbs = CurrentDb

comboString = Me.Combo10.Text

SQLStr = "SELECT dataTable.rowData DA dataTable"

SQLStr = SQLStr & "DOVE dataTable.ComboIndx =" & (comboString) & ";"

Set rst = dbs.OpenRecordset (SQLStr)

rst.MoveLast

rst.MoveFirst

MsgBox "I dati per questo indice combinato è:" & rst.Fields (0) .Value

rst.Close

dbs.Close

7 Chiudere la finestra "Microsoft Visual Basic". Right-click "Form1" e poi cliccare su "Visualizza come modulo." Fai clic su "Comando0" per riempire la casella combinata con i dati.

8 Selezionare un valore dalla casella combinata. Vedrete i dati per tale indice in una finestra di messaggio.