01-08-24, 10:28 PM
(آخر تعديل لهذه المشاركة : 01-08-24, 10:34 PM {2} بواسطة Khalil chiha.)
(01-08-24, 04:21 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
عندما تكتب جملة البحث عن كلمة ما ضمن حقل ما ليكن (NameF)
تكتب في شرط البحث :
كود :"..... Where NameF Like '%" & TextBox1.Text &"%' "
من أجل تجاهل شيء ما من البحث نكتب مثلا (لتجاوز حرف L من البحث نكتب) :
كود :" Where Replace(NameF,'L','') Like '%" & TextBox1.Text &"%' "
من أجل أكثر من تجاوز نستخدم بالعادة متغير لنبسط الأمر على عدة أسطر ..
كود :Dim StrF As String = "NameF" ' اسم الحقل االذي نريد البحث فيه
StrF = "Replace(" & StrF & ",'ّ','')" ' الشدة
StrF = "Replace(" & StrF & ",'ء','')" ' الهمزة
StrF = "Replace(" & StrF & ",'~','')" ' المدة
StrF = "Replace(" & StrF & ",'ـ','')" ' التطويلة بين الحروف
StrF = "Replace(" & StrF & ",'ْ','')" ' السكون
StrF = "Replace(" & StrF & ",'َ','')" ' الفتحة
StrF = "Replace(" & StrF & ",'ً','')" ' تنوين الفتح
StrF = "Replace(" & StrF & ",'ُ','')" ' الضمة
StrF = "Replace(" & StrF & ",'ٌ','')" ' تنوين الضم
StrF = "Replace(" & StrF & ",'ِ','')" ' الكسرة
StrF = "Replace(" & StrF & ",'ٍ','')" ' تنوين الكسر
بهذه الطريقة نكون تجاوزنا كل الحركات والمد والهمزة والشدة ، بالتالي أصبح التعديل جملة البحث أسهل ونكتب فيها حينها :
كود :"..... Where " & StrF & " Like '%" & TextBox1.Text &"%' "
السلام عليكم ورحمة الله تعالى وبركاته
أشكر كل القائمين على المنتدى المبارك من إداريين ومشاركين من الإخوة الأفاضل
فلكم مني كل الاحترام على سرعة المبادرة والإجابة
كما لكم مني كل التقدير على هذا العمل المبارك
فالكود يعمل بشكل رائع بوركتم وبوركت أياديكم
فجزاكم الله تعالى كل خير
أخوكم خليل شيحا
