Conocer cómo utilizar los controles en un formulario y pasar los valores de los controles a una consulta que puede ahorrar tiempo cuando se trabaja con bases de datos. Microsoft Office Access es un sistema de gestión de base de datos relacional de uso común para las bases de datos más pequeñas. Un cuadro combinado es un control que se utiliza en interfaces gráficas de usuario ( GUI ) para proporcionar al usuario más flexibilidad para manipular los datos . Un control de cuadro de lista es útil cuando se necesita mostrar resultados de la consulta para el usuario. Visual Basic para Aplicaciones ( VBA) es un lenguaje de programación utilizado para automatizar tareas rutinarias en Access y otras aplicaciones de MS Office . Cosas que necesitará
Microsoft Office Access
Mostrar más instrucciones
1

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

Seleccione la pestaña " Crear" y " 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 el ratón para crear un nuevo control de cuadro combinado . Haga clic en " botón" en el panel " Controles" y añadir un nuevo botón al formulario. Seleccione " List Box " y agregar un nuevo control de cuadro de lista al formulario.
3

Haga clic en " Command0 " y seleccionar " Propiedades". Haga clic en la ficha " Evento " y seleccione " [ Procedimiento de evento ]" junto a " On Click. " Haga clic en los puntos suspensivos ( ... ) para abrir la ventana " Microsoft Visual Basic " . Pulse la tecla " Ctrl" y " A" y pulse "Eliminar " para eliminar todo el código existente.
4

Copia y pega el siguiente código al nuevo módulo. El código se utilice la tabla " Empleados " para mayor información .
Opción

Compare Database

Private Sub Command0_Click ()

strSQL Dim As String Dim

nameSelected As String

Me.Combo0.SetFocus

nameSelected = Me.Combo0.Text

strSQL = " SELECT empleados . [ Título del trabajo ] , los empleados . [ E - mail ] "

strSQL = strSQL &" FROM Empleados "

strSQL = strSQL &" WHERE ( ( ( Employees. [ Apellido ] ) = "" y ( nameSelected ) & " " ) ) ; "

Me.List0.RowSourceType =" Tabla /Consulta "

Me.List0.RowSource = strSQL

End Sub

Private Sub Form_Load ( )

Me.List0.ColumnCount = 2

Me.Combo0.RowSourceType = " Tabla /Consulta "

Me.Combo0.RowSource = " SELECT empleados . [ Apellido ] FROM Empleados ; "

End Sub
5

Cerrar " "la ventana y haga clic en" Microsoft Visual Basic Form1 ", a continuación, seleccione " Vista formulario " . Seleccione un apellido del control de cuadro combinado . Haga clic en " Command0 " para mostrar la información del empleado en el control de cuadro de lista en base al último nombre que ha seleccionado .