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

[جهراوي الكويت]

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

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

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 في منتدى اوفيسنا

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

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

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

وشكرا لكم ...

[rudwan]

السلام عليكم

يوجد في قسم الأرشيف - مثال اسمه برنامج البحث المتطور للمبدع أبو هادي , ابحث عنه

فهو يبحث بعدة خيارات و في جميع الحقول

[جهراوي الكويت]

شكرا لك استاذنا الكبيرrudwan

[at_aziz]

بارك الله فيك وجزاك الله خير ا خي الفاضل جهراوي الكويت

اخي ماهو اسم زر الامر

لاني جربت الكود لاكن ماضبط معي ماادري وش المشكله

وياليت ترفق لنا مثال في ذلك بارك الله