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) le puede ahorrar tiempo. El acceso es un sistema de gestión de base de datos relacional que se incluye en el paquete 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 de acceso y otras aplicaciones de Microsoft Office. En unos pocos pasos se puede crear una subrutina usando VBA para consultar los datos de la tabla Empleados de la base de datos Neptuno.

Instrucciones

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

2 Haga clic en "Crear" y seleccionar "Diseño de consulta." Seleccione la pestaña "Tablas", seleccione "Empleados" y haga clic en "Añadir". Seleccione "Cerrar".

3 Haga doble clic en "Compañía", "Apellido" y "Nombre" para agregar campos. Seleccione "Vista SQL" en el panel de "Resultados". Pulse la tecla "Ctrl" y "C" para copiar la consulta de selección.

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

Private Sub createVBAQuery ()

Presione ENTRAR."

5 Escribe lo siguiente para declarar sus variables:

Dim como secuencia strSQL

Dim primera medida de registros

DBS dévil como Base de Datos

Set dbs = CurrentDb

6 Pulse la tecla "Ctrl" y "V" para pegar la consulta de selección dentro de la subrutina. Añadir "strSQL =" al comienzo de su consulta y agregue las cotizaciones de fin al final de la consulta de la siguiente manera:

strSQL = "SELECT Employees.Company, empleados [Apellido], empleados [Nombre] de los empleados;.."

7 Escribe lo siguiente para abrir su consulta de selección y mostrar los resultados.

Establecer primera = dbs.OpenRecordset (strSQL)

rst.MoveLast

rst.MoveFirst

Aunque no hacer rst.EOF

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

rst.Fields (1) .Value & _

"|" Y rst.Fields (2) .Value

rst.MoveNext

Lazo