Emad Fawzy Armanious قام بنشر يناير 23, 2020 قام بنشر يناير 23, 2020 أستاذ / جعفر المحترم السادة الافاضل اعضاء المنتدى المحترمين في الملف المرفق طريقة بحث تم التعديل عليها من قبلكم في مشاركة سابقة ولكن لى طلب لعمل تعديل بسيط فمثلا يوجد اسم مرجع يبدأ بكلمة موسوعة وعند إضافة مرجع اخر يبدأ بنفس الكلمة عند البحث وكتابة كلمة موسوعة كاملة لا تتم الفلترة وعرض كل السجلات المحتوية على كلمة موسوعة فقط 1029.نموذج بحث.rar
أبوبسمله قام بنشر يناير 24, 2020 قام بنشر يناير 24, 2020 اخى الفاضل عماد هل تكتب فالبحث موسوعه ام موسوعة ان كانت الثانيه فالكود الموجود يلغى البحث بال ' Asc(" آ ") = '194 ' Asc(" أ ") = '195 ' Asc(" إ ") = '197 ' Asc(" ا ") = '199 ' Asc(" ة ") = '201 ' Asc(" ه ") = '229 ' Asc(" ى ") = '236 ' Asc(" ي ") = '236 ويبحث بال { ا , ه , ى } فقم بالبحث بكلمه موسوعه سيتم تصفيه النموذج هذا ان فهمت كلامك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
Emad Fawzy Armanious قام بنشر يناير 25, 2020 الكاتب قام بنشر يناير 25, 2020 5 ساعات مضت, أحمد الفلاحجى said: اخى الفاضل عماد هل تكتب فالبحث موسوعه ام موسوعة ان كانت الثانيه فالكود الموجود يلغى البحث بال ' Asc(" آ ") = '194 ' Asc(" أ ") = '195 ' Asc(" إ ") = '197 ' Asc(" ا ") = '199 ' Asc(" ة ") = '201 ' Asc(" ه ") = '229 ' Asc(" ى ") = '236 ' Asc(" ي ") = '236 ويبحث بال { ا , ه , ى } فقم بالبحث بكلمه موسوعه سيتم تصفيه النموذج هذا ان فهمت كلامك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق أستاذي الفاضل أحمد الفلاحجي شكرا على استجابتك ابحث بكلمة موسوعة كيف يمكن تفيل هذا الكود لانةغير نشط وعند ازالة علامة ' من امام الكود يتغير اللون اللى الاحمر اي هناك خطأ يرجى توضيح كيف يتم تشغيل هذا الكود واين يوضع في الدالة حتى يعمل بشكل صحيح في انتظار رد حضرتك
محمد أبوعبدالله قام بنشر يناير 25, 2020 قام بنشر يناير 25, 2020 بالاضافة الى ما تفضل به استاذنا الفاضل @أحمد الفلاحجى وله الشكر تفضل اخي الكريم استبدال الاحرف التي يوجد له مشابه كحرف ( ة ) و ( ه ) 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 تحياتي 1
أبوبسمله قام بنشر يناير 25, 2020 قام بنشر يناير 25, 2020 جزاك الله خيرا اخى محمد @محمد ابوعبد الله اتعلم منكم اخى العزيز 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.