Je cr=E9e =E9tat depuis une requ=EAte analyse crois=E9e en VBA=20
(voir le code ci-dessous)
Ca marche impec. Mais je voudrais cr=E9er des contr=F4les en=20
pied d'=E9tat pour calculer la somme de chaque colonne.
Quelqu'un a-t-il une id=E9e de comment faire ?
Merci pour votre aide
Mario
Set ET01 =3D CreateReport(, "ETRQ02")
DoCmd.Restore
stDocName =3D "=C9tat1"
DoCmd.OpenReport stDocName, acDesign
ET01.RecordSource =3D "RQ03"
'Pour r=E9cup=E9rer les ent=EAte des colonnes
Set rst =3D CurrentDb.OpenRecordset("RQ03")
NU =3D rst.Fields.Count
=20
For i =3D 0 To NU - 1 'Nombre de champs
NC(i + 1) =3D rst.Fields(i).Name
Next i
P1X =3D 0: P1Y =3D 0: H1 =3D 300: ES =3D 50
Set CTL01 =3D CreateReportControl("=C9tat1", acLabel,=20
acHeader, "", "", P1X, P1Y, 6000, 500)
CTL01.FontSize =3D 16
CTL01.Caption =3D NC(X)=20
CTL01.FontName =3D "arial"
CTL01.ForeColor =3D vbBlue
CTL01.Caption =3D "TITRE"
=20
For X =3D 1 To NU
L1 =3D 400: If X =3D 1 Then L1 =3D 800
Set CTL01 =3D CreateReportControl("=C9tat1", acLabel,=20
acPageHeader, "", "", P1X, P1Y, L1, H1)
CTL01.FontSize =3D 8: CTL01.BorderStyle =3D 1
CTL01.Caption =3D NC(X): CTL01.FontName =3D "arial"
CTL01.ForeColor =3D vbBlue
CTL01.TextAlign =3D 2
P1X =3D P1X + ES + L1
Next X
=20
P1X =3D 0: P1Y =3D 0
For X =3D 1 To NU
L1 =3D 400: If X =3D 1 Then L1 =3D 800
Set CTL01 =3D CreateReportControl("=C9tat1", acTextBox,=20
acDetail, "", NC(X), P1X, P1Y, L1, H1)
CTL01.FontSize =3D 10: CTL01.BorderStyle =3D 1
CTL01.FontName =3D "arial"
CTL01.FontBold =3D False
CTL01.TextAlign =3D 2
P1X =3D P1X + ES + L1
Next X
=20
DoCmd.OpenReport stDocName, acPreview
