اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

تم تعديل بواسطه ابو عبدالرحمن

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information