Cómo pasar datos de una forma en un acceso de consulta

Saber utilizar los controles en un formulario y pasar valores de esos 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 una mayor flexibilidad para manipular los datos. Un control de cuadro de lista es útil cuando es necesario para mostrar los resultados de la consulta para el usuario. Visual Basic para Aplicaciones (VBA) es un lenguaje de programación utilizado para automatizar tareas rutinarias de acceso y otras aplicaciones de MS Office.

Instrucciones

1 Abra la base de datos Neptuno Microsoft Office Access. La base de datos Northwind se incluye en el paquete de Microsoft Office.

2 Seleccione la pestaña "Crear" y en "formulario" para crear una nueva forma. Haga clic en "cuadro combinado" en el panel "Controles", a continuación, en su forma 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 a su formulario. Seleccionar "cuadro de lista" y añadir un nuevo control de cuadro de lista al formulario.

3 Haga clic en "Comando0" y seleccionar "Propiedades". Haga clic en la pestaña "Eventos" y seleccione "[Procedimiento de evento]" al lado de "Al hacer clic." Haga clic en los puntos suspensivos (...) para abrir la ventana "Microsoft Visual Basic". Pulse la tecla "Ctrl" y "A" y pulse "Borrar" para eliminar todo el código existente.

4 Copiar y pegar el siguiente código a su nuevo módulo. El código se utilice la tabla "Empleados" para obtener información.

Opción de comparación de bases de datos

Private Sub Command0_Click ()

Dim como secuencia strSQL

Dim como secuencia nameSelected

Me.Combo0.SetFocus

nameSelected = Me.Combo0.Text

strSQL = "SELECT empleados. [Nombre de la oferta], empleados. [E-mail]"

strSQL = strSQL y "de los empleados"

strSQL = strSQL y "WHERE (((Empleados [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] de los empleados;".

End Sub

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