עזרה בשאילתה בVBA

[מנצפך]

ה string מוקף ב מרכאות ?

[מנצפך]

צריך להיות כך:

 Set rs = CurrentDb.OpenRecordset("SELECT * FROM [טתלושים] WHERE (((טתלושים.בטיפול) = True) AND ((טתלושים.שולם) = False) AND ((טתלושים.חנות) = 'CT'))")

[ארי]

@מנצפך אמר בעזרה בשאילתה בVBA:

צריך להיות כך:

 Set rs = CurrentDb.OpenRecordset("SELECT * FROM [טתלושים] WHERE (((טתלושים.בטיפול) = True) AND ((טתלושים.שולם) = False) AND ((טתלושים.חנות) = 'CT'))")

CT זה שם של השדה

[מנצפך]

@ארי אמר בעזרה בשאילתה בVBA:

CT זה שם של השדה

אז מה.
בשאילתה צריך להכניס מרכאות.

[מנצפך]

@ארי תנסה.

[ארי]

אם אני שם מרכאות בשם של השדה זה עושה לי שגיאה בVBA ולא נותן לי לכתוב את זה

[ארי]

ניסיתי לשים מרכאות כאלה ' ' וזה לא עבד בכלל, אפי' לא שגיאה.
וכשאני של מכרות כאלה " " אז אקסס מביא לי שגיאה כבר כשאני כותב את זה בVBA

[מנצפך]

מה זה CT? משתנה?
א"כ אתה צריך לכתוב:

AND ((טתלושים.חנות) = ' " & CT & " '))"

[ארי]

CT זה השם של השדה בטופס

[WWW]

@ארי לכאורה זה צריך להיות:

[CT]

[מנצפך]

אז צריך לעשות משהו כזה:
(אני כבר לא זוכר כ"כ)

AND ((טתלושים.חנות) = ' " & [CT] & " '))"

[ארי]

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

[ארי]

לא.
זה כותב לי פרמטרים מעטים מדי.

[מנצפך]

@ארי וזה עובד?

[ארי]

לא.
זה כותב לי פרמטרים מעטים מדי.

[מנצפך]

בשביל לגשת לטופס צריך לעשות משהו כמו:

[Forms]![myFrom]![MyControl]

[מנצפך]

@ארי למה מחקת את השאילה האחרונה?

[ארי]

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

[clickone]

@ארי

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

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

 Function Enquote(ByVal strText As String) As String
    Enquote = """" & Replace(strText, """", """""") & """"
End Function

[clickone]

@ארי אמר בעזרה בשאילתה בVBA:

אגב איך עושים ציטוט של קוד?

עושים 3 פעמים תלתל (~) כדי להתחיל קוד ו3 כדי לסיים