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

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

قام بنشر (معدل)

السلام عليكم اخ ابو جودي

احذف من الكود السطر التالي Form_SearchList.txtSearch2.Value = vSearchString

كذلك يمكن اختصار الكود

Me.txtSearch2.Value=Me.txtSearch.Text              

Me.SearchList.Requery

تم تعديل بواسطه husamwahab
  • Like 1
قام بنشر (معدل)

ايه يااستاذ ابا جودي

هوه الموضوع ده ماخلصنا منه ! كان شبح بالنسبه لي موضوع الفلتره اثناء البحث وتضليل النص

المشكلة كانت في التعبير لانه بقي شرط لم يكتمل

استبدل التعبير لعنصر البريد الالكتروني بهذا

=IIf(IsNull([txtSearch2]),[E_mail],IIf(IsNull([e_mail]),"",Replace([E_mail],[txtSearch2],"<font color=red>" & [txtSearch2] & "</font>")))

وطبق على بقية العناصر

بالتوفيق اخي وعزيزي

تم تعديل بواسطه رمهان
  • Like 2
قام بنشر (معدل)
5 ساعات مضت, رمهان said:

ايه يااستاذ ابا جودي

هوه الموضوع ده ماخلصنا منه ! كان شبح بالنسبه لي موضوع الفلتره اثناء البحث وتضليل النص

المشكلة كانت في التعبير لانه بقي شرط لم يكتمل

استبدل التعبير لعنصر البريد الالكتروني بهذا


=IIf(IsNull([txtSearch2]),[E_mail],IIf(IsNull([e_mail]),"",Replace([E_mail],[txtSearch2],"<font color=red>" & [txtSearch2] & "</font>")))

وطبق على بقية العناصر

بالتوفيق اخي وعزيزي

جزاكم الله خيرا استاذ رمهان
وابشركم بكل الخير الان خلصنا منه  فعلا كان ! كان شبح بالنسبه لي موضوع الفلتره اثناء البحث وتضليل النص ولكم كل الفضل بعد رب العزة سبحانه وتعالى  

كل الشكر والتقدير لمن حاول مساعدتى فى هذا الموضوع ولم يوفق او لم يستطع او لم يسعفه الوقت او لم يهده الله عزوجل لذلك فكل شئ عنده بمقدار 
أخص بالذكر وبالشكر الاستاذ :fff:
  :fff:  :fff: yousef   :signthankspin:  :fff:  :fff:  :fff: 
أخص بالذكر وبالشكر الاستاذ :fff:
  :fff:  :fff: رمهان    :signthankspin:  :fff:  :fff:  :fff: 
أخص بالذكر وبالشكر الاستاذ :fff:
  :fff:  :fff: أبو عبدالله الحلوانى    :signthankspin:  :fff:  :fff:  :fff: 

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

وكما قال صلى الله عليه وسلم من يسر على مسلم طريق يلتمس به علم يسر الله له به طريقا الى الجنه
فاللهم يسر لكل اساتذتى الكرام دون ذكر احد حتى لا ينسينى الشيطان احد اساتذتى الكرام طرقا الى الجنان
اللهم اكرم كل من تعلمت على يديهم حرفا فى هذا المنتدى العظيم اللهم زدهم علما اللهم زدهم علما اللهم زذهم علما
اللهم اجعل علمهم حجة لهم يارب العالمين

اللهم سهل ويسر لهم طرقات الى الجنان اللهم انفعهم بما علمتهم اللهم بارك لهم فى علمهم وعملهم اللهم قربهم اليك وبارك فى اعمارهم  واجعل الله كل اعمالهم خالصة لوجهك الكريم

اللهم امين امين... امين

SearchHighlight.rar

تم تعديل بواسطه ابا جودى
  • Like 2
قام بنشر (معدل)

ماذا اقول اخ محمد او ارد

لقد سطرت اروع جمل الوفاء وعباراته

كل الشكر اخ محمد عصام

اخلاق ورقي وعصامي امدك الله بالصحة والعافيه

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

رايناك بالامس تلميذا وها انت اليوم تصول وتجول استاذا وبافكار رائعه

اجمل وارق التحايا لك وللجميع احبتي

تم تعديل بواسطه رمهان
  • Like 1
قام بنشر
4 ساعات مضت, رمهان said:

ماذا اقول اخ محمد او ارد

لقد سطرت اروع جمل الوفاء وعباراته

كل الشكر اخ محمد عصام

اخلاق ورقي وعصامي امدك الله بالصحة والعافيه

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

رايناك بالامس تلميذا وها انت اليوم تصول وتجول استاذا وبافكار رائعه

اجمل وارق التحايا لك وللجميع احبتي

استاذى الحبيب ومعلمى القدير صاحب اللمسات الرمهانية :wink2:
اولا العفو منك استاذى الحبيب انا لا زلت تلميذا ولى عظيم الشرف ان اكون تلميذا ينهل من نبع وبحور علومكم انت وكل اساتذتنا الكرام فى هذا الصرح الشامخ
وان  كانت جملة اصول واجول بافكار رائعة احس فيها مبالغة شديدة إلا وان كانت حقا فكل الفضل لكم اساتذتى الكرام لم تحرمونا من نبع علمكم ولم تبخلوا علينا فى اى يوم من الايام
اما هذا الصرح الشامخ وكما اسميه هو فعلا اكاديمية وهو صرح شامخ اجتمع فيه اهل الكرم والعلم ولولا وجودهم بحب واخلاص ما كان اصبح هذا حالنا كل التلاميذ وطلاب العلم هنا

كل الشكر والتقدير والعرفان لكل اساتذتنا الكرام جزاهم الله عنا كل الخير 
ودائما ادعو دعوة كنت ادعوها بظهر الغيب 
اللهم كما جمعتنى مع هؤلاء الناس والفت بين قلبى وقلوبهم فى الدنيا دون ان اسالك اللهم ارزقنى جمعهم فى الجنة ان شاء الله ولا تحرمنى منه وانا اسالك فاللهم انى اشهدك انى احبهم فيك
احبكم فى الله ولله :fff::wub:
شكر الله لكم حسن صنيعكم معى ومع غيرى من طلاب العلم
شكر الله لكم كل الحلم والجود والكرم والجهد والعطاء 
شكر الله لكم تحم جهلنا بعلمكم ومقابلة اخطائنا بحلمكم 

2016 - 1.gif

  • Like 2
قام بنشر
في 10/4/2016 at 16:00, husamwahab said:

السلام عليكم اخ ابو جودي

احذف من الكود السطر التالي Form_SearchList.txtSearch2.Value = vSearchString

كذلك يمكن اختصار الكود

Me.txtSearch2.Value=Me.txtSearch.Text              

Me.SearchList.Requery

اخى الحبيب
فعلا كلام حضرتك صح بس لو محتاج لون الحرف يتحول للون للاحمر 
مش راح اقدر استغنى عن السطر التالى من الكود
Form_SearchList.txtSearch2.Value = Me.txtSearch2

اعتقد لابد وان يكون لو اردنا الاختزال فى الاكواد 

Me.txtSearch2.Value = Me.txtSearch.Text
Form_SearchList.txtSearch2.Value = Me.txtSearch2
Me.SearchList.Requery

 

قام بنشر

مادمت تطلب الاختزال استاذ ابا جودي

ساقوم برفع محاولة لذلك

تحياتي

قام بنشر
3 دقائق مضت, رمهان said:

مادمت تطلب الاختزال استاذ ابا جودي

ساقوم برفع محاولة لذلك

تحياتي

جزاكم الله خيرا:fff:
طيب ممكن طلب انا بصراحة كنت باحاول البحث عنه من تلقاء نفسى دون الرجوع اليكم والاثقال عليكم حياء منكم وبخاصة فى هذا الموضوع ولكن انت البادئ ههههههههه :clapping:

هل هناك طريقة لوضع ذلك التعبير:wallbash:

=IIf(IsNull([txtSearch2]),[E_mail],IIf(IsNull([e_mail]),"",Replace([E_mail],[txtSearch2],"<font color=red>" & [txtSearch2] & "</font>")))

فى كود ليصلح لكل الحقول ام يجب عمل تعبير لكل حقل على حدة:rol:
 

  • Like 1

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