Discussion :

[Bubudu77]

Bonjour à tous,

Je possède un état principal contenant plusieurs sous-états

L'état principal contient une entête de groupe

J'ai mis un pied de page en bas de l'état principal, il s'affiche donc sur toutes les pages (sauf la première car dans la propriété Etat, j'ai pu mettre Pied de page à "Sans entête d'état")

Mais comme indiqué dans le titre, je souhaite désactiver ce pied de page pour les entêtes de groupe


J'ai effectué différentes tentatives pour contourner le problème, qui ne fonctionnent pas.

1) J'ai déplacé les pied de pages du niveau état au niveau sous état. Problème, ACCESS refuse d'afficher les pieds de page des sous-états.

2) J'ai mis directement les champs de mon pied de page en dur sur les pages voulues dans le détail de mes sous-états. Problème, mon pied de page contient un champ de numéro de page, et ACCESS refuse d'afficher le numéro de page dans le détail d'un état (entête ou pied de page uniquement)


Si quelqu'un a une idée ou une piste pour résoudre ce problème, je lui témoignerais mon éternelle gratitude, ainsi qu'un tas de pensées positives toutes choupimignonnes même si on ne se connait pas

Merci d'avance!

[marot_r]

Bonjour.

J'ai fait un essai avec le code suivant :

Code :

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

1
2
3
4
Option Compare Database
Option Explicit
 
Private m_EstEnteteGroupe As Boolean

Code :

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

1
2
3
Private Sub EntêteGroupe0_Print(Cancel As Integer, PrintCount As Integer)
    m_EstEnteteGroupe = True
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ZonePiedPage_Print(Cancel As Integer, PrintCount As Integer)
 
    If m_EstEnteteGroupe Then
            Me.AffPage.Visible = False
            m_EstEnteteGroupe = False
        Else
            Me.AffPage.Visible = True
    End If
 
End Sub

AffPage est la zone de texte qui affiche "Page X de Y".

Avec "saut de page : Avant entête de groupe" sur l'entête de groupe et cela marche.

[Bubudu77]

Bonjour marto_r, merci d'avoir répondu.

Ta solution fonctionne en effet, mais permet de cacher le pied de page, mais sans le désactiver.

Je me retrouve avec mes entêtes de groupe avec des pieds de pages invisibles, mais ces pieds de page sont quand même présents, ainsi tout mon état se retrouve décalé

[marot_r]

Code :

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

1
2
3
4
Option Compare Database
Option Explicit
 
Private m_EstEnteteGroupe As Boolean

Code :

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

1
2
3
Private Sub EntêteGroupe0_Print(Cancel As Integer, PrintCount As Integer)
    m_EstEnteteGroupe = True
End Sub

Code :

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

1
2
3
Private Sub ZonePiedPage_Format(Cancel As Integer, FormatCount As Integer)
    GererPiedPage
End Sub

Code :

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

1
2
3
Private Sub ZonePiedPage_Print(Cancel As Integer, PrintCount As Integer)
    GererPiedPage
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub GererPiedPage()
 
    If m_EstEnteteGroupe Then
            Me.ZonePiedPage.Visible = False
            m_EstEnteteGroupe = False
        Else
            Me.ZonePiedPage.Visible = True
    End If
 
End Sub

Ça marche presque, le pied de page est blanc sur la page de l'entête de groupe et inexistant sur la page suivante puis revient après.

Je pense que c'est une bonne piste mais je n'ai pas le temps d'approfondir.