تصفية نموذج

[مرحبا البي]

السلام عليكم

عندي نموذج اسمه FROMX1 وفيه العديد من الحقول وأنا أريد تصفية حقل اسمه dtotal بحث يعطيني غير 30 فما فوق

هل يوجد كود ام من خلال النموذج عند التحميل

شكراا

[د.كاف يار]

تفضل اخي الكريم

On Error Resume Next
Dim varFilter As Variant
varFilter = Null
 

      varFilter = (varFilter) & "[dtotal] >= 30 "

  

   
   With Me.Form
   
   If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
   Else
    .FilterOn = False
   End If
    .Requery
  End With

الفلتر بين نطاقين

varFilter = (varFilter) & "[Amount] Between 30 AND 50 "

 

 

لالغاء الفلتر ضع في امر

   With Me.Form
   
   If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = False
   Else
    .FilterOn = False
   End If
    .Requery
  End With

 

تم تعديل سبتمبر 11, 2019 بواسطه د.كاف يار

[مرحبا البي]

الله يحفظك ويبارك فيك ، تحياتي الخالصة 

أخي الكريم النموذج أصبح يضيف في صفوف فارغة لماذا

[مرحبا البي]

أستاذ د.كاف يار ممكن حل وعدم اظهار الحقول الفارغة ...مشكور

[د.كاف يار]

تفضل هذا المثال اخي الكريم

البحث.mdb

[مرحبا البي]

شكرااااااااااااااااا