Discussion :

[killpilot]

bonjour a tous,

je vais me faire taper sur les doigt mais j'ai un petit souci

j'ai trouver la fonction suivante dans la FAQ

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
 
    If Me.Page = 1 Or Me.Page = 3 Or Me.Page = 5 Or Me.Page = 6 Or Me.Page = 7 Then
         Me.ZoneEntêtePage.Visible = False
    Else
         Me.ZoneEntêtePage.Visible = True
    End If
End Sub

donc je l'ai insere dans mon code de report et cela donne cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Compare Database
 
Private Sub Report_Open(Cancel As Integer)
 ZoneEntêtePage_Format()   
End Sub
 
Public Function GetCopyRight()
 
GetCopyRight = DLookup("copyright", "tablecopyright")
 
End Function
 
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
 
    If Me.Page = 1 Or Me.Page = 3 Or Me.Page = 5 Or Me.Page = 6 Or Me.Page = 7 Then
         Me.ZoneEntêtePage.Visible = False
    Else
         Me.ZoneEntêtePage.Visible = True
    End If
End Sub

et cela ne marche pas j'ai toujours mon entete de page sur les pages 1, 3, etc..

je pense que je n'ai pas appelle ma fonction correctement.

je pense que la reponse dois etre toute bete mais je ne la trouve pas auriez vous une piste s'il vous plait.

merci d'avance cordialement,

[killpilot]

je pensai avoir trouve


je suis sous un ACCESS US

donc ma fonction est en fait

Code :

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

1
2
3
4
5
6
7
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    If Me.Page = 1 Or Me.Page = 3 Or Me.Page = 5 Or Me.Page = 6 Or Me.Page = 7 Then
         Me.PageHeaderSection.Visible = False
    Else
         Me.PageHeaderSection.Visible = True
    End If
End Sub

mais cela ne marche toujours pas

merci d'avance