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.