ubiquitour.com

Cómo crear una consulta en Access VBA

Cómo crear una consulta en Access VBA

Saber cómo crear una consulta en Microsoft Access y luego usarlo con Visual Basic para la poder de aplicaciones (VBA) ahorrar tiempo. El acceso es un sistema de gestión de base de datos relacional que se incluye en la suite Microsoft Office. Se utiliza una consulta para recuperar datos de una tabla de base de datos. VBA es un lenguaje de programación de computadora que se utiliza para automatizar tareas rutinarias en el acceso y otras aplicaciones de Microsoft Office. En unos pocos pasos puede crear una subrutina usando VBA para consultar datos de la tabla empleados en la base de datos Northwind.

Instrucciones

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

2 Haga clic en "Crear" y selecciona "Diseño de consulta." Seleccione la pestaña "Tablas", «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 "Resultados". Presione la "tecla Ctrl" y "C" para copiar la consulta Select.

4 Haga clic en "Herramientas" y seleccione "Visual Basic". Escriba lo siguiente para crear una subrutina nueva:

Private Sub createVBAQuery()

Presione "Enter".

5 Escriba lo siguiente para declarar las variables:

Dim strSQL As String

Dim rst como conjunto de registros de

Dim dbs como base de datos

Set dbs = CurrentDb

6 Presione la "tecla Ctrl" y "V" para pegar la consulta Select dentro de la subrutina. Añadir "strSQL =" al principio de la consulta y agregue comillas finales hasta el final de la consulta como sigue:

strSQL = "SELECT Employees.Company, empleados. [Apellidos], empleados. [Nombre] DE los empleados;"

7 Escriba lo siguiente para abrir la consulta seleccionar y mostrar los resultados.

Set rst = dbs. OpenRecordset(strSQL)

RST. MoveLast

RST. MoveFirst

Hacer mientras no rst. EXPRESIONES DEL FOLCLORE

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

rst.Fields(1).Value & _

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

RST. MoveNext

Lazo