السلام عليكم
عندي قاعدة بيانات للقران الكريم وجميع الايات عليها حركات ( ضمة - فتحة - كسرة ) فأرجو من يدلني على كيفية البحث دون التقيد بالحركات ، لأني لو بحث عن
القيامة
فلن يظهر شي
بخلاف
الْقٍياْمًة بالحركات
وشكرا للجميع .
اهمال الحركات في البحث
مغلق
لنفرض أن searchfortext هو الذي ستكتب فيه ماتريد البحث عنه وان text1 مربوط بdata1 والعمود الذي تريد البحث فيه
data1.recordset.movefirst
for i = 0 to data1.recordset.recordcount
mytext = Replace(Text1.Text, "َ", "")
mytext = Replace(mytext, "ً", "")
mytext = Replace(mytext, "ُ", "")
mytext = Replace(mytext, "ِ", "")
mytext = Replace(mytext, "ٍ", "")
mytext = Replace(mytext, "ّ", "")
mytext = Replace(mytext, "~", "")
mytext = Replace(mytext, "ٌ", "")
if searchfortext.text = mytext then msgbox "found" : exit for
data1.recordset.movenext
next
قد تكون هذه الطريقة بطيئة في قواعد البيانات الكبيرة لكن هذا ما أعرف وأتمنى أن يعطينا من يعرف طريقة أفضل لأنني أعاني نفس المشكلة
وعلى فكرة برنامج MS access يتجاهل الفتحات في حال البحث any part of field
هناك كود يبحث لك داخل نص على الأغلب i
InStr(1, mytext , searchfortext.text ,vbTextCompare)
وبالتالي يكون الكود
data1.recordset.movefirst
for i = 0 to data1.recordset.recordcount
mytext = Replace(Text1.Text, "َ", "")
mytext = Replace(mytext, "ً", "")
mytext = Replace(mytext, "ُ", "")
mytext = Replace(mytext, "ِ", "")
mytext = Replace(mytext, "ٍ", "")
mytext = Replace(mytext, "ّ", "")
mytext = Replace(mytext, "~", "")
mytext = Replace(mytext, "ٌ", "")
if InStr(1, mytext , searchfortext.text ,vbTextCompare) <> 0 then msgbox "found" : exit for
data1.recordset.movenext
next
هذا الموضوع مغلق.