
Originally Posted by
ACCESS 2007 REPLACE SPECIAL CHARACTERS FUNCTION
unction DescSpecCharToHTML(v_products_description_en) As String
Dim fdesc_nospec As String
fdesc_nospec = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace( Replace(Replace(Replace(Replace(Replace(Replace(v_products_description_en, Chr(34), """), Chr(145), ""), Chr(146), ""), Chr(147), ""), Chr(148), ""), Chr(153), ""), Chr(174), "®"), Chr(169), "©"), Chr(96), "`"), Chr(44), ","), Chr(176), "°"), Chr(39), "'"), Chr(126), "~"), Chr(153), ""), Chr(133), "
"), Chr(252), "ü")
DescSpecCharToHTML = fdesc_nospec
End Function
Bookmarks