format באקסס לא נותן פתרון, מה הפתרון לתאריכים הפוכים?

[מלא]

אני בונה שאילתת SQL בVBA עם WHERE מפקדים בטופס
בכל תאריך שהיום קטן מ13 הוא הופך אותם לmm/dd
כשהסדר בטבלה היא dd/mm
מה שקורה שהוא מסנן לי את הנתונים הלא נכונים.

שמתי debug.print על הסטרינג המתקבל, ובפלט הוא נותן את זה בצורה נכונה dd/mm/yyyy
אבל כשאני מעתיק את הסטרינג לשאילתה הוא נהפך...

כמובן שניסיתי עם format להפוך אותו וכלום לא עוזר.

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

יש למישהו איזה רעיון לפתרון?

[Shmuel754]

@מלא תעביר את התאריך לשאילתה דרך פונקציית FormatDateTime שהתוצאה תכלול את פורמט התאריך המלא ועדיף בפורמט הפוך yyyy-mm-dd

[מלא]

@Shmuel754
גם לא עוזר.

בינתיים זה עובד נהדר..

    Dim dtDate As Date
    dtDate = Month(Me.lstDate) & "/" & Day(Me.lstDate) & "/" & Year(Me.lstDate)

[Shmuel754]

@מלא אם לא עוזר, תוסיף # מהצדדים.

[מלא]

אז בסוף סתם דמייני שזה עוזר,
כי את היום (13/11/19) הוא הפך אותו ל 19/11/13

בינתיים הסתדרתי עם cdbl
שהופך את התאריך למספרי.

כשנותנים לתאריך where
עם הערך המספרי שלו הוא מחזיר אותו.

@clickone אולי לך יש מידע בנושא?

[clickone]

@מלא

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

select date_col from table 
where format(date_col,"ddmmyyyy")=format(forms!frmtest!date_col_textbox,"ddmmyyyy")

כתבתי את השאילתא מהזיכרון ככה שיכול להיות שהיא לא מדוייקתלגמרי

2. לחילופין, תשתמש עם

BuildCriteria("date_col",dbDate,me!date_col_textbox)

3. ולסיום, אצלי אני משתמש לפעמים בזה - רק בשביל הנוחות

Public Function fnDate(DateFormat As String) As String
fnDate = Format(DateFormat, "mm/dd/yyyy")
End Function

שימוש

Set rs = CurrentDb.OpenRecordset("SELECT * FROM table WHERE Mon=#" & fnDate(Me!Mon) & "#" )