Discussion :

[catoucat]

Bonjour,

Je souhaite raccourcir un code qui va chercher des valeurs dans plusieurs tables a la suite en faisant une boucle sur le nom de table mais je ne sais pas comment m'y prendre

J'ai pour l'instant une table T_Posts dont le champ TableMO possede la liste des tables dans lesquelles je veux faire ma requete. Ma requete est de la forme "SELECT nomsdeschamps FROM nomtable WHERE..." et il n'y a que le nom de la table qui change donc je voudrais faire quelque chose comme

Code :

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

1
2
3
4
For each TableMO In T_Posts
set rst = CurrentDB.Openrecordset("SELECT ... FROM " & TableMO & " WHERE...;")
...
Next TableMO

Est-ce qu'il faut forcement creer un array, parcourir la table T_Posts et remplir le tableau et faire le For Each dans le tableau ou bien il y a plus simple?

[pgz]

Bonjour,

Ma requete est de la forme "SELECT nomsdeschamps FROM nomtable WHERE..." et il n'y a que le nom de la table

Le plus simple me semble être d'ouvrir un rst sur la table des tables et de le parcourir.

Code :

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

1
2
3
4
5
6
7
8
9
Set rstNomTAble = db.OpenRecordset("T_Posts",dbOpenDynaset)
While not rstNomTable.EOF
   set rst = db.OpenRecordset("SELECT * FROM " & rstNomTAble("TAbleMO") & " WHERE ...")
    ....
    rst.Close
    rstNomTable.MoveNext
WEND
rstNomTAble.Close
...

BOn courage,

PGZ

[catoucat]

Hehe c'est ce que je me disais finalement vu que j'ai une table mais je pensais qu'ouvrir un recordset pour ca etait un peu "lourd"... tant pis j'utiliserai pas de nouvelle boucle que je connais pas

[DMboup]

Il me semble que sa méthode peut aussi marcher avec un .Value de plus

Code :

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

1
2
3
4
5
 
For each TableMO In T_Posts
set rst = CurrentDB.Openrecordset("SELECT ... FROM " & TableMO.Value & " WHERE...;")
...
Next TableMO

[catoucat]

Je ne suis pas sure, en tout cas sans le value il me mettait une erreur au niveau du "For Each TableMO In T_Posts" sans aller plus loin

[DMboup]

Je ne suis pas sure, en tout cas sans le value il me mettait une erreur au niveau du "For Each TableMO In T_Posts" sans aller plus loin

Comment as tu déclaré TableMO?