Discussion :

[nicoaix]

Bonjour,
Ma question concerne plutot le publipostage sur word que l'utilisation d'access.
J'effectue un publipostage sur word à partir d'une table de ma base de données.

Ma table ressemble à ça:
Nom Type Valeur
AAA XXX 10
AAA YYY 15
AAA ZZZ 8
BBB XXX 25
BBB ZZZ 32

Ce que je voudrais c'est afficher sur chaque page de mon fichier word un tableau regroupant les données de AAA, puis sur une autre page les données de BBB etc...

Par exemple, sur la page de AAA je voudrais un tableau de ce type:
XXX 10
YYY 15
ZZZ 8

et sur la page consacrée à BBB, le tableau:
xxx 25
zzz 32

Je ne sais pas trop comment faire, car en faisant un publipostage simple il m'affiche une page avec AAA et XXX 10, puis sur la page suivante AAA et YYY 15 et ainsi de suite.

Merci pour votre aide.

[Heureux-oli]

Première chose à faire, c'est l'extraction des données.

Avec un recordset de préférence.

Il faut d'abord extraire le premier champ de la table et faire un regroupement.

Ensuite extraire le reste avec des boucles pour obtenir la mise en page.

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
21
22
 
Dim rs0 as DAO.Recordset
Dim rs1 as DAO.recordset
Dim db as DAO.DataBase
Dim strSQL0 as string
Dim strSQL1 as string
 
strSQL = SELECT Table1.testNombre FROM Table1 GROUP BY Table1.testNombre;
 
Set db = CurrentDB
Set rs0 = db.Openrecordset("strSQL0")
 
while Not rs0.EOF
    commande vers word
     strSQL1 = "SELECT * From Table1 Where testnombre = " & rs0.fields("testnombre")
     set rs1 = db.OpenRecordSet("strSQL1")
       While Not rs1.EOF
          commande vers Word
       rs1.movenext
      wend
rs0.movenext
wend