Discussion :

[YOUSSEFALAOUIA]

bonjour,
dans un Etat Access j'ai dans le pied de page un champ indépendant (T_OV) qui résulte la somme de champ (Net_Payer) dans détails grace à ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private TotalPage As Currency
 
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
TotalPage = TotalPage + [Net_Payer]
End Sub
 
Private Sub ZonePiedPage_Print(Cancel As Integer, PrintCount As Integer)
[T_OV].Value = TotalPage
'Initialisation de la variable pour la page suivante
TotalPage = 0
End Sub

je cherche à ce que(T_OV) de la page 2 soit (T_OV) de la page 1 plus (T_OV) de la page 2 ainsi de suite
Cordialement.

[hyperion13]

Salut
Je pense que ce lien vous donnera la solution.

[YOUSSEFALAOUIA]

bonjour,
suite à ce lien

Salut
Je pense que ce lien vous donnera la solution.

j'ai mis le code suivant :

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
Option Compare Database
 
Private curTotal  As Currency
 
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
 
 If PrintCount = 1 Then TotalPage = TotalPage + Me.Net_Payer
End Sub
 
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
TotalPage = 0    'Reset the sum to zero each new Page.
End Sub
 
Private Sub ZonePiedPage_Format(Cancel As Integer, FormatCount As Integer)
Me.PageTotal = TotalPage
End Sub

mais pas de resultats
cordialement

[tee_grandbois]

bonsoir,
tu as mal recopié le code, il faut utiliser la variable curTotal pas TotalPage:

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
Option Compare Database
 
Private curTotal  As Currency
 
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
 If PrintCount = 1 Then curTotal = curTotal + Me.Net_Payer
End Sub
 
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
curTotal = 0    'Reset the sum to zero each new Page.
End Sub
 
Private Sub ZonePiedPage_Format(Cancel As Integer, FormatCount As Integer)
Me.PageTotal = curTotal 
End Sub

et aussi peut- être mettre Me.[T_OV] à la place de Me.PageTotal si tu ne l'as pas renommé

[YOUSSEFALAOUIA]

Bonjour,
oui effictivement j'ai corrigé l'erreur alors mon code est :

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
Option Compare Database
 
Private curTotal  As Currency
 
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
 If PrintCount = 1 Then curTotal = curTotal + Me.Net_Payer
End Sub
 
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
curTotal = 0    'Reset the sum to zero each new Page.
End Sub
 
Private Sub ZonePiedPage_Format(Cancel As Integer, FormatCount As Integer)
Me.T_OV = curTotal
End Sub

Mais le total de la page 2 n'est plus la somme de la page 1 + la somme de la page 2
cordialement.

[tee_grandbois]

dans ce cas, il faut enlever cette partie qui remet à 0 le cumul:

Code :

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

1
2
3
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
curTotal = 0    'Reset the sum to zero each new Page.
End Sub

[YOUSSEFALAOUIA]

Bonjour;
effectivement .
un grand merci Mr tee_grandbois
Résolu.
cordialement