Cómo crear una consulta en Access VBA

Conocer cómo crear rápidamente una consulta en Microsoft Access y luego usarlo con Visual Basic para Aplicaciones ( VBA) que puede ahorrar tiempo. El acceso es un sistema de gestión de base de datos relacional que se incluye en la suite de Microsoft Office. Una consulta se utiliza para recuperar datos de una tabla de base de datos . VBA es un lenguaje de programación que se utiliza para automatizar tareas rutinarias en Access y otras aplicaciones de Microsoft Office . En unos pocos pasos , puede crear una subrutina usando VBA para consultar datos de la tabla Empleados de la base de datos Northwind. Cosas que necesitará
Microsoft Office Access
Mostrar más instrucciones
1

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

clic en "Crear " y seleccionar " Diseño de consulta. " Seleccione la pestaña " Tablas ", seleccione "Empleados" y haga clic en "Agregar ". Seleccione " Cerrar".
3

doble clic en " Compañía", " Apellido " y " Nombre" para agregar campos . Seleccione " Vista SQL " en el panel " Results" . Pulse la tecla "Ctrl " y "C " para copiar la consulta Select.

4 Haga clic en " Herramientas de base de datos" y luego seleccione " Visual Basic ". Escriba lo siguiente para crear un nuevo subprograma: " . Escriba"

createVBAQuery Sub Private ()

Press
5

Escriba lo siguiente para declarar sus variables:

strSQL As String Dim

rst As Recordset

Dim dbs como base de datos

Set dbs = CurrentDb
6

Press " Ctrl" y " V " para pegar la consulta de selección dentro de la subrutina . Añadir " strSQL =" al principio de su consulta y agregue comillas finales hasta el final de la consulta de la siguiente manera : . .

StrSQL = "SELECT Employees.Company , Trabajadores [ Apellido ] , los empleados [ Nombre ] FROM Empleados ; ".
7

Escriba lo siguiente para abrir la consulta de selección y mostrar los resultados

Set rst = dbs.OpenRecordset ( strSQL )

primera . MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print rst.Fields ( 0 ) Value & . "