Total Pied de page

Voilà le code associé à l'état.

Option Compare Database
Option Explicit
Dim OrderTotalB As Double ' Used for group total.
Dim GrandTotalB As Double ' Used for report total.
Dim OrderTotalF As Double ' Used for group total.
Dim GrandTotalF As Double ' Used for report total.
Function CalcProductB(R As Report)
Dim tmpAmount As Double
'tmpAmount = Reports!recap![Budget]
tmpAmount = R![Budget]
' Remember the total for the group.
OrderTotalB = OrderTotalB + tmpAmount
' Remember the total for the report.
GrandTotalB = GrandTotalB + tmpAmount
CalcProductB = tmpAmount
End Function
Function CalcProductF(R As Report)
Dim tmpAmount As Double
tmpAmount = R![Forecast]
' Remember the total for the group.
OrderTotalF = OrderTotalF + tmpAmount
' Remember the total for the report.
GrandTotalF = GrandTotalF + tmpAmount
CalcProductF = tmpAmount
End Function
Function InitVars()
OrderTotalB = 0
GrandTotalB = 0
OrderTotalF = 0
GrandTotalF = 0
End Function
Function GetGroupTotalB()
GetGroupTotalB = OrderTotalB

' Reset the variable to 0 for next group.
OrderTotalB = 0
End Function
Function GetGroupTotalF()
GetGroupTotalF = OrderTotalF

' Reset the variable to 0 for next group.
OrderTotalF = 0
End Function

Function GetReportTotalB()
GetReportTotalB = GrandTotalB
End Function
Function GetReportTotalF()
GetReportTotalF = GrandTotalF
End Function


Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As
Integer)
InitVars
End Sub

Private Sub Report_Open(Cancel As Integer)
InitVars
End Sub


Merci

Bonjour
Ton calcul se fait a l'evenement formatage de la section. Celui ci peut se
produire plusieurs fois pour une meme section et fausser tes calculs. essaie
sur l'evenement print ou sert toi de la variable formatcount
@plus
Michel
"Probleme Access" <k0kvrp14z9egeot@jetable.org> a écrit dans le message de
news: 1127807077.046241.157290@g49g2000cwa.googlegroups.com...
Bonjour,

Le total du pied d'état de mon édition donne un résultat différent
entre l'aperçu et l'impression.

Concernant l'aperçu, j'arrive à avoir le total du pied d'état juste
si je le parcours page après page. Si je passe de la première à la
dernière, le total du pied d'état cumule une fois de trop les valeurs
à cumuler de la dernière page. Quel que soit le parcours, le resultat
sur l'imprimante est toujours OK.

Quel est ce prodige ? Et comment faire pour que çà soit en sorte.

Merci.