מה גורם לסוגריים להתהפך???

[ראש לשועלים]

            betweenWhere = "WHERE (shipers.dateship between #" & Me.fromdate & "# and #" & Me.todate & "#) and ("
            theWhere = betweenWhere
            theWhere = theWhere & "shipers.lakoah_code in ("
                For Each Numtr In Me.רשימה0.ItemsSelected
                    theWhere = theWhere & Me.רשימה0.Column(0, Numtr) & ","
                Next Numtr
            theWhere = Left$(theWhere, Len(theWhere) - 1)
            theWhere = theWhere & "))"
            Me.sub_form_me.Form.RecordSource = "SELECT shipers.* FROM shipers " & theWhere & ";"

מה לא טוב בקוד הזה, שמביא עלי את זה:

 

[ראש לשועלים]

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

 

[ראש לשועלים]

הבו עצה הלום כי חסר אונים אנוכי.
מדובר במשפט CASE SELECT שכולל 15 איברים יחסית דומים זה לזה, כולם עובדים חוץ משנים שאת דוגמתם העליתי.

 

[moishy]

זה נראה לך תקין?

( shipers.lakoah_code in)

 

[ראש לשועלים]

@moishy כבודו הפך את הסוגריים?!

 

[ראש לשועלים]

או נכון יותר: מאיפה צוטט הקוד הזה?

 

[חגי פאהן]

אולי יכול להיות שהשורה הזו מוחקת את הסוגר במקרה שה-for לא החזיר כלום ואין פסיק?

theWhere = Left$(theWhere, Len(theWhere) - 1)

(ואישית לא הייתי מכניס את כל התנאי הזה אם אין פלט ל-for)

 

[ראש לשועלים]

היא מוחקת פסיק

 

[חגי פאהן]

היא מוחקת פסיק

ובמקרה כמו זה, שאין פסיק כי ה-for ריק? כנראה היא מוחקת את הסוגר, לא? (וערכתי את ההודעה למעלה)

 

[ראש לשועלים]

ובמקרה כמו זה, שאין פסיק כי ה-for ריק? כנראה היא מוחקת את הסוגר, לא?

לא. כי ראית רק חלק מהקוד. ואם הסוגריים ריקות הקוד לא מגיע לפינה הזו בכלל.

 

[ראש לשועלים]

לא. כי ראית רק חלק מהקוד. ואם הסוגריים ריקות הקוד לא מגיע לפינה הזו בכלל.

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

 

[ראש לשועלים]

ולא זו בלבד, אלא שבDebug הוא כן מראה מספר בfor

 

[חגי פאהן]

אם ודאי לך ש-Me.רשימה0.ItemsSelected לא ריק בשלב הזה (אפשר להדפיס אותו), כנראה משהו פה לא תקין:

Me.רשימה0.Column(0, Numtr)

יש סוגי מערכים מתוכנות ישנות (כמו אקסל) שבהם הספירה מתחילה מ-1 ולא מ-0. אולי זה זה?

 

[ראש לשועלים]

הערך של
theWhere:

WHERE (shipers.dateship between #02/10/2018# and #04/10/2018#) and (shipers.lakoah_code in ))

וזה הערך של

Me.רשימה0.Column(0, Numtr)

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

 

[ראש לשועלים]

החלק הזה למשל, עובד:

            theWhere = "WHERE shipers.lakoah_code in ("
                For Each Numtr In Me.רשימה0.ItemsSelected
                    theWhere = theWhere & Me.רשימה0.Column(0, Numtr) & ","
                Next Numtr
            theWhere = Left$(theWhere, Len(theWhere) - 1)
            theWhere = theWhere & ")"
            Me.sub_form_me.Form.RecordSource = "SELECT shipers.* FROM shipers " & theWhere & ";"

 

[חגי פאהן]

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

 

[moishy]

או נכון יותר: מאיפה צוטט הקוד הזה?

 

[ראש לשועלים]

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

זאת התוצאה:

WHERE (shipers.dateship between #01/10/2018# and #24/10/2018#) and (shipers.lakoah_code in ())

 

[ראש לשועלים]

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