Le total du pied d'=E9tat de mon =E9dition donne un r=E9sultat diff=E9rent
entre l'aper=E7u et l'impression.
Concernant l'aper=E7u, j'arrive =E0 avoir le total du pied d'=E9tat juste
si je le parcours page apr=E8s page. Si je passe de la premi=E8re =E0 la
derni=E8re, le total du pied d'=E9tat cumule une fois de trop les valeurs
=E0 cumuler de la derni=E8re page. Quel que soit le parcours, le resultat
sur l'imprimante est toujours OK.
Quel est ce prodige ? Et comment faire pour que =E7=E0 soit en sorte.
En Clair merci de me donner une piste.
Voil=E0 le code associ=E9 =E0 l'=E9tat.
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 =3D Reports!recap![Budget]
tmpAmount =3D R![Budget]
' Remember the total for the group.
OrderTotalB =3D OrderTotalB + tmpAmount
' Remember the total for the report.
GrandTotalB =3D GrandTotalB + tmpAmount
CalcProductB =3D tmpAmount
End Function
Function CalcProductF(R As Report)
Dim tmpAmount As Double
tmpAmount =3D R![Forecast]
' Remember the total for the group.
OrderTotalF =3D OrderTotalF + tmpAmount
' Remember the total for the report.
GrandTotalF =3D GrandTotalF + tmpAmount
CalcProductF =3D tmpAmount
End Function
Function InitVars()
OrderTotalB =3D 0
GrandTotalB =3D 0
OrderTotalF =3D 0
GrandTotalF =3D 0
End Function
Function GetGroupTotalB()
GetGroupTotalB =3D OrderTotalB
' Reset the variable to 0 for next group.
OrderTotalB =3D 0
End Function
Function GetGroupTotalF()
GetGroupTotalF =3D OrderTotalF
' Reset the variable to 0 for next group.
OrderTotalF =3D 0
End Function
Function GetReportTotalB()
GetReportTotalB =3D GrandTotalB
End Function
Function GetReportTotalF()
GetReportTotalF =3D GrandTotalF
End Function
Private Sub Ent=EAte=C9tat_Format(Cancel As Integer, FormatCount As
Integer)
InitVars
End Sub
Private Sub Report_Open(Cancel As Integer)
InitVars
End Sub
