אופיס 365 שימוש בתנאי במחרוזת שמכילה גרש (') או גרשיים (")

[לוי א]

אני משתמש בקוד דלדהלן כדי ליצור מחרוזת SQL משתנית ל Rrcordset

strSQL = "SELECT Streets.StreetName FROM Streets WHERE StreetName LIKE '*' & '" & StreetName & "' & '*' and CityName = '" & CityName & "'"

הבעיה היא בעת שימוש במחרוזת (שם רחוב) שמכיל בתוכו גרש או גרשיים ואז המחרוזת מסתבכת,
אם היה רק מחרוזות עם גרש הייתי מחליף את הגרש שבתוך המחרוזת (אחרי ה '*' &) ב chr(34) ואז זה היה נותן לי גרשיים, הבעיה שיש גם מחרוזות עם גרשיים ואז זה מסתבך שוב
למישהו יש פתרון?

 

[אייקוד]

תעטוף את המחרוזת עם הפונקציות הבאות
הראשונה מטפלת בגרש יחיד (בדרך כלל מספיק להשתמש בה בלבד), והשניה בגרשיים כפולים.

Public Function Enquote1(ByVal strText As Variant) As String
    Enquote1 = Replace(Nz(strText, ""), "'", "''")
End Function

Public Function Enquote2(ByVal strText As Variant) As String
    Enquote2 = Replace(Nz(strText, ""), """", """""")
End Function

 

[אפר]

תעטוף את המחרוזת עם הפונקציות הבאות
הראשונה מטפלת בגרש יחיד (בדרך כלל מספיק להשתמש בה בלבד), והשניה בגרשיים כפולים.

Public Function Enquote1(ByVal strText As Variant) As String
    Enquote1 = Replace(Nz(strText, ""), "'", "''")
End Function

Public Function Enquote2(ByVal strText As Variant) As String
    Enquote2 = Replace(Nz(strText, ""), """", """""")
End Function

אפשר בשתיהן ליתר ביטחון ואפשר פשוט להכפיל בגוף הטקסט לפעמים