Discussion :

[73brunette73]

Bonjour,

J'ai un formulaire principale et un sous formulaire, dans ce dernier un champ monchamp.

Je voudrais compter dans le pied de mon sous formulaire le nombre de fois ou est taper "1" dans monchamp.

J'ai inserer un texte indépendant mais je n'arrive pas a trouver la syntaxe.

Ca doit etre une formule du style =compte([monchamp]) si 1

mais je l'ecrit mal

merci d'avance

[Nourson]

Ce petit bout de code devrait convenir
En appelant Compteur le champ indépendant devant recevoir le nombre d'occurences "1", il suffit de placer sur la propriété Apèes MAJ de MonChamp le code suivant

Code :

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

1
2
3
4
5
6
7
8
Private Sub MonChamp_AfterUpdate()
    Dim I As Integer, X As Integer
    X = 0
    For I = 1 To Len(Me.MonChamp.Value)
        If Mid$(Me.MonChamp.Value, I, 1) = "1" Then X = X + 1
    Next I
    Me.Compteur = X
End Sub

A+
Nourson

[rjamin]

Bonjour,

Dans la requète du sous fromulaire mettre un champs calculé Compte1 par exemple

Code :

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

Compte1:VraiFaux([MonChamp]=1;1;0)

Dans le pied du sous formulaire un champ indépendant qui reprend

Code :

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

=Somme([Compte1])

[73brunette73]

Bonjour,

Merci de vos réponses,

Cela fonctionne parfaitement avec votre solution rjamin, par contre le code Nourson ne fonctionne pas il ne fait pas la somme des "1" dans le texte indépendant il affiche "1" meme si j'entre plusieurs "1"

Merci encore a vous pour vos réponses !!

Cordialement