אופיס 365 שאלה למומחים!

[KATZ]

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

אשמח לעזרה של המומחים....

 

[מתמצא]

ברור שהיא מזהה
יכול מאוד להיות שלא סימנת ב # לפני ואחרי
לחילופין אם אתה רושם IIF דרך ה VB יתכן ופורמט התאריך משתנה לפורמט של MM/DD/YY וצריך להפוך אותו בחזרה על ידי Fornat

 

[KATZ]

אם אני מפנה לשדה בטופס עם תאריך, גם צריך לסמן ב #

 

[מתמצא]

בעיקרון כן

 

[KATZ]

בעיקרון כן

אבל אז הוא כותב לי 'תאריך לא חוקי'.

 

[KATZ]

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

 

[KATZ]

הנה הקוד, אשמח לדעת מה לא כתבתי טוב?
תודה מראש לכל המומחים...

Like IIf(IsNull([Forms]![כרטסת תנועות כללי]![טקסט69]),"*", between Forms![כרטסת תנועות כללי]![טקסט69] and Forms![כרטסת תנועות כללי]![טקסט71] ))

 

[מתמצא]

Like IIf(IsNull([Forms]![כרטסת תנועות כללי]![טקסט69]),"*", "between #" & Forms![כרטסת תנועות כללי]![טקסט69] & "# and #" & Forms![כרטסת תנועות כללי]![טקסט71] & "#" ))

 

[KATZ]

עדיין לא עובד!
הוא לא מחזיר לי שום רשומה...
אשמח אם תוכל לשלוח לי דוגמא בקובץ שצירפתי לעיל...

 

[אין עוד מלבדו 1-1-1]

לא בדקתי כ"כ לעומק, אבל
דבר ראשון זה לא נקרא טקסט 69 אלא תאריך1
דבר שני ה-Like נראה לי מיותר

 

[אין עוד מלבדו 1-1-1]

בעצם אם אתה צריך משהו לסנן תאריכים בטופס
מצו"ב קוד שמסנן את הטופס

Private Sub סינון_תאריך_Click()


If IsNull(עד) Or (Nz(עד) = "") Then
Me.Filter = "((DateSerial(Year([טופס].[תאריך]), Month([טופס].[תאריך]), Day([טופס].[תאריך])) > #" & Format(החל, "MM/DD/YYYY") & "#))"
Me.FilterOn = True
Else
Me.Filter = "([טופס].[תאריך] Between #" & Format(החל, "MM/DD/YYYY") & "# And #" & Format(עד, "MM/DD/YYYY") & "#)"
Me.FilterOn = True
End If

End Sub

 

[מתמצא]

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

if IsNull(me.[תאריך1]) or IsNull(me.[תאריך2]) then Exit Sub
me.Filter = "[תאריך] between #" &  Format([תאריך1],"mm/dd/yy")  & "# AND #" & Format([תאריך2],"mm/dd/yy") & "#"
me.FilterOn = True

מצורף בזה הדוגמא שלך

 

[KATZ]

וואו רק עכשיו אני רואה תודה רבה לכם עזרה נפלאה!!!!