נסה את זה
מכסה את כל בעיות המרכאות והגרשיים באקסס
' Wraps the string in double quotes and escapes any double quotes
' within the string with double, double quotes.
'----------------------------------------------------------------------
Public Function Enquote(ByVal strText As String) As String
Enquote = """" & Replace(strText, """", """""") & """"
End Function
פורסם במקור בפורום CODE613 ב21/03/2017 00:11 (+02:00)