01-08-24, 04:21 AM
وعليكم السلام ورحمة الله وبركاته
عندما تكتب جملة البحث عن كلمة ما ضمن حقل ما ليكن (NameF)
تكتب في شرط البحث :
من أجل تجاهل شيء ما من البحث نكتب مثلا (لتجاوز حرف L من البحث نكتب) :
من أجل أكثر من تجاوز نستخدم بالعادة متغير لنبسط الأمر على عدة أسطر ..
بهذه الطريقة نكون تجاوزنا كل الحركات والمد والهمزة والشدة ، بالتالي أصبح التعديل جملة البحث أسهل ونكتب فيها حينها :
عندما تكتب جملة البحث عن كلمة ما ضمن حقل ما ليكن (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 &"%' "قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
