Discussion :

[Oriane82]

Besoin de votre aide .....help....help
Voilà je souhaite imprimer ou exporter en format PDF mon état access mais seulement à la maille de mes regroupements.

Je m'explique mon état "Commandes" recense l'ensemble des commandes de mes clients sur l'année 2010, je veux pouvoir exporter/imprimer sous PDF ce même état mais regroupé par code client. En sortie, je devrai obtenir un fichier PDF par code client.

J'ai écrit une procédure VBA (procédure évenementielle à partir du contrôle "ETAT" /Ouverture") :

Code :

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

1
2
3
4
5
Dim i As Long
DoCmd.OpenReport "Commandes", acViewPreview
For i = 1 To Reports("Commandes").Pages
    DoCmd.PrintOut acPages, i, i
Next

Mais malheureusement cela ne fonctionne pas du tout car en sortie mon état PDF est global et pas découpé par code client.

Pouvez-vous m'aider s'il vous plaît?

Merci beaucoup

[User]

Salut,

Il faudrait utiliser une zone de texte sur un formulaire comme paramètre dans la source de ton état, du genre:

Code sql :

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

1
2
3
Select *
From Commandes
Where CodeClient=Forms!Formulaire1!CodeClient;

Ceci serait la source de ton état "Commandes", et après, tu parcours la liste des CodeClient, et pour chaque CodeClient tu mets à jour la zone de texte du même nom:

Code sur ton formulaire1 (contenant la zone de texte CodeClient: le paramètre de la requête source) qui lance l'impression:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim rst as DAO.RecordSet
 
Set rst=currentdb.OpenRecordSet("select distinct Codeclient From Commandes;")
 
Do Until rst.eof
 
Me!CodeClient=rst!CodeClient ' change le paramètre de la requête source de l'état.
 
DoCmd.OpenReport "Commandes" 'Export en pdf du document pour ce client.
 
rst.MoveNext
Loop

Ou plus simplement avec la table commandes comme source:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim rst as DAO.RecordSet
 
Set rst=currentdb.OpenRecordSet("select distinct Codeclient From Commandes;")
 
Do Until rst.eof
 
DoCmd.OpenReport "Commandes", , , "CodeClient=" & rst!CodeClient
 
rst.MoveNext
Loop
 
Set rst=Nothing

Ici je suppose que tu imprimes en pdf...

Pour la 2ème solution je suis pas trop sur

A+