Code VBA pour exécuter une requête Access (avec image)
Qu'est-ce que c'est ?
Ce code VBA vous permet d'exécuter le Accès à partir de n'importe quel outil compatible avec VBA, tel que MS Excel, Word, etc.
Pourquoi ?
Vous pouvez éviter d'ouvrir la base de données et d'exécuter la requête manuellement ; ce code s'exécutera même à partir d'un fichier Excel. sans ouvrir la fenêtre d'accès DB manuellement.
Si vous utilisez la fonction Importer Accéder aux résultats des requêtes comme indiqué dans l'article précédent, vous obtenez même les résultats de la requête vers Excel, le tout en un seul clic.
Code VBA pour importer les données d'une table ou d'une requête Access vers Excel
Comment utiliser le code VBA pour exécuter une requête Access ?
(adsbygoogle = window.adsbygoogle || []).push({});
Étape 1: Copiez-collez le code ci-dessous dans votre module.
Dim myDB As Database
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") Mentionnez le chemin d'accès à la base de données et remplacez "MYDATABASE" par le nom de votre base de données Access.
myDB.Execute "myQuery" (ma requête) Remplacez 'myQuery' par le nom de votre requête Access
myDB.close N'utilisez cette option que si vous souhaitez fermer la DB.
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") Mentionnez le chemin d'accès à la base de données et remplacez "MYDATABASE" par le nom de votre base de données Access.
myDB.Execute "myQuery" (ma requête) Remplacez 'myQuery' par le nom de votre requête Access
myDB.close N'utilisez cette option que si vous souhaitez fermer la DB.
Étape 2: Cliquez sur le bouton Exécuter ou sur F5 pour exécuter la requête 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 !