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

[lordring]

السلام عليكم

لدي نموذج وفيه على جانبه مجموعة قوائم تصفية اي تصفية باكثر من معيار لاكثر من حقل

المشكلة انه يقوم بالتصفية بصيغة يتضمن وليس بصيغة يساوي

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

فيظهر

مدير

مدير قسم

مدير قسم الافراد

دون تمييز ...

المطلوب جعل الكود يقومم بالتصفية باظهر السجل الذي يحتوي القسيمة المختارة فقط

اي فقط مدير على سبيل المثال

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

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

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

وشكرا لكم مقدما

[Bluemind]

اخوي

صيغه البحث التي تستخدمها هي التي تظهر جميع المدراء حيث يحتوي البحث على like و النجمة * و وظيفتها جلب جميع السجلات التي تحتوي على كلمه مدير ومابعده

نظرا لعدم وجود مثال مرفق ، انا لا اعرف ماهو الحقل الذي يحتوي على المنصب ولكن قم بتغيير سطر الكود الذي يحتوي على اسم الحقل الى

strWhere = strWhere & "([FieldName] = """ & Me.txtFiledName & """) AND "

هذا السطر لم نقم باستخدام like او *

وسف يسترجع كلمه مدير فقط

[lordring]

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

تحياتي