Cómo ejecutar parámetros de una consulta DAO en Access VBA

Microsoft Office Access es un sistema de gestión de base de datos relacional utilizada para bases de datos más pequeñas y locales . Visual Basic para aplicaciones , también conocido como VBA es un lenguaje de programación utilizado para automatizar los procesos rutinarios. Una consulta se utiliza para recuperar datos de las tablas de bases de datos . Puede crear una consulta para actualizar también los datos en una tabla de base de datos. En pocos pasos se puede escribir código VBA para ejecutar una consulta de actualización y también crear una consulta de selección para acceder a la actualización. Instrucciones
1

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

2 Haga clic en " Herramientas de base de datos ", seleccione "Visual Basic " para abrir la ventana de Microsoft Visual Basic . Haga clic en el campo " Insertar" y seleccione " Módulo ".
3

Copia y pega el siguiente código en el nuevo módulo para actualizar la tabla empleados y luego ver la actualización con una consulta de selección .

Public Sub DAOQuery ()

título dévil como secuencia

db As DAO.Database

primera Dim As
DAO.Recordset

qry dévil como secuencia
título

= "La consulta DAO "

Set db = CurrentDb ()

qry = "Los empleados Actualización Configurar empleados . [ móvil] = '210 -999-999 "

qry = qry &" WHERE ( ( ( Employees. [ Apellido ] ) = ' Cencini ')) ; "

DoCmd.SetWarnings
False < p> DoCmd.RunSQL ( qry )

título Debug.Print & " : SQL Update paramenter consulta: " & _

vbNewLine & "" & qry

qry = " seleccionar a los empleados . [ Apellido ] , los empleados . [ móvil] "

qry = qry y " FROM Empleados "

qry = qry &" WHERE ( ( ( Employees. [ Apellido ] ) = ' Cencini ')) ; "

título Debug.Print &" : consulta SQL : "& _

vbNewLine &" "& qry

'Ejecutar el qry y crear un registro conjunto

set rst = db.OpenRecordset ( qry )

título Debug.Print & " : Recuperar información de esquema para el resultado conjunto dado : "

para i = 0 To rst.Fields.Count - 1

Debug.Print "