جهراوي الكويت قام بنشر أكتوبر 31, 2007 مشاركة قام بنشر أكتوبر 31, 2007 مشاركة ابو عبدالرحمن في المنتدى بتاريخ: 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 في منتدى اوفيسنا هذه المشاركة اللطيفة والجيدة لأخونا ابو عبدالرحمن .. أفادتنا كثيرا في تصفية السجلات .. لكن المشكلة .. انها تبحث في حقل واحد فقط ...وهو حقل الاصناف هل هناك طريقة للتعديل على الكود السابق للبحث في جميع الحقول دفعة واحدة وشكرا لكم ... رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر أكتوبر 31, 2007 مشاركة قام بنشر أكتوبر 31, 2007 السلام عليكم يوجد في قسم الأرشيف - مثال اسمه برنامج البحث المتطور للمبدع أبو هادي , ابحث عنه فهو يبحث بعدة خيارات و في جميع الحقول رابط هذا التعليق شارك More sharing options...
جهراوي الكويت قام بنشر نوفمبر 1, 2007 الكاتب مشاركة قام بنشر نوفمبر 1, 2007 شكرا لك استاذنا الكبيرrudwan رابط هذا التعليق شارك More sharing options...
at_aziz قام بنشر نوفمبر 1, 2007 مشاركة قام بنشر نوفمبر 1, 2007 بارك الله فيك وجزاك الله خير ا خي الفاضل جهراوي الكويت اخي ماهو اسم زر الامر لاني جربت الكود لاكن ماضبط معي ماادري وش المشكله وياليت ترفق لنا مثال في ذلك بارك الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.