تعديل في كود التصفية

تفضل أخى

الكود بعد التعديل

Dim strWhere As String
Dim lngLen As Long

If Not IsNull(Me.lakeb) Then
strWhere = "[اللقب العلمي]='" & Me.lakeb & "'"
End If

lngLen = Len(strWhere)
    If lngLen <= 0 Then
        MsgBox "لايوجد شي للبحث عنه", vbInformation, "نتائج البحث"
    Else
Me.Filter = strWhere
Me.FilterOn = True
نتيجة_البحث.Visible = True
Me.RecordsetClone.MoveLast
نتيجة_البحث.Caption = "لقد عثرت على :" & vbCrLf & Me.RecordsetClone.RecordCount

End If
Me.Requery

شكرا اخي بارك الله بيك

السلام عليكم اخي

الكود الاصلي كان يبحث في اكثر من معيار وانا وضعت الاول للتجربة فقط

اي ان الكود كان كالتالي

Private Sub BDetail_Click()
Dim strWhere As String
Dim lngLen As Long
If Not IsNull(Me.direct) Then
strWhere = strWhere & "([الدائرة] Like ""*" & Me.direct & "*"") AND "
End If

If Not IsNull(Me.center) Then
strWhere = strWhere & "([المركز] Like ""*" & Me.center & "*"") AND "
End If

If Not IsNull(Me.depart) Then
strWhere = strWhere & "([القسم] Like ""*" & Me.depart & "*"") AND "
End If

If Not IsNull(Me.shoaba) Then
strWhere = strWhere & "([الشعبة] Like ""*" & Me.shoaba & "*"") AND "
End If


lngLen = Len(strWhere) - 5
    If lngLen <= 0 Then
        MsgBox "لايوجد شي للبحث عنه", vbInformation, "نتائج البحث"
    Else
        strWhere = Left$(strWhere, lngLen)
Me.Filter = strWhere
Me.FilterOn = True
نتيجة_البحث.Visible = True
Me.RecordsetClone.MoveLast
نتيجة_البحث.Caption = "لقد عثرت على :" & vbCrLf & Me.RecordsetClone.RecordCount


End If
Me.Requery

End Sub

فالرجاء تعديله لكي يتخلص من المشكلة الاولى

لكن في نفس الوقت يبحث باكثر من معيار تصفية في نفس الوقت

مع التقدير

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

Private Sub BDetail_Click()
Dim strWhere As String
Dim lngLen As Long
If Not IsNull(Me.direct) Then
strWhere = strWhere & "([الدائرة] Like """ & Me.direct & """) AND "
End If

If Not IsNull(Me.center) Then
strWhere = strWhere & "([المركز] Like """ & Me.center & """) AND "
End If

If Not IsNull(Me.depart) Then
strWhere = strWhere & "([القسم] Like """ & Me.depart & """) AND "
End If

If Not IsNull(Me.shoaba) Then
strWhere = strWhere & "([الشعبة] Like """ & Me.shoaba & """) AND "
End If


lngLen = Len(strWhere) - 5
    If lngLen <= 0 Then
        MsgBox "لايوجد شي للبحث عنه", vbInformation, "نتائج البحث"
    Else
        strWhere = Left$(strWhere, lngLen)
Me.Filter = strWhere
Me.FilterOn = True
نتيجة_البحث.Visible = True
Me.RecordsetClone.MoveLast
نتيجة_البحث.Caption = "لقد عثرت على :" & vbCrLf & Me.RecordsetClone.RecordCount


End If
Me.Requery

End Sub

بالتوفيق

الف شكر لكٍ اختي الكريمة الله يجزيك خيرا عن ما تقدميه من جهود جبارة