Tecnología

Inicio

Cómo ejecutar una consulta en Access VBA

Cómo ejecutar una consulta en Access VBA


Microsoft Access, parte de la suite Microsoft Office, es un programa para crear y gestionar datos. Visual Basic para Aplicaciones (VBA) es un lenguaje de programación que los desarrolladores de Office utilizan para realizar operaciones en esos datos, incluyendo consultas que requieren poca o ninguna intervención del usuario. Ejecutar consultas en VBA permite a los desarrolladores escribir programas capaces de producir los datos de los programas necesitan para funcionar. Por ejemplo, se puede escribir un programa VBA que genera automáticamente un informe mensual que muestra los fondos desembolsados ​​a los empleados.

Instrucciones

1 Abrir una base de datos existente en el acceso. Haga clic en el icono de "Diseño de consulta" en el menú "Crear" para comenzar una nueva consulta.

2 Haga doble clic en el elemento superior del cuadro de diálogo "Mostrar tabla" que aparece para especificar la tabla de la que desea realizar una consulta.

3 Haga doble clic en el carácter "*" en la pequeña ventana que muestra los nombres de todos los campos de la tabla que eligió para consultar. Esta acción crea una consulta que recupera los datos de todos los campos de la tabla a la vez. Anote el nombre de cualquiera de los campos de la tabla (excepto el asterisco). A su búsqueda de VBA reportará los datos para este campo.

4 Pulse la tecla "Ctrl + S" para mostrar el cuadro de diálogo que solicita el nombre de la consulta. Tipo "Consulta1" y haga clic en "Aceptar" para guardar la consulta.

5 Pulse la tecla "Alt + F11" para entrar en el entorno de desarrollo de Visual Basic (IDE) y luego haga clic en la opción "Módulo" en el menú "Insertar" integrados. Esto produce una nueva ventana de código en el que puede introducir su programa.

6 Escribir o pegar el programa que sigue a cualquier lugar de la ventana del nuevo módulo de código. El tipo sobre el texto "YOUR_FIELD_NAME" con el nombre del campo que anotaste en el paso 3.

Public Sub runQuery ()

Const cstrQueryName = "Consulta1"

DBS dévil como DAO.Database

Dim primera medida DAO.Recordset

Set dbs = CurrentDb

"Conjunto de registros abierto de consulta existente

Establecer primera = dbs.OpenRecordset (cstrQueryName)

'Bucle a través de todos los registros

Aunque no hacer rst.EOF

Debug.Print rst![YOUR_FIELD_NAME]

rst.MoveNext

Lazo

'Cierre el conjunto de registros y base de datos

rst.Close

dbs.Close

End Sub

La llamada a la función OpenRecordset ejecute su consulta guardada, "Consulta1." Las declaraciones entre el "hacer mientras" a las declaraciones "bucle" iterar (en otras palabras, loop) a través de cada uno de los registros de la tabla se seleccionan para consulta. La declaración "Debug.Print" muestra los datos del registro para el campo que ha elegido.

7 Haga clic en cualquier lugar dentro de la subrutina "runQuery" que acaba de escribir y pulse la tecla "F5" para ejecutar la subrutina. Pulse la tecla "Ctrl + G" para que aparezca la ventana "inmediata" del IDE (si no es ya visible). La ventana mostrará todos los registros para el campo que ha elegido.