Cómo acceder al cuadro combinado en una consulta

Conocer cómo acceder a un cuadro combinado y luego usarlo en una consulta es útil para el desarrollo de aplicaciones informáticas. Por ejemplo , en Microsoft Access , un cuadro combinado puede hacer que sea más fácil para el usuario para manipular los datos . Uso de Visual Basic para Aplicaciones ( VBA) lenguaje de programación , usted puede hacer una forma , cree una tabla , y luego usar la tabla para agregar datos a un cuadro combinado. Instrucciones
1

Inicio Microsoft Office Access 2007 , seleccione "Base de datos en blanco ", y luego haga clic en " Crear ".
2

clic en la pestaña "Crear" , y luego seleccione " Diseño de formularios " para crear un nuevo formulario. Haga clic en " cuadro combinado " en el panel " Controles" y haga clic en el formulario y arrastre para crear un nuevo control de cuadro combinado . Haga clic en " botón" en el panel " Controles" para añadir un nuevo botón al formulario.
3

Haga clic en " Command0 ", y luego haga clic en " Propiedades". Haga clic en la pestaña " Eventos" y , a continuación, elija " [ Procedimiento de evento ]" junto a " On Click. " Haz clic en los puntos suspensivos (... ) para abrir la ventana " Microsoft Visual Basic "
4

Copia y pega el siguiente código en " Sub Command0_Click Privado ()" : .

Dim strSQL As String

strSQL = " CREATE TABLE dataTable (NÚMERO ComboIndx , RowData TEXTO ) ; "

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
< p> DoCmd.RunSQL ( strSQL )

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

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = "Select dataTable. * de dataTable "

strSQL = strSQL & " DONDE dataTable.rowData = ' Row2 ' ; "

Me.Combo0.RowSource = strSQL
5

volver a la ventana de Microsoft Access, haga clic en" Combo0 ", y luego haga clic en" Propiedades. " Haga clic en la ficha " Evento " . Elija . [ Procedimiento de evento ] " al lado de" después de la actualización . "Haga clic en los puntos suspensivos (... ) para abrir el" Microsoft Visual Basic "de la ventana .
6

Copia y pega el siguiente código en" Private Sub Combo0_AfterUpdate () " :

Dim dbs como base de datos

rst As Recordset

comboString Dim As Integer

sqlstr As
secuencia

Establecer dbs = CurrentDb

comboString = Me.Combo10.Text

sqlstr = "SELECT dataTable.rowData DE dataTable "

sqlstr = sqlstr y " DONDE dataTable.ComboIndx = " y ( comboString ) &" ; "

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

MsgBox " los datos de este índice combinado es: "& rst.Fields ( 0 ) Valor

rst.Close

dbs.Close
7

Cierre la . " Microsoft Visual "Ventana . Haga clic en" Basic Form1 ", y luego haga clic en" Vista formulario . " clic " Command0 "para llenar el cuadro combinado con datos.
8

Seleccione un valor en el cuadro combinado . Usted Veremos los datos de ese índice en un cuadro de mensaje .