Microsoft Access, parte de la suite Microsoft Office , es un programa para la creación y gestión de datos. Visual Basic para Aplicaciones ( VBA) es un lenguaje de programación que los desarrolladores de Office utilizan para realizar operaciones en los datos , incluidas las consultas que requieren poca o ninguna intervención del usuario. Ejecución de consultas en VBA permite a los desarrolladores escribir programas capaces de producir los datos que 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 Access. Haga clic en el icono de " Diseño de consulta " en el menú "Crear " para iniciar una nueva búsqueda .
Cuadro de diálogo 2

doble clic en el elemento superior de la " Mostrar tabla " que aparece para especificar la tabla de que desea realizar una consulta.
3

doble clic en el símbolo "* " en la pequeña ventana que muestra los nombres de todos los campos de la tabla que usted 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 uno cualquiera de los campos de la tabla ( excepto el asterisco ) . Su consulta VBA informará de los datos de este campo .
4

Presione " Ctrl + S " para mostrar el cuadro de diálogo que solicita el nombre de la consulta. Tipo " Consulta1 " y haga clic en "OK " para guardar la consulta.
5

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

Escriba o pegue el programa que sigue a cualquier parte de la ventana del nuevo módulo de código . Escriba sobre el texto " YOUR_FIELD_NAME " con el nombre del campo que anotaste en el paso 3 .

Pública runQuery Sub ( )

Const cstrQueryName = " Consulta1 "

Dim dbs Como DAO.Database

primer As DAO.Recordset

Set dbs = CurrentDb

' recordset abierto en red existente de consulta

Set rst = dbs . Loop OpenRecordset ( cstrQueryName )

"a través de todos los registros

Do While Not rst.EOF

Debug.Print primera ! [ YOUR_FIELD_NAME ]

rst.MoveNext

Loop

' Cierra el conjunto de registros y bases de datos

rst.Close

dbs.Close

End Sub
< p > La llamada a la función OpenRecordset se ejecuta la consulta guardada , " Consulta1 . " Las declaraciones entre el " Do While " de los estados " Loop " iterar (en otras palabras , el lazo ) a través de cada uno de los registros de la tabla seleccionada para consulta. La declaración " Debug.Print " muestra los datos del registro para el campo elegido.
7

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