Come accedere alla casella combinata in una query

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

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

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 .

• Come determinare se un servizio è in esecuzione in Visual Basic 
• Come trovare un carattere in una stringa in Visual Basic