السلام عليكم
ارجو المساعدة
اقوم بتجهيز نموذج بحث فواجهتني مشكله وهي تصفية السجلات التي تقع بين تاريخين
حيث قمت باستخدام الكود التالي
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 التاريخ الموجود في الجدول