Conocer cómo establecer los resultados de una consulta a un control de cuadro de lista y utilizar sus valores en otra consulta puede hacer que sus aplicaciones de base de datos más dinámico. Microsoft Office Access le permite crear una interfaz gráfica de usuario ( GUI) , agregar un control de cuadro de lista y lo utilizan para mostrar los datos de la consulta. El acceso es un sistema de gestión de base de datos relacional de uso común para las bases de datos más pequeñas. Una consulta se utiliza para recuperar datos de una tabla de base de datos . Visual Basic para Aplicaciones ( VBA) es un lenguaje de programación utilizado para automatizar tareas rutinarias. Instrucciones
1

Abra la base de datos Access Northwind Microsoft Office. La base de datos Northwind se incluye en la suite de Microsoft Office.
2

clic en la pestaña "Crear " y seleccionar " Diseño de formularios " para crear un nuevo formulario. Haga clic en " Cuadro de lista " en el panel " Controles" y haga clic en el formulario, mantenga pulsado el botón del ratón y arrastre el ratón para crear un nuevo control de cuadro de lista. Haga clic en " botón" en el panel " Controles" para añadir un nuevo botón a su formulario de la misma manera que ha añadido el cuadro de lista .
3

Haga clic en " Command0 " y seleccionar "Propiedades . " Haga clic en la ficha " Evento " y seleccione " [ 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 = " SELECT Orders . [ Employee ID ] , "

strSQL = strSQL y "Órdenes . [ ID de cliente ], Pedidos. [ Fecha de envío ] , "

strSQL = strSQL & " Las órdenes . [ Nombre ], Ship órdenes . [Ship dirección] "

strSQL = strSQL & " FROM Pedidos "

strSQL = strSQL & " WHERE ( ( ( Orders. [Ship dirección] ) = '123 8th Street ')) ; "

Me.List0.RowSource = strSQL

Este código consultar el " Orders "mesa y ajuste" RowSource " propiedad del control de cuadro de lista.
5

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

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

Dim dbs como base de datos

rst As Recordset

sqlstr dévil como secuencia

Dim I As Integer

Set dbs = CurrentDb

Para I = 0 To me ! List0.ListCount

If Me ! List0.Selected ( I) Luego

sqlstr = " SELECT Orders . [ Fecha de envío ] FROM Pedidos "

sqlstr = sqlstr y " DONDE órdenes [ Empleado ID] = . " & ( Me! List0.ItemData ( I) ) & " ; "

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

Debug.Print " Fecha de envío para el artículo seleccionado :" & rst.Fields ( 0 ) Valor

rst.Close
.

End If

Siguiente I Love

dbs.Close

Este código mostrará la " Fecha de envío " para los elementos seleccionados en el cuadro de lista. Los resultados se mostrarán en la ventana de " inmediato " .
7

Cerrar la ventana " Microsoft Visual Basic " y haga clic en " Form1 ", a continuación, seleccione " Vista formulario . " Haga clic en " Command0 " para llenar el cuadro de lista con datos. Seleccione un valor en el cuadro de lista para ejecutar el código del control de cuadro de lista.