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

[lordring]

السلام عليكم

في المثال المرفق لدي حقل اللقب العلمي يحتوي على بيانات باحث ، باحث علمي , باحث علمي اقدم

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

وليس لذوي اللقب باحث فقط ..

فاي الخلل وكيف يتم تعديله

http://dl.dropbox.co...09/access/f.rar

وشكرا لكم

[lordring]

تم التعديل بواسطة الكود كالتالي

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

[أبو آدم]

أحسنت

(تمت الفائدة)