a la place de chr(10), mets vbCrLf
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
Je rentre des données dans une BDD Access via un formulaire. Pour permettre de passer à la ligne dans ces articles, les utilisateurs doivent taper </p></p>.
J'aimerai automatiser la mise en forme de l'article. Dans un code de forum, j'ai trouvé cette fonction que j'ai retapée :
Function Apost(strAp)
If strAp <> "" Then
If Instr(strAp,"'")<>0 Then
Apost = Replace(strAp,"'","''")
Apost = Replace(strAp, CHR(13), "")
Apost = Replace(strAp, CHR(10) & CHR(10), "</P><P>")
Apost = Replace(strAp, CHR(10), "<BR>")
Else
Apost = strAp
End If
End If
End Function |
Le CHR(10) ddoit être le code pour une pression sur Entrée, et pourtant ça ne fonctionne pas. Dans mon formulaire le CHR(10) n'apparaît pas quand j'appuie sur Entrée apparemment, qqu'un a une soluce ?