kiani2012
دوشنبه 03 اردیبهشت 1397, 22:52 عصر
سلام
من فیلدی از نوع short text برای ثبت تاریخ شمسی به صورت 1397/01/01 در نظر گرفتم
ولی کد زیر برای فیلتر کردن رنجی از تاریخ درست جواب نمیده یا اصلا هیچ رکوردی را نمایش نمیده یا همه نمایش میده
کسی میدونه مشکل چیه؟
Dim scriteria, task As String
Dim s1, s2 As String
scriteria = "([RDate]>=" & Me.Text102 & " and [RDate]<=" & Me.Text104 & ")"
task = "select * from Query1 where (RDate BETWEEN " & Me.Text102 & "And " & Me.Text104 & ")"
DoCmd.ApplyFilter task
هم کد بالا رو تست کردم هم کد پایین :
Dim scriteria, task As String
Dim s1, s2 As String
scriteria = "([RDate]>=" & Me.Text102 & " and [RDate]<=" & Me.Text104 & ")"
task = "select * from Query1 where (" & scriteria & ")"
DoCmd.ApplyFilter task
من فیلدی از نوع short text برای ثبت تاریخ شمسی به صورت 1397/01/01 در نظر گرفتم
ولی کد زیر برای فیلتر کردن رنجی از تاریخ درست جواب نمیده یا اصلا هیچ رکوردی را نمایش نمیده یا همه نمایش میده
کسی میدونه مشکل چیه؟
Dim scriteria, task As String
Dim s1, s2 As String
scriteria = "([RDate]>=" & Me.Text102 & " and [RDate]<=" & Me.Text104 & ")"
task = "select * from Query1 where (RDate BETWEEN " & Me.Text102 & "And " & Me.Text104 & ")"
DoCmd.ApplyFilter task
هم کد بالا رو تست کردم هم کد پایین :
Dim scriteria, task As String
Dim s1, s2 As String
scriteria = "([RDate]>=" & Me.Text102 & " and [RDate]<=" & Me.Text104 & ")"
task = "select * from Query1 where (" & scriteria & ")"
DoCmd.ApplyFilter task