Discussion :

[galact]

bonjour,
J'ai créé un état, dans le détail ma requête retourne une ou plusieurs lignes.
J'aimerai savoir comment je peux filtrer mes données pour avoir un état avec une seule ligne de détail retournée, et bien sûr un second état avec plusieurs lignes retournées.
Je n'y connais pas grand chose en VBA ! Serait-se dans le détail_print ?
Merci de me mettre sur la voie.
Bonne journée

[argyronet]

Bonjour,

Sympa le titre

Quel est le critère souhaité pour isoler les lignes ? (une seule ligne de détail retournée / avec plusieurs lignes retournées).
Je ne pense pas que VBA soit indispensable enfin pas en apparence.

Argy

[galact]

J'ai deux états qui sont des courriers :
Je vous informe que votre animal...
Je vous informe que vos animaux...

Pour l'instant j'ai la même requête pour les deux états et je filtre manuellement pour imprimer. Ca se corse quand j'ai 45 courriers des coup de fils etc etc !

J'ai tenté le compteur... rien y fait !
Merci d'avoir répondu.

[argyronet]

OK...
2 états si il y a plusieurs animaux ? Je ne suis pas si sûr.
A mon avis, considérant par supposition de mon degré de perspicacité que les destinataires ne possèdent pas 50000 animaux et que la liste doit pouvoir tenir sur une page, il faut envisager l'insertion d'un sous-formulaire qui contient ces lignes avec un champ-pères/fils défini sur la clé (à mon avis l'IDPropriétaire*).

Quant au texte, il suffit de poser des champs indépendants en regard dont un caché que se nomme txtNBAnimaux et qui contient la formule *:

Code :

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

= DCount("[IDAnimaux]; "TBLAnimaux]" ; "[txtIDPropriétaire]=" & [IDPropriétaire])

*J'ai pris des noms de champ supposés

De là, vous accordez le texte du corps de la lettre :

________________________________________________________

[Titre],

="Je vous informe que " & IIf([txtNBAnimaux] = 1 ;"votre animal figurant ci-dessous, " ; "vos animaux contenu dans la liste ci-dessous, ") & " bla bla bla bla bla bla bla bla bla bla bla bla..."

Très cordialement

[Signataire]

________________________________________________________


Argy

[galact]

Je termine dans 10 minutes, je tente ça demain et je dis quoi ! (ah oui, je suis du nord !)
Bonne fin de journée.

[galact]

Bonjour,

J'ai essayé ta méthode, j'avoue que le Dcount n'a pas été une réussite.
Du coup j'ai simplement mis un champ : =Compte([NumAnimal]) nommé txtNBAnimaux et invisible dans mon en-tête.
Ensuite dans le corps de mon courrier une zone de texte :
="Nous sommes au regret de vous informer que " & VraiFaux([txtNBAnimaux]=1;"l'animal :";"les animaux :")
Puis le détail, une ligne par animaux (même pas de sous-état comme tu me l'avais préconisé).
Et ça marche
Je suis sous Access 2003.
Je développe parce qu'il n'y a rien de plus énervant que de ne jamais avoir la réponse à un problème posé. Ca peut servir à d'autres, j'ai tellement cherché !
Encore merci à toi.