Discussion :

[adrien.gendre]

Bonjour j'ai un état et je cherche a fair la somme de certaines colones dans le pied de page. J'ai fait cela pour une colone tiré d'une base :

Code :

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

txtSommeProd = DSum("[CHAMOTPROD]", "DataTech")

Mais je n'arrive pas à le faire pour fair la somme d'une colone qui fait un calcul déjà entre différents champs de sa ligne, elle n'est pas enregistré dans la table.

[Jeannot45]

Bonjour adrien

Access n'accepte pas les champs de cumul (style : Somme(MonChamp)) dans les entetes et pieds de page.

Tu peut détourner le problème par programmation VB. Il me semble avoir vu un exemple dans la base exemple "Solutions" fournis par Microsoft

A+

Jeannot

[adrien.gendre]

D'accord jeannot merci de ton aide ou est ce que je peux trouver l'exemple solutions de microsoft comment l'ouvrir ?

[Jeannot45]

Il est sur le CD d'installation du pack Office

Jeannot

[adrien.gendre]

Je ne veux pas faire le mec embêtant mais je ne le trouve pas tu pourrais pas me mettre le code de la solution un simple copier coller s'il te plait.
Adrien

[Jeannot45]

Ok Adrien

Tout d'abord ce n'est pas dans la base Exemples que j'avais lu cette possibilité mais dans un livre "Access en action" de Getz, Litwin et Baron paru chez O'NELLY

Je te donne les différentes étapes, à toi d'adapter

Pour créer des totaux de pages:
1) Creez votre état et triez puis regroupez comme vous le souhaitez.
2) Créez une Prcédure évènementielle au formatage des sections Entetes et Pied de page :

Code :

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

1
2
3
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
    txtTotalPage = 0
End Sub

et

Code :

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

1
2
3
Private Sub ZonePiedPage_Format(Cancel As Integer, FormatCount As Integer)
    txtTotalPage = 0
End Sub

3)Créez une Procédure évènementielle au formatage de la section détail

Code :

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

1
2
3
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    txtTotalPage = txtTotalPage + TonChamp
End Sub

4) Sauvegardez l'état

J'espère que cela t'aidera

Jean