Nwlapcug.com


Come accedere a casella combinata in una Query

Come accedere a casella combinata in una Query


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.