ابو جودي

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

رغم أن الكلمات تحتار أين تقف في مسرح الأحرف لتنظم من نفسها أجمل العبارات ..لأهديها لكم فمشاعرى هي كلماتى المسطورة وكلماتى هي دليل قلبى وقلبى نبضاته تقول لكم مليون الف شكر ( أساتذتى العظماء ومعلمينى الأجلاء ( الأستاذ @أبو إبراهيم الغامدي و الأستاذ @jjafferr ) أنتم وكل أساتذتى الكرام ولو أنى أجد عبارت الشكر تخجل منكم فهى أقل من أن توفيكم حقكم وقدركم رأيـــت الحـق حـق المـعـلـم وأوجبة حفظاً على كل مسلـم له الحق أن يهدي إليه كرامة لتعليم حرف واحــد ألف درهم شموع كثيرة تحترق ...لتنير دروب الآخرين عطاء وآمالا ... وتضحيات شتى تنثر ..من أجل الوصول للأسمى ...ومعكم حققنا ولمسنا كل معاني الجمال سعادة الحياة أن تكون بجانبك وتساندك روح طيبة وكريمة تمنحك وتهديك الفرح والسرور وتدخل على نفوس من حولها الفرح و السعادة ولا أزكيكم على الله وكل اساتذتنا المبجلين كل كلمات ومعان الشكر والعرفان بالجميل لا تكفيكم وتوفيكم قدر حقكم بارك الله لكم فى عمركم وفى علمكم و عملكم واهلكم وأسال الله تعالى لكم سعادة الدارين وان يزيدكم من فضله كما تدخلون السرور على قلوب طلبة العلم دائما تكثرون من العطاء وبكل سخاء دون كلل ولا ملل احسن الله اليكم كما تحسنون الى طلاب العلم دائما أسعدكم الله فى الدارين ورزقكم البركة فى العمر والعلم والعمل والاهل والولد وغفر الله لكم ولوالديكم ومن تحبون وكل المسلمين ان شاء الله شكر الله لكم وجزاكم كل الخير ان شاء الله

يا الهى يعنى المشكلة كانت [" & strFieldName & "] بدلا من strFieldName 😂 الان تمت التجربة وكله تمام Public Function StrHighLight(ByVal strFieldName As String, ByVal FindAsType) As String Const strTagStart = "<strong><font color=red>" Const strTagEnd = "</font></strong>" StrHighLight = "=IIf([" & strFieldName & "] Is Null, '', " & "Replace([" & strFieldName & "], '" & FindAsType & "', '" & strTagStart & FindAsType & strTagEnd & "'))" End Function وننادى عليه Me.txtxname.ControlSource = StrHighLight("xname", FindAsType)

فكرت اكتب الروتين بهذا الشكل Public Function StrHighLight(ByVal strFieldName As String, ByVal FindAsType) As String Dim x As String x = "[" & strFieldName & "]" StrHighLight = " IIf(x Is Null, Null, " & "Replace(x, """ & FindAsType & """, """ & strTagStart & FindAsType & strTagEnd & """))" End Function وتجربة طباعة النتيجة من خلال خلال امر Debug.Print IIf(x Is Null, Null, Replace(x, "م", "<strong><font color=red>م</font></strong>"))

---------- عندما كتبت الروتين بهذا الشكل Public Function StrHighLight(ByVal strFieldName As String, ByVal FindAsType) As String StrHighLight = " IIf(strFieldName Is Null, Null, " & "Replace(strFieldName, """ & FindAsType & """, """ & strTagStart & FindAsType & strTagEnd & """))" End Function وقمت باستدعاءه وتجربة طباعة النتيجة من خلال خلال امر Debug.Print Me.txtxname.ControlSource = StrHighLight(xname, FindAsType) Debug.Print StrHighLight(xname, FindAsType) كانت النتيجة IIf(strFieldName Is Null, Null, Replace(strFieldName, "م", "<strong><font color=red>م</font></strong>")) والنتيجة التى نريد الوصول اليها يجب ان تكون =IIf([xname] Is Null, Null, Replace([xname], "م", "<strong><font color=red>م</font></strong>")) المشكلة هنا انه لم يقم باستبدال المتغير الذى يدل على اسم الحقل strFieldName بــــ [xname] بل وضع المتغير باسمه كما هو بدلا من الحقل المفروض تمرير اسه للمتغير اعتذر ان لم استطع توضيح الامر

هناك حطأ وح Public Function StrHighLight(ByVal strFieldName As String, ByVal FindAsType) As String StrHighLight = "=IIf(Len(strFieldName), Replace(strFieldName, FindAsType , strTagStart & FindAsType & strTagEnd ))" End Function اولت التعديل كالاتى دون فائدة وهذا ناتج التجربة Me.txtxname.ControlSource = StrHighLight(xname, FindAsType) Debug.Print StrHighLight(xname, FindAsType) ظهرت الطباعة من خلال امر Debug.Print =IIf(Len(strFieldName), Replace(strFieldName, FindAsType , strTagStart & FindAsType & strTagEnd )) المفروض تكون =IIf([xname] Is Null, Null, Replace([xname], "م", "<strong><font color=red>م</font></strong>"))

بص مبدئيا للتضح الفكرة المفروض عند فتح النموذج اثناء الكتابة فى المربع الاصفر يتم الفرز حسب ما تم كتابته وتميزه باللون الاحمر بالكود الاتى الكود المسؤل عن ذلك Me.txtxname.ControlSource = "=IIf([xname] Is Null, Null, " & "Replace([xname], """ & FindAsType & """, """ & strTagStart & FindAsType & strTagEnd & """))"

تم تعريفها مسبقا فى رأس صفحة الاكواد Dim FindAsType As Variant Const strDefTagStart = "<strong><font color=black>" Const strTagStart = "<strong><font color=red>" Const strTagEnd = "</font></strong>"

ما هى المتغيرات التى تقصدها استاذى

على فكرة يا دكتور انها نفس فكرة استاذى الجليل ومعلمى القدير الاستاذ @ابو عارف جزاه الله خيـرا تقريبا نفس الالية الا اننى فقط قمت بالاستغناء عن النموذج الفرعى فلم اجد خاحة لوجودة وحزاكم الله خيـر يا دكتور على دعواتكم الطيبات واسال الله تعالى ان يرزفكم والمسلمين اكثر مما دعوتم لى ويزيدكم من فضله عليها اضعافا مضاعفة

جزاكم الله خيرا استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل أجمل ما فى الدنيا هو وجودكم بينا اسأل الله تعالى ان يرزقكم البركة فى العمر والعلم والاهل والقبول فى العمل ان شاء الله وان لا يحرمنا منكم

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام فى المرفق الاتى استخدم هذا الكود Me.txtxname.ControlSource = "=IIf([xname] Is Null, Null, " & "Replace([xname], """ & FindAsType & """, """ & strTagStart & FindAsType & strTagEnd & """))" حيث أن txtxname هو مربع نص غير منضم ومصدر بيانات هذا المربع هو الحقل xname اريد عمل هذا الكود فى روتين عام حتى يتم استخدامه لاى عنصر اخر مع تبديل المتغير الذى يدل عليه انا حاولت ان اكتب الروتين بهذا الشكل Public Function StrHighLight(ByVal strFieldName As String, ByVal FindAsType) As String StrHighLight = "=IIf(strFieldName Is Null, Null, " & "Replace(strFieldName, """ & FindAsType & """, """ & strTagStart & FindAsType & strTagEnd & """))" End Function لاستدعاءه بتلك الطريقة Me.txtxname.ControlSource = StrHighLight(xname, FindAsType) سطر الكود يعمل عند استخدام مربع النص الحاص بالبحث ذو اللون الاصفر ولكن لم تفلح هل من مساعدة فى كتابة الروتين الذى يقول بنلك العملية ام انه لا يمكن تحقيق ذلك ؟! Filter With More Condition.mdb

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

طيب اسف اثقلت على حضرتك ممكن تجرب كده وتخبرنى النتيجة امممم ممكن كمان اصدار الويندوز عند حضرتك ايه امم ممكن كمان تتأكد من المكتبات ؟ وفى مرفق مكتبتين اذا لم يكونوا موجودين ضمن الويندوز فى مجلد مع المرفق الاصلى Waiting Role.mdb

مش هفكر أحل لك الخطأ 😛 لان اصلا انت قلت ... الموضوع الاصلى عرض على الشاشة

فى غلط املائى فى الرسالة واللا اصلا ما ظهر لك هذه الرسالة

لا ما اعرفش ازاى ؟ حبيبى تسلم لى يا قمر شكرا على الاطراء الجميل ☺️ طيب فى رسائل أخطاء ظهرت لحضرتك ؟

بعد إذن أستاذى القدير ومعلمى الجليل الاستاذ @ابو عارف كنت بدأت التجهيز فى طلب الدكتور @حلبي ووجدت مشاركتكم جزاكم الله خيرا اعلم والله كفيتم ووفيتم وهذة فكرتى المتواضعة بما اننى شرعت فى بدأ العمل Filter With More Condition.mdb

تمام كنت أريد التاكد ان رقم الخطأ لن يتغير فضلا وكرما دكتور عندما يسمح وقتكم تجربة المرفق الاتى اذا تم تلافى رسالة الحطأ ام لا Waiting Role.mdb

بالنسبة للتصفية حاضر من عيونى على ما اشتغل فيها لو تكرمت على تجرب دى استبدلها باللى عندك شوف نفس رقم الخطأ ام اختلف ؟ تم تعديل المرفق فى المشاركة الأولى

طيب ممكن اعرف ايه الويندوز اللى عندك يا دكتور وومكن صورة من الرسالة لو تكرمت ؟

على العموم دى فكرة بسرعة ☺️ تم تعديل المرفق لتلافى مشكلة عدم وجود صوت ضمن اعدادت الويندوز Waiting Role.zip

انا اسف مو قادر افهم شئ من المرفق زحمة كتيــــــــر

من الجهاز مباشرة استاذ