Discussion :

[alainfbsi]

Je recherche comment pouvoir créer une requête ou une macro permettant de modifier le contenu d'un champ « Code societe » (exemple remplacer : SOC1 par SOC2) des Tables « DClient et DCTempl » de plusieurs bases ACCESS.
Actuellement, je suis obligé de créer une requête mise à jour dans chaque base ACCESS.
Merci

[nico84]

Bonjour,

Exemple de procédure VBA qui modifie une table dont le nom complet est dans la variable T:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim wrk As DAO.WorkSpace, MaDb As DAO.Database
100 Set wrk = DBEngine.Workspaces(0)
102 Set MaDb = wrk.OpenDatabase(T, False, False, "MS Access;PWD=toto")
 
'requetes de modification
104 MaDb.Execute "UPDATE MaTable set date_deb=date_cre where isnull(date_deb);", dbFailOnError
...
304 Set MaDb = Nothing
306 Set wrk = Nothing

La procédure peut s'appeler autant de fois qu'il y a de tables à modifier

[alainfbsi]

Bonjour nico84,
Merci pour ta réponse, mais mon souci ce n'est pas la modification de plusieurs Tables, je le fais directement dans ACCESS avec une Requête de mise à jour, mais je suis obligé de le faire base par base.
Dans le cas présent, j'ai 300 bases ACCESS (exemple : 001.mdb, 002.mdb, ..., 299.mdb, 300.mdb) qui contiennent les Tables « DClient et DCTempl » dans lesquelles il y a le champ « Code societe » qui contient l'information "SOC1" que je dois remplacer par "SOC2".
Cordialement,

[nico84]

Cette routine modifie la base T

en mettant T en variable d'une sub et a liste des bases dans un fichier texte, il suffit ensuite d'exécuter la routine pour chaque ligne du fichier