Pour 3Stone - Calcul nb caract d'un champs mémo BIS
2 réponses
maxsted
Bonjour
Suite à ma question pour caluler le nbre de caractere avec et sans espace
d'un champs de type mémo tu m'as donné le code ci-dessous qui marche très
bien. Cependant il compte 2 caractères supplémentaires à chaque fois qu'on va
a la ligne en tapant sur entrée (retour chariot) comment peut on annuler
cette conséquence?
Je te remercie par avance pour ton aide
Chris
Private Sub Champs_de_redaction_Change()
Me.nbcaractere = Len(Replace(Me.Champs_de_redaction.Text, " ", "")) & " : "
& Len(Me.Champs_de_redaction.Text)
End Sub
Bonjour Suite à ma question pour caluler le nbre de caractere avec et sans espace d'un champs de type mémo tu m'as donné le code ci-dessous qui marche très bien. Cependant il compte 2 caractères supplémentaires à chaque fois qu'on va a la ligne en tapant sur entrée (retour chariot) comment peut on annuler cette conséquence? Je te remercie par avance pour ton aide Chris
Private Sub Champs_de_redaction_Change() Me.nbcaractere = Len(Replace(Me.Champs_de_redaction.Text, " ", "")) & " : " & Len(Me.Champs_de_redaction.Text) End Sub
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
(Si je puis)
En utilisant une fois de plus la fonction Replace() pour éliminer les
retours à la ligne {vbCrLf ou l'association Chr(13) & Chr(10)}.
Bonjour
Suite à ma question pour caluler le nbre de caractere avec et sans espace
d'un champs de type mémo tu m'as donné le code ci-dessous qui marche très
bien. Cependant il compte 2 caractères supplémentaires à chaque fois qu'on va
a la ligne en tapant sur entrée (retour chariot) comment peut on annuler
cette conséquence?
Je te remercie par avance pour ton aide
Chris
Private Sub Champs_de_redaction_Change()
Me.nbcaractere = Len(Replace(Me.Champs_de_redaction.Text, " ", "")) & " : "
& Len(Me.Champs_de_redaction.Text)
End Sub
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Suite à ma question pour caluler le nbre de caractere avec et sans espace d'un champs de type mémo tu m'as donné le code ci-dessous qui marche très bien. Cependant il compte 2 caractères supplémentaires à chaque fois qu'on va a la ligne en tapant sur entrée (retour chariot) comment peut on annuler cette conséquence? Je te remercie par avance pour ton aide Chris
Private Sub Champs_de_redaction_Change() Me.nbcaractere = Len(Replace(Me.Champs_de_redaction.Text, " ", "")) & " : " & Len(Me.Champs_de_redaction.Text) End Sub
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Pierre CFI [mvp]
bonjour pas testé mais bon Len(Replace(Replace(Me.Champs_de_redaction.Text),Vbcrlf,""), " ", ""))
-- Pierre SALAUN MVP Access *******************************************************
"maxsted" a écrit dans le message de news:
Bonjour Suite à ma question pour caluler le nbre de caractere avec et sans espace d'un champs de type mémo tu m'as donné le code ci-dessous qui marche très bien. Cependant il compte 2 caractères supplémentaires à chaque fois qu'on va a la ligne en tapant sur entrée (retour chariot) comment peut on annuler cette conséquence? Je te remercie par avance pour ton aide Chris
Private Sub Champs_de_redaction_Change() Me.nbcaractere = Len(Replace(Me.Champs_de_redaction.Text, " ", "")) & " : " & Len(Me.Champs_de_redaction.Text) End Sub
bonjour
pas testé mais bon
Len(Replace(Replace(Me.Champs_de_redaction.Text),Vbcrlf,""), " ", ""))
--
Pierre SALAUN
MVP Access
*******************************************************
"maxsted" <maxsted@discussions.microsoft.com> a écrit dans le message de
news: 853B7DAC-760B-44C4-AB50-C0D36989D8FE@microsoft.com...
Bonjour
Suite à ma question pour caluler le nbre de caractere avec et sans espace
d'un champs de type mémo tu m'as donné le code ci-dessous qui marche très
bien. Cependant il compte 2 caractères supplémentaires à chaque fois qu'on
va
a la ligne en tapant sur entrée (retour chariot) comment peut on annuler
cette conséquence?
Je te remercie par avance pour ton aide
Chris
Private Sub Champs_de_redaction_Change()
Me.nbcaractere = Len(Replace(Me.Champs_de_redaction.Text, " ", "")) & " :
"
& Len(Me.Champs_de_redaction.Text)
End Sub
bonjour pas testé mais bon Len(Replace(Replace(Me.Champs_de_redaction.Text),Vbcrlf,""), " ", ""))
-- Pierre SALAUN MVP Access *******************************************************
"maxsted" a écrit dans le message de news:
Bonjour Suite à ma question pour caluler le nbre de caractere avec et sans espace d'un champs de type mémo tu m'as donné le code ci-dessous qui marche très bien. Cependant il compte 2 caractères supplémentaires à chaque fois qu'on va a la ligne en tapant sur entrée (retour chariot) comment peut on annuler cette conséquence? Je te remercie par avance pour ton aide Chris
Private Sub Champs_de_redaction_Change() Me.nbcaractere = Len(Replace(Me.Champs_de_redaction.Text, " ", "")) & " : " & Len(Me.Champs_de_redaction.Text) End Sub