*فورم* عدد تكرار الكلمة فى السجلات

موضوع منقول من المنتدي القديم

الكاتب : أحزان

سؤال في الاستعلام في الاكسيس

السلام عليكم ورحمة الله وبركاته

لدية جدول وفيه الحقول التاليه

1-العنوان

2-الكاتب

3-الموضوع

4- التقرير

جميع هذي الحقول حقول نص معداء حقل ( التقرير ) فهواء حقل مذكرة

حيث اني اضع فيه تقرير لكل سجل وقد يوصل التقرير الى (( ثلاث اوراق من حجم A3 )) في السجل الواحد

الى هناء ليوجد اي اشكال في ذلك ...... ولكن

كيف يتم البحث في حقل التقرير عن طريقة الستعلام اي لو اردت ان ابحث عن كلمة في التقرير فربماء ان هذا الكلمة وردة في التقرير اكثر من مره اريد ان يعطين الستعلام عدد مرات التكرار في جميع السجلات من حقل (( التقرير )))

والسلام عليكم ورحمة الله وبركاته

--------------------------------------------------------------------------------

الكاتب: احزان بتاريخ: 7/12/2002 11:57:39 PM

--------------------------------------------------------------------------------

هذا اقتباس لمشاركة سابقة لي يمكن تعديل الكود لمعرفة عدد كلمة معينة في جملة فقط عدد

هذا الكود يستخدم لمعرفة كم عدد تكرار حرف معين في جملة معينة

ضع في الوحدة النمطية العامة

_______________________

Public Function CountChar(StringToSearch As String, Character As String) As Integer

CountChar = 0

For i = 1 To Len(StringToSearch)

If Mid(StringToSearch, i, 1) = Character Then CountChar = CountChar + 1

Next i

End Function

_________________________

وضع في حدث ( عند النقر ) للزر الكود التالي

n = CountChar("الفريق العربي للبرمجة .. منتدى قواعد بيانات مايكروسوفت ", "م")

MsgBox n

___________________________

أضغط على الزر ليقوم البرنامج بعد حرف ( الميم ) في الجملة هذه