strCriteria = " >= #" & Format$(Me.DFrom, "yyyy\/mm\/dd") & "# And <= #" & Format$(Me.DTo, "yyyy\/mm\/dd") & "#"
strSQL = "SELECT * " & _
"FROM data_tech " & _
"WHERE IN data_tech.b4 =( '" & strCriteria & "'"
Me.advSearchList.RowSource = strSQL
Me.advSearchList.Requery
Me.CountList.Caption = "ÇáÚÏÏ :" & " (" & Me.advSearchList.ListCount - 1 & ") "
Me.DFrom.SetFocus
الجملة دي الجملة دي الجملة دي مالها يابو عمو الجملة دي
مش عاوزة تتنفذ فين الخطا
مع العلم اني عاوز اظهر البيانات في الليست بوكس الي باسم advsearchlist
data_tech اسم الجدول
b4 اسم حقل التاريخ المراد البحث فيه