طريقة جيدة لتصفية السجلات ولكن ...!

مشاركة ابو عبدالرحمن في المنتدى بتاريخ: 12-October 03

اعمل مربع نص وسمه com1 في النموذج وزر أمر ألصق فيه هذا الكود في حدث عند النقر

CODE

Dim a As String

com1.SetFocus

FIL1 = "[asnaf] " & "Like '" & "*" & [com1] & "*" & "'"

Me.Filter = FIL1

Me.FilterOn = True

If Me.RecordsetClone.RecordCount = 0 Then

MsgBox"لا يوجد نتائج تطابق ما تبحث عنه"

Me.FilterOn = False

End If

انتبه لمصدر السجل في حقل الأصناف سميته في هذا الكود ب (asnaf) استخدم نفس الاسم أو عدله في الكود كما هو عنك

تم تحرير المشاركة بواسطة ابو عبدالرحمن: Oct 15 2005, 03:18 AM

هذه المشاركة اللطيفة والجيدة لأخونا ابو عبدالرحمن ..

أفادتنا كثيرا في تصفية السجلات .. لكن المشكلة .. انها تبحث في حقل واحد فقط ...وهو حقل الاصناف

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

وشكرا لكم ...