التصفية بين تاريخين باستخدام strWhere (معدل)

[shatat]

السلام عليكم

 

ارجو المساعدة

اقوم بتجهيز نموذج بحث فواجهتني مشكله وهي تصفية السجلات التي تقع بين تاريخين

حيث قمت باستخدام الكود التالي

 

Private Sub Command38_Click()
    Dim strWhere As String
    Dim lngLen As Long
If Not IsNull(DateRS) Then
strWhere = strWhere & "([DateR] Between Me.DateRS And Me.DateRSto} and"
    End If
lngLen = Len(strWhere) - 5
   If lngLen <= 0 Then
   MsgBox "خيارات البحث فارغة ", vbInformation, "يجب تحديد تاريخين."
    Else
       strWhere = left$(strWhere, lngLen)
      Me.Filter = strWhere
     Me.FilterOn = True
    End If
End Sub
 

حيث DateRS  التاريخ الاول

و DateRSto التاريخ الثاني

DateR التاريخ الموجود في الجدول

[ابوخليل]

ارفق مثالك ليسهل على اخوانك التعديل والتطبيق

[shatat]

مرفق المثال

Satat.rar

[أبو آدم]

دعوة طيبة لطيب

 

http://www.officena.net/ib/index.php?showannouncement=21&f=89

 

...........