OVH Cloud OVH Cloud

Compter les caractères

2 réponses
Avatar
Florent
Bonjour,

Je voulais compter les caract=E8res de 2 m=E9mos. J'ai donc=20
cr=E9er des fonctions :

Dans l'=E9v=E9nement "sur changement" du 1er m=E9mo :
Me.Compteur =3D Len(Me.Memo1)

Dans l'=E9v=E9nement "sur changement" du 2=E8me m=E9mo :
Me.Compteur =3D Len(Me.Memo1) + Len(Memo2)

O=F9 Compteur est un champ texte de mon formulaire.

Cette fonction ne marche qu'=E0 moiti=E9. Je m'explique.

Lorsque je commence =E0 =E9crire dans le premier memo, les=20
caract=E8res ne se comptent pas. Il faut que je sorte du=20
premier m=E9mo (en cliquant sur un autre champ), que je=20
revienne sur le m=E9mo et que je supprime un caract=E8re pour=20
voir s'afficher le nombre de caract=E8re.

Or je voudrais que le compte de caract=E8re s'effectue en=20
temps r=E9el, au fur et =E0 mesure de la saisie de caract=E8res.

J'ai essay=E9 en actualisant la page active, mais le=20
r=E9sultat n'est pas top.

Des solutions ?

2 réponses

Avatar
3stone
Salut,

Je voulais compter les caractères de 2 mémos. J'ai donc
créer des fonctions :

Dans l'événement "sur changement" du 1er mémo :
Me.Compteur = Len(Me.Memo1)

Dans l'événement "sur changement" du 2ème mémo :
Me.Compteur = Len(Me.Memo1) + Len(Memo2)



Il faut utiliser :

Me.Compteur = Len(Me.Memo1.Text)


car, par défaut c'est .Value qui n'est "attribué" qu'un fois sorti...


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
Avatar
3stone
Salut,


Par contre il n'apprécie pas lorsque j'additionne les
caractères dans la procédure du 2ème mémo


Pour le champ actif, celui qui crée l'événement "On_Change", tu utilise :

= Len(Me!Memo1.Text)

pour t'adresser à l'autre champ, celui qui n'est pas actif, tu utilise :

= Len(Me!Memo1.Value)



--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------