[AC-2003] expression page par groupe dans un etat [Résolu]

[garsflo]

Bonjour,
Je cherche désespéremment l' expression telle que :"="Page " & [Page] & " sur " & [Pages]" sauf que je souhaite en pied de page de mon état le numéro de page du regroupement. Pour information j'ai un saut de page à chaque nouveau regroupement ( propriété saut de page "avant section" dans l'En-tête de groupe). A chaque nouveau regroupement j'attend en pied de page "page 1 sur 1". Je comptait sur une expression "facile" mais impossible de trouver les premières lumières!!!
Quequ'un peut il me mettre sur la voie?
Merci pour le coup de pouce

[keita]

bonjour
dans le pied de page essayons ça:
1/ crées une zone de texte
2/dans sa source (control source):
="Page: " & [Page] & " / " & [Pages]
ou bien
="Page: " & [Page] & " sur " & [Pages]

j'espère que je ne suis pas passez à coté du sujet.

@+

[garsflo]

Salut Keita,
Ta solution me donne le numéro de page sur le nombre total de page. Je souhaite le numéro de page du regroupement. Une fois que le champ en en tête de groupe prend une autre valeur que la précedente alors il y a un saut de page et une numérotation qui repartirait 1 sur 1, 1 sur 2,... jusqu'à ce que la valeur du champ en tête de groupe change.
Je vais essayer de voire avec une requête et un peu de code mais n'y aurait il pas une solution plus simple?
Merci encore

[keita]

bonjour
Pour ce qui est de reinitialiser, on peut faire ceci:
1/Pour l'entete de groupe

Code :

1
2
3
Private Sub EntêteGroupe1_Format(Cancel As Integer, FormatCount As Integer)
    Page = 1
End Sub

2/dans la propriété Saut de page du pied de groupe:
tu mets Après section
3/Dans le control dans le pied de page:
="Page: " & [Page]

Pour ce qui est du " sur " & [Pages] on va y reflechir ensemble.non?

@+

[keita]

bonsoir
En cherchant sur le forum, j'ai trouvé ceci:
http://www.developpez.net/forums/d99...oupe-page-x-y/
Et plus précisement la proposition de naphta; tu pourras t'y rendre pour plus d'infos.
1/ Mets ça dans ton etat au niveau module;

Code :

1
2
3
4
5
Option Compare Database
Option Explicit
Dim GrpTableauPage(), GrpTableauPages()
Dim GrpNomCourrent As Variant, GrpNomPrecedent As Variant
Dim GrpPage As Integer, GrpPages As Integer

Sur l'évènement au formatage du pied de page:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub PiedPage_Format(Cancel As Integer, FormatCount As Integer)
    Dim i As Integer
    If Me.Pages = 0 Then
      ReDim Preserve GrpTableauPage(Me.Page + 1)
      ReDim Preserve GrpTableauPages(Me.Page + 1)
      GrpNomCourrent = Me.CtlRegrpe       ' Nom Du Champ Sur Lequel Le Regroupement est fait
      If GrpNomCourrent = GrpNomPrecedent Then
          GrpTableauPage(Me.Page) = GrpTableauPage(Me.Page - 1) + 1
          GrpPages = GrpTableauPage(Me.Page)
              For i = Me.Page - ((GrpPages) - 1) To Me.Page
                  GrpTableauPages(i) = GrpPages
              Next i
      Else
          GrpPage = 1
          GrpTableauPage(Me.Page) = GrpPage
          GrpTableauPages(Me.Page) = GrpPage
      End If
    Else
      Me!ctlGrpPages = "Page " & GrpTableauPage(Me.Page) & " sur " & GrpTableauPages(Me.Page)
    End If
    GrpNomPrecedent = GrpNomCourrent
End Sub

ctlGrpPages est le nom de la zone de texte dans le pied de page où doit apparaitre la pagination: page: 1 sur 6 par exemple.

@+

[garsflo]

Merci beaucoup pour le coup de main keita.
J'ai testé ta solution en m'aidant du lien que tu m'as donné et tout fonctionne à la perfection.
merci encore c'est génial
@+