[Access-VBA] Requête UNION avec tables liées

**adriano057** · 27/07/2006, 11h29

Slt tt le monde,

je voulais savoir si quelqu'un aurait 1 idée sr comment regrouper les données provenant de plusieurs tables attachées (à des fichiers excel) en une seule et même table. Les tables ont même structure et sont liées de manière automatique (via 1 boîte de dial) et à chaque fois que l'on attache 1 table je souhaiterai qu'elle vienne s'ajouter à la grande table.

Voilà jspr que c clair

**marot_r** · 27/07/2006, 15h58

Le SQL des requètes n'est pas dynamique mais tu peux faire un bout de code supplémentaire dans ton form de liaison qui modifie celui-ci.

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
16
17
18
19
20
 
Private sub ModifierSQL()
  db db as dao.database:set db=currentdb
  dim q as querydef:set q=db.querydefs("maQueryUnion")
  dim t as tabledef
  dim SQL as string
  for each t in db.tabledefs
    if t.connect<>"" then
    'Tu peux aussi filtre en utilisant t.name
       if SQL<>"" then
         SQL=SQL & " union "
       end if
       SQL = SQL & "Select * from " & t.name
    end if
  next t
  SQL=SQL & ";"
  q.SQL=SQL
  set q=nothing
  db.close:set db=nothing
end sub

A+