Discussion :

[wulfgar57]

Bonjour à tous ..

Je galère fortement pour réussir à calculer le nombre de page d'un groupe dans un etat Access..

En effet par défaut le nombre de page s'affichant est le nombre de page de l'etat complet, par contre j'aimerai bien pouvoir afficher dans le pied de groupe le nombre de pages correspondant à ce groupe uniquement ..

Exemple , l'etat contient 15 pages divisés en 5 groupes de 3 pages chacun
J'aimerai avoir 1/3 2/3 3/3 (en bas de chaque page) puis 1/3 2/3 3/3 ...

D'avance merci si vous avez la solution ..

[fevec]

Je suis également concerné par ta demande.
Je n'ai pas trouvé de solution.

Au défaut, la solution que j'utiliserais ..
1 - par une requête création, stoker dans une table temporaire des identifiants correspondants à ton entête de groupe

2 - dans une boucle VBA,
a) parcourir la table temporaire
b) passer la valeur dans un contrôle dans un formulaire caché
c) lancer l'édition de l'état. (tu aura modifier ton état de départ, de façon qui
utilise le controle du formulaire caché comme paramètre, dans la requête source, où comme filtre)


Si cette piste t'intéresse, je dois pouvoir trouver le bout de code...

Les 2 limites majeurs :
- cela lance plusieurs documents à l'impression (autant que de groupes) ...je trouve que c'est plus lent
- pas de possibilité d'être en aperçu avant impression

J'espère que poster cette réponse va relancer la discussion sur le sujet...

[fevec]

voici une suggestion de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  DoCmd.OpenQuery "ReqTblTemp"  ' requête création de la table temporaire TblTemp   (ou une commande docmd.runSQL)
    Dim TableCli As Recordset
    Set TableCli = CurrentDb().OpenRecordset("TblTemp", DB_OPEN_TABLE)
    TableCli.MoveFirst
    DoCmd.OpenForm "Passage", , , , , A_HIDDEN  ' form avec un contrôle param (zone de texte)
 
    Do Until TableCli.EOF
       Forms!passage!param = TableCli!CodeFacture
       DoCmd.OpenReport "Rpt"  ' ton état qui utlise Forms!Passage!Param
       DoCmd.Close acForm, "Rpt"
       TableCli.MoveNext
   Loop
   TableCli.Close

[wulfgar57]

Merci pour ce bout de code
Mais je ne vois pas aprticulièrement ou tu veux en venir .. avec cette créationd e table temporaire et ce formulaire supplementaire

[fevec]

Cette table temporaire crée par requête...
Ce bout de code, ce formulaire pour passer un paramètre...
c'est le seul moyen que j'ai trouvé pour imprimer des états paginés en fonction du groupe....1/3..2/3...3/3.....puis 1/2...2/2....etc

en fait, si tu as avancé sur ta question initiale, je suis prêt à échanger dessus. et même à faire des tests, des propositions, mais je n'ai pas réussi à trouver la solution à restant dans l'état initial.
Peut être du VBA qui inspecterait le changement de valeur en tête de groupe, et remettre les compteurs de page à 0 ?

a te lire...
fevec

[DMboup]

Cherchez dans la FAQ ou chez microsoft. Il ya un sujet mais je n'est plus le lien.