اذهب الي المحتوي
أوفيسنا

تعديل على بحث


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

أستاذ / جعفر  المحترم

السادة الافاضل اعضاء المنتدى المحترمين

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

1029.نموذج بحث.rar

رابط هذا التعليق
شارك

اخى الفاضل عماد

هل تكتب فالبحث موسوعه ام موسوعة

ان كانت الثانيه فالكود الموجود يلغى البحث بال

'  Asc(" آ ") =
'194
'  Asc(" أ ") =
'195
'  Asc(" إ ") =
'197
'  Asc(" ا ") =
'199
'  Asc(" ة ") =
'201
'  Asc(" ه ") =
'229
'  Asc(" ى ") =
'236
'  Asc(" ي ") =
'236

ويبحث بال { ا , ه , ى }

فقم بالبحث بكلمه موسوعه سيتم تصفيه النموذج

هذا ان فهمت كلامك

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

رابط هذا التعليق
شارك

5 ساعات مضت, أحمد الفلاحجى said:

اخى الفاضل عماد

هل تكتب فالبحث موسوعه ام موسوعة

ان كانت الثانيه فالكود الموجود يلغى البحث بال


'  Asc(" آ ") =
'194
'  Asc(" أ ") =
'195
'  Asc(" إ ") =
'197
'  Asc(" ا ") =
'199
'  Asc(" ة ") =
'201
'  Asc(" ه ") =
'229
'  Asc(" ى ") =
'236
'  Asc(" ي ") =
'236

ويبحث بال { ا , ه , ى }

فقم بالبحث بكلمه موسوعه سيتم تصفيه النموذج

هذا ان فهمت كلامك

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

أستاذي الفاضل أحمد الفلاحجي شكرا على استجابتك 

ابحث بكلمة موسوعة

كيف يمكن تفيل هذا الكود لانةغير نشط وعند ازالة علامة ' من امام الكود يتغير اللون اللى الاحمر اي هناك خطأ 

يرجى توضيح كيف يتم تشغيل هذا الكود واين يوضع في الدالة حتى يعمل بشكل صحيح 

في انتظار رد حضرتك

رابط هذا التعليق
شارك

بالاضافة الى  ما تفضل به استاذنا الفاضل @أحمد الفلاحجى وله الشكر

تفضل اخي الكريم استبدال الاحرف التي يوجد له مشابه كحرف ( ة ) و ( ه )

Private Sub t5_Exit(Cancel As Integer)

    Me.t5 = Replace([t5], "أ", "ا")
    Me.t5 = Replace([t5], "إ", "ا")
    Me.t5 = Replace([t5], "إ", "ا")
    Me.t5 = Replace([t5], "آ", "ا")
    Me.t5 = Replace([t5], "ة", "ه")
    Me.t5 = Replace([t5], "ي", "ى")
    
    Me.salah.Form.Filter = "ForSearch([TitleBook]) Like '*' & '" & t5 & "' & '*'"
    Me.salah.Form.FilterOn = True
  
   
End Sub

1029.نموذج بحث.rar

تحياتي

  • Like 1
رابط هذا التعليق
شارك

جزاك الله خيرا اخى محمد @محمد ابوعبد الله اتعلم منكم اخى العزيز

5 ساعات مضت, Emad Fawzy Armanious said:

كيف يمكن تفيل هذا الكود لانةغير نشط وعند ازالة علامة ' من امام الكود يتغير اللون اللى الاحمر اي هناك خطأ 

يرجى توضيح كيف يتم تشغيل هذا الكود واين يوضع في الدالة حتى يعمل بشكل صحيح 

هذا الكود الغير نشط  هو تعليق لتوضيح الجزء السايق له بالكود لفهم الكود والارقام الموجوده به

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

رابط هذا التعليق
شارك

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