Código VBA para Ejecutar Consulta Access (con Imagen)
¿De qué se trata?
Este código VBA le ayuda a ejecutar el Acceda a desde cualquiera de las herramientas compatibles con VBA, como MS Excel, Word, etc.
¿Por qué?
Puedes evitar el proceso de abrir la BD y ejecutar la consulta manualmente; este código se ejecutará incluso desde un Excel hoja sin abrir el Acceso BD manualmente.
Si utiliza la función Importar Acceder a los resultados de la consulta código discutido en el post anterior que incluso obtener los resultados de la consulta a Excel, todo en un solo clic.
Código VBA para importar datos de tabla/consulta de Access a Excel
Cómo utilizar código VBA para ejecutar una consulta de Access
(adsbygoogle = ventana.adsbygoogle || []).push({});
Paso 1: Copie y pegue el siguiente código en su módulo.
Dim myDB As Database
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") Mencione la ruta de la base de datos y sustituya "MYDATABASE" por el nombre de su base de datos Access.
myDB.Execute "myQuery" Sustituye 'miConsulta por el nombre de tu consulta Access
myDB.close Utilice esta opción sólo si desea cerrar DB
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") Mencione la ruta de la base de datos y sustituya "MYDATABASE" por el nombre de su base de datos Access.
myDB.Execute "myQuery" Sustituye 'miConsulta por el nombre de tu consulta Access
myDB.close Utilice esta opción sólo si desea cerrar DB
Paso 2: Pulse el botón Ejecutar o F5 para Ejecutar la consulta de Access.
2 Responses
Hello Anson, try to find out how, but I can’t….. (aaargggghhh)
I have a simple MDB (accessDB) with one table LoginUserDB
There are 3 fields: UserName UserShortName LastLogIn
UserShortName = a date field, the other two (UserName & UserShortName) are text fields
What will be the best way, if I want to search for all:
UserName = anson.antony
and update on that all, the field: UserShortName to XXX
and the field LastLogIn to Format(Now, “DD.MM.YYYY”) (actual date)
Sorry for bothering you, but I test so different ways without result….
Thanks in advance
Pedro
Resolved = Thanks and sorry !