Somme ou compte dans un pied de page de formulaire

Bonjour,

Voici mon état en mode création
Pièce jointe 489788

Dans le pied de page de mon état je souhaite compter le nombre d'enregistrement à partir du champ [total]
J'ai inséré une zone de texte avec la formule =Compte([total]) dans mon pied de page mais cela me renvoie un message #erreur en mode aperçu avant impression, pourquoi ?

Pourquoi ne peut-on pas faire de calcul de sommes et de compte aussi facilement que dans un formulaire classique, quel problème y'a-t-il avec un pied de page ?

Je souhaiterai également compter le nombre de champ nonvide [total], cela est-il également possible?

Merci pour votre éclairage

Bonjour,

Apparemment, en pied de page d'un état (au contraire de pied d'état ou pied de groupe), les fonctions comme Compte() ne fonctionnent pas fiablement.

Il vaut mieux passer par du code :
dans le module de l'état, déclare une variable cnt
puis dans les evenements Détail_Print et ZonePiedPage_Print,saisit le code comme ci dessous :
(dans le pied de page

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Dim cnt As Integer   Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) cnt = cnt + 1 End Sub   Private Sub ZonePiedPage_Print(Cancel As Integer, PrintCount As Integer) Me.txtComptePage = "Records/page: " & cnt cnt = 0 End Sub

---

CDLT

Merci effectivement ça marche.. .étonnant qu'une fonction Compte([texte]) ne marche pas...

Par contre comment puis-je faire pour décompter en fonction du contenu de la zone texte ?
Par exemple si je ne veux compter que les enregistrements qui contienne la valeur 1 dans la zone de texte ?

Merci

Il suffit d'étendre un peu le code que je t'ai proposé.

Tu déclares une seconde variable au niveau du module , disons Dim cnt1 ... et tu poursuis comme ci-dessous

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Option Explicit   Dim cnt As Integer Dim cnt1 As Integer   Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) cnt = cnt + 1   ' txtChamp1 est le champ dans la zone détail valorisé à 1 if me.txtChamp1= 1 then cnt1 = cnt1 + 1   End Sub   Private Sub ZonePiedPage_Print(Cancel As Integer, PrintCount As Integer) Me.txtComptePage = "Records/page: " & cnt cnt = 0   ' txtCompte1 est le champ indépendant dans la zone PiedPage pour compter les 1 Me.txtCompte1 = cnt1 cnt1=0   End Sub

---

pas testé, mais ca devrait le faire.
Si oui, n'oublie pas de passer en Résolu

CDLT

Merci une fois de plus, voici le code que j'attendais.
Une dernière question pour comprendre ce compte ultra-simple qui m'aide beaucoup :

Code:

---

1 2	Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) cnt = cnt + 1

---

Comment se fait-il que cnt s'attribue automatiquement la valeur que j'appellerai maladroitement "ligne enregistrement"
alors que vous ne définissez à aucun moment les propriétés de cnt sinon que c'est un entier (dans les déclarations des variables initiales) ?

cnt est déclaré au niveau du module pour pouvoir utiliser sa valeur dans toutes les procédures du module

puis

Citation:

---

Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
cnt = cnt + 1
...

---

l'evt Détail_Print se déclenche pour chaque enregistrement (de la requette source), ainsi cnt compte les enregistrements

et l'evt ZonePiedPage_Print clot la page et remet cnt à 0 pour recommencer à compter pour la page suivante

CDLT

Merci, c'est clair. Bravo à tous pour l'aide que vous apportez !