Discussion :

[gilles94450]

Bonjour,

Voici mon état en mode création


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

[micniv]

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 :

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

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

[gilles94450]

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

[micniv]

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 :

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

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

[gilles94450]

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 :

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

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) ?

[micniv]

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

puis

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

[gilles94450]

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