Discussion :

[arathorn27]

Bonjour,
C'est mon premier jour où je travaille en ACCESS (2007-2010) et je bloque sur un problème qui me paraît tout bête.

J'ai une 40ène de tables qui ont toutes la même structure (mêmes colonnes mais pas même nombre de lignes)
Ces lignes représentent des contrats qui pourraient être à renégocier s'ils sont arrivés à échéance, je cherche à récupérer tous les contrats dont l'échéance est dans 30 jours.

Voici la requête que j’exécute sur une table.

Code sql :

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

1
2
3
SELECT [GroupeA].NOM, [GroupeA].SERVICE, [GroupeA].Echeance
FROM GroupeA
WHERE GroupeA.Echeance Between date() And date()+30

J'y arrive aussi avec 2 tables :

Code sql :

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

1
2
3
4
5
6
SELECT [GroupeA].NOM, [GroupeA].SERVICE, [GroupeA].Echeance
FROM GroupeA
WHERE GroupeA.Echeance Between date() And date()+30
UNION SELECT [GroupeB].NOM, [GroupeB].SERVICE, [GroupeB].Echeance
FROM GroupeB
WHERE GroupeB.Echeance Between date() And date()+30;

J'aimerais adapter cette requête à n tables..

Serait ce possible de jouer avec des arrays et des boucle for? Ou il y aurait-il un autre moyen ?

[marot_r]

Bonjour.

La réponse la meilleur serait : fusionner toutes les tables et n'en faire qu'une seule.

Si elles ont toutes la même structure, il ne semble pas y avoir de raison de les séparer. Après l'interrogation serait BEAUCOUP plus simple.

Sinon, je ferai une table temporaire qui stockerai une succession de requête d'ajout.
Je ne pense pas que une requête union sur 40 tables fonctionnerai car il semblerai qu'Access dans son traitement des union accole les champs de chacune des tables donc 3 tables avec 10 champs donnent 30 champs.

Ici une idée de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
dim db as dao.database:set db=currentdb
dim SQL as string
 
call db.execute("delete * from tblResultat", dbFailOnError) 'Vide la  table de destination
 
dim t as dao.tabledef: for each t in db.tabledefs
 
   if t.name like "TonNomTable*" then
      sql="Ici le SQL de l'insert adapté à la table en cours de traitement"
      call db.execute(sql, dbFaiOnError)
   end if
 
next t
 
db.close:set db=nothing

A+