salut, Public Function fctNoBalises(txt As String) As String 'Appel à partir du formulaire (par exemple pour la "Source contrôle" d'une zone de texte) 'ütNobalises([Mem1] & ", " & [Mem2] & ", " & [Mem3]) Const LesBalises As String = "<div>;</div>" 'ici mettre toutes les balises possibles séparées par ";" Dim tmp As Variant, tmpNoBalises As String, I As Byte 'Attention la balise <br> est interprétée par Access par Chr(13) & Chr(10) tmp = Split(LesBalises, ";") For I = 0 To UBound(tmp) txt = Replace(txt, tmp(I), "") Next I fctNoBalises = txt End Function A+ "Pascal Falcy" <pascal(spam)@falcy.ch> a écrit dans le message de news:
Bonjour,
J'ai créé un état qui récupère 3 champs, 1 nommé [Courrier_Avant_Salut], 1 nommé [Cont_Politesse] et 1 nommé [Courrier_Apres_Salut].
Les 3 champs sont des champs mémo (texte enrichi), lorsque je les concaténes dans un seul champs :
salut,
Public Function fctNoBalises(txt As String) As String
'Appel à partir du formulaire (par exemple pour la "Source contrôle" d'une
zone de texte)
'ütNobalises([Mem1] & ", " & [Mem2] & ", " & [Mem3])
Const LesBalises As String = "<div>;</div>" 'ici mettre toutes les balises
possibles séparées par ";"
Dim tmp As Variant, tmpNoBalises As String, I As Byte
'Attention la balise <br> est interprétée par Access par Chr(13) & Chr(10)
tmp = Split(LesBalises, ";")
For I = 0 To UBound(tmp)
txt = Replace(txt, tmp(I), "")
Next I
fctNoBalises = txt
End Function
A+
"Pascal Falcy" <pascal(spam)@falcy.ch> a écrit dans le message de news:
995076FE-B58E-4205-B7DE-6FF828F643E0@microsoft.com...
Bonjour,
J'ai créé un état qui récupère 3 champs, 1 nommé [Courrier_Avant_Salut], 1
nommé [Cont_Politesse] et 1 nommé [Courrier_Apres_Salut].
Les 3 champs sont des champs mémo (texte enrichi), lorsque je les
concaténes
dans un seul champs :
salut, Public Function fctNoBalises(txt As String) As String 'Appel à partir du formulaire (par exemple pour la "Source contrôle" d'une zone de texte) 'ütNobalises([Mem1] & ", " & [Mem2] & ", " & [Mem3]) Const LesBalises As String = "<div>;</div>" 'ici mettre toutes les balises possibles séparées par ";" Dim tmp As Variant, tmpNoBalises As String, I As Byte 'Attention la balise <br> est interprétée par Access par Chr(13) & Chr(10) tmp = Split(LesBalises, ";") For I = 0 To UBound(tmp) txt = Replace(txt, tmp(I), "") Next I fctNoBalises = txt End Function A+ "Pascal Falcy" <pascal(spam)@falcy.ch> a écrit dans le message de news:
Bonjour,
J'ai créé un état qui récupère 3 champs, 1 nommé [Courrier_Avant_Salut], 1 nommé [Cont_Politesse] et 1 nommé [Courrier_Apres_Salut].
Les 3 champs sont des champs mémo (texte enrichi), lorsque je les concaténes dans un seul champs :