اريد عمل حقل بحث فى فورم به 2000صنف

[hassan51183]

السلام عليكم ورحمة الله وبركاته ,,,,

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

وليس بحث بواسطةcombobox

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

*على سبيل المثال

اريد البحث عن كل الاصناف التى يحتوى اسمها على كلمة مثلا (*مسمار*)

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

هل يمكن عمل هذا ام لا

ارجوا المساعدة فى عمل ذلك .

جعلها الله فى ميزان حسناتكم

ولكم جزيل الشكر لكل من ساهم فى عمل هذا الموقع العظيم .

[ابو عبدالرحمن]

اعمل مربع نص وسمه 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) استخدم نفس الاسم أو عدله في الكود كما هو عنك

اتمنى أن يكون هذا هو طلبك

تم تعديل أكتوبر 15, 2005 بواسطه ابو عبدالرحمن

[التقني]

السلام عليكم ورحمة الله

أخي العزيز

جرب هذا المثال في المرفقات

فهو يسرد لك السجلات التي تبدأ بحرف معين بمجرد الضغط على الحرف

Ser_ListBox.rar