اذهب الي المحتوي
أوفيسنا

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


lordring

الردود الموصى بها

السلام عليكم

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

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

26-12-2011%2019-34-12.gif

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

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

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

وشكرا لكم

رابط هذا التعليق
شارك

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


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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information