התעלמות מתווים מיוחדים - vba

[אבי]

שאלה פשוטה..
יש לי מחרוזת עם מרכאות, לדוגמא : "ל' ניסן תשע"ה"
כשאני שולח את זה בשאילתה כתנאי או כערך הוא נותן שגיאת תחביר
איך כותבים לו שיתעלם מהתווים המיוחדים (כמו @ לפני המחרוזת ב #C)?

נ.ב. המחרוזת לא קבועה, ואין אפשרות לדעת היכן יהיו ממוקמים התווים המיוחדים אם בכלל.

תודה

פורסם במקור בפורום CODE613 ב19/04/2015 05:54 (+03:00)

[macroshadow]

בVBA אין אפשרות כזו. צריך להקיף את התוים המיוחדים בגרשיים.

פורסם במקור בפורום CODE613 ב19/04/2015 08:46 (+03:00)

[clickone]

תוכל להשתמש בקוד המצ"ב

'----------------------------------------------------------------------
' Enquote
'
'   Wraps the string in double quotes and escapes any double quotes
'   within the string with double, double quotes.
'----------------------------------------------------------------------
 Function Enquote(ByVal strText As String) As String
    Enquote = """" & Replace(strText, """", """""") & """"
End Function

כדי "לעטוף" כל סטרינג שתרצה במרכאות כפולות.
אפשר להשתמש גם בשאילתא וב DLookUp וכו' בתוך השאילתא / פונקצייה עצמה או כפרמטר.

דוגמא:

ver=DLookup("myExpr","MyTable","HebDate=" & Enquote(HebDateTextBox))

פורסם במקור בפורום CODE613 ב19/04/2015 15:35 (+03:00)