Etat, concaténer 3 champs mémo (format texte enrichi)

Salut,


Pourqoi ne répond tu pas aux propositions qui te sont faites,
au lieu de rebalancer simplement ta question ??


Pascal Falcy wrote:

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 :

=[Courrier_Avant_Salut] & ", " & [Cont_Politesse] & ", " &
[Courrier_Apres_Salut]

J'ai le résultat suivant :

Recevez,
Monsieur,
Nos meilleures salutations.

A la place d'avoir un résultat sur une ligne ...

Si tu passes à la ligne, c'est que tu as un retour chariot à la fin de
chaque champ... retour chariot qu'il suffit de supprimer !

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)

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 :

=[Courrier_Avant_Salut] & ", " & [Cont_Politesse] & ", " &
[Courrier_Apres_Salut]

J'ai le résultat suivant :

Recevez,
Monsieur,
Nos meilleures salutations.

A la place d'avoir un résultat sur une ligne ...

Merci de votre aide car là je deviens chèvre

Pascal