تصفية السجلات

تفضل اخي :)

هذا الرابط به ما تريد بالضبط واكثر ، فخذ حاجتك :) :

/index.php/topic/292771-تصفية-السجلات-بناء-على-اكثر-من-شرط/?p=1396372

جعفر

شكراً لك أخي جعفر على الرد ، زلكن يوجد هناك تنويه بأن الدالة المستخدمة في البرنامج لا تتوافق مع النموذج الخاص بي ، وأن قاعدة البيانات هذه معطوبة .

وتقبل مني خالص الشكر والتقدير

الله يطول في عمرك اخي علي ، الكود بالكامل هناك وتقدر تستفيد منه :)

على العموم ، هذه نسخة مصغرة لعملك:

1. عند الضغط على حقل الاختيار ، وانا سميته frm_Select ، خلي هذا الكود:

Private Sub frm_Select_Click()
 
    Call Check_Selected
End Sub

2. وضع هذا Sub في اسفل ونهاية صفحة كود النموذج:

Private Sub Check_Selected()
    
    Dim FF As String
   
    'Frame Select
    If frm_Select = 1 Then
        
    ElseIf frm_Select = 2 Then
        FF = "Temp=-1"
        
    ElseIf frm_Select = 3 Then
        FF = "Temp=0"
        
    End If
'---------
    
    
    Me.Filter = FF
    Me.FilterOn = True
    
End Sub

جعفر