ابو جودي

فكرت اكتب الروتين بهذا الشكل 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

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

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

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

1- لماذا يكتب المستخدم الاسعار عموما ؟! هل الافضل تحديدها سلفا لانه قد يخطئ اثناء ادخالها 2- فى مشكلة عند اختيار صنف من نموذج فاتورة مبيعات ان لم ندخل البيانات بعاليه يفضل تعديل الرسالة 3- فى مشكلة عند اختيار صنف من نموذج فاتورة مشتريات ان لم ندخل البيانات بعاليه يفضل تعديل الرسالة واين ما يخص الجرد ؟ مع الاخذ فى الاعتبار امكانية عمل جرد من بداية تاريخ محدد وحتى تاريخ محدد وان تنتظر اعرض لك التطبيق على والدى عندما القاه ان شاء الله وللعلم كان يقوم بتصميم تطبيقاته على الاكسس هو مدير ادرة مخازن

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