الاسم عليكم
اخواني الاعزاء في المرفق نموذج لتصفية الحقول يعمل بالتصفية حسب الاسم و نوع البيع بشكل جيد ولاكن تعطلت التصفية بين تالريخين ولم استطع اصلاحها فأرجوا المساعدة من اهل الخبرة واكن لكم شاكراً
ملاحظة / اخواني المرفق من انشاء اكسس 2013 - 32 بايت عربي
بيع.rar
المعذرة
تفضل
Option Compare Database
Dim strcriteria As String
'
Private Sub dfgh_AfterUpdate()
Call searchCriteria
End Sub
Private Sub Form_Load()
Call searchCriteria
End Sub
Private Sub n1_AfterUpdate()
Call searchCriteria
End Sub
Private Sub n2_AfterUpdate()
Call searchCriteria
End Sub
Private Sub qwer_AfterUpdate()
Call searchCriteria
End Sub
Function searchCriteria()
Dim task As String
strcriteria = ""
If Not IsNull(Me.dfgh) Then