Discussion :

[fourniey]

Bonjour,

J'ai une table (Projet) dans lequel je retrouve les informations à imprimer ainsi que le responsable.

J'ai créé un état et tout fonctionne correctement.

J'aimerais imprimer les états par coordonnateur. Le coordonnateur est dans la table Contact.

Si quelqu'un pouvait me guider pour faire cela, je serais bien content.

Merci!

[accessisgood]

Bonjour,

voici une approche, il faut faire un peu de VBA
il te faut la table des contacts et la table des rapports, les 2 ayant un lien par le contact ID

il faut ensuite srcuter les 2 tables en imbriqué, par exemple en DAO

pour chaque contact: créer un répertoire au nom du contact par cette fonction

Code :

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

1
2
3
4
5
6
Private Function CreateRootDir(prmContact As String) As String
    On Error Resume Next
        MkDir CurrentProject.Path & "\Export"
        CreateRootDir = CurrentProject.Path & "\Export\" & prmContact
        MkDir CreateRootDir
End Function

la boucle ressemble à ça

Code :

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

1
2
3
4
5
 
for each contact
    MyRootDir=CreateRootDir(Contact)
    for each report
       DoCmd.OutputTo acOutputReport, NOMDURAPPORT, acFormatPDF, MyRootDir & "\" & NOMDURAPPORT & ".pdf"