تغيير لون نتيجة البحث

لا أعرف طريقة لتغيير تنسيق كلمة واحدة من ضمن السجل بالكود

فمن لديه فكرة فليطرحها لنحاول

للأسف لم استطع أفادتكم في هذا الموضوع فقد حاولت أكثر من مرة ولم تنجح جميع محاولاتي 0

أيضاً لدي حقل مذكرة وأقوم بالبحث عن كلمة في حقل المذكرة ووضعت مربع نص وأردت أن اجد كود يعطي عدد مرات ورود تلك الكلمة في مربع النص وأيضاً هذه لم أصل لحل 0

السبب ليس في برنامج أكسيس ولكن عدم الدراية الواسعة بأورامر البرمجة هي السبب في عدم وصولي إلى ما أريد فالبرمجة والأوامر بحر واسع لا يمكن الإحاطة به 0

هلا اخوانى فى الحقيقة حسب مافهمت من اخينا عصام ربيع بأنه يريد عند البحث عن اسم ان يكون لون الاسم فى نتيجة البحث لونه مختلف..

فهذا يتم عن طريق خاصية التنسيق الشرطى عند الدخول على النموذج فى وضع التصميم ....

اتمنى يكون هذا هو المطلوب والمعذرة على التقصير...

وهذا مثال للتوضيح

اخوكم ابوعبدالله

حسب ما فهمت أن المطلوب تلوبن النتيجة فقط

أي أن البحث عن "فهد" ضمن "فهد ابراهيم الدوسري" و سجلات أخري تنتج كلمة "فهد" فقط بلون مختلف و ليس كل الاسم و ذلك لجميع السجلات الموجود بها كلمة "فهد"

يعني المقصود كما هو موجود في المنتدى هذا

فعندما تبحث عن موضوع معين تجد أن الكلمة التي كتبتها في البحث خرجت في جميع المواضيع باللون الأحمر وباقي الكلام باللون الأسود

اذا كان هذا هو مقصود الاخ عصام فاعتقد انها فكرة جديدة لم يتطرق اليها احد سابقا...ولابد من خبراء المنتدى الافادة حولها...

لقد أوردت مثال عن تغيير خواص كلمة معينة فى قسم الاوفيس و ذلك لبرنامج الوورد و يوجد مثال عن تغيير التنسيق و آخر عن عد الكلمات

و لكن فى الوورد هناك كائن يسمي word يعبر عن الكلمة

أما هنا فسنضطر للتعامل مع الحروف ، وهذا حل غير عملي ، فراجعوا أمثلة قسم الاوفيس و من تخطر له فكرة فليشجعنا

رد على سؤال الأخ مصلح الحريصي

اقتباس

أيضاً لدي حقل مذكرة وأقوم بالبحث عن كلمة في حقل المذكرة ووضعت مربع نص وأردت أن اجد كود يعطي عدد مرات ورود تلك الكلمة في مربع النص وأيضاً هذه لم أصل لحل 0

حاولت عمل ذلك فنجحت فقط في إخراج عدد (حرف)معين في جملة معينة

ولم استطع في الحصول على عدد (كلمة) معينة في جملة معينة .

بهذه الطريقة :

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

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

ضع في النموذج مربعي نص

الأول باسم xx1 وهو الذي يوجد عليه الجملة المراد عد حروفها

الثاني باسم xx2 وهو الذي نكتب فيه الحرف المراد معرفة عدده في المربع xx1

ثم ضع في حدث ( عند الخروج ) للمربع xx2 الكود التالي

Private Sub xx2_Exit(Cancel As Integer)
n = CountChar([xx1], [xx2])
MsgBox n
End Sub

عند الخروج من المربع xx2 تخرج لك رسالة وفيها رقم يمثل عدد الحرف في الجملة التي في المربع xx1

من يستطيع التعديل على الكود ليخبرنا عن عدد كلمة بدلاً من حرف فليتفضل به علينا

وللجميع تحياتي

اشكركم جميعا لإهتمامكم واتمنى ان تجدو حلا لهذا الموضوع فهو مهم جدا بالنسبة لى