ابو جودي

ان احكى يابانى هاهاهاهاها وجائتنى الردود سريعا اكيد باليبانى برضو والله مش قادر من كتر الضحك دكتور ماشى ماشى طيب 神はあなたを許します 🤣😂

المرفق يسهل على منر يريد تقديم المساعدة ارجوك لا تقتصر على مجرد اسألة نظرية

ممكن مرفق

جربتها وتمام الحمد لله ... هل تم حل مشكلتك

اتفضل ☺️ UmAlQuraUp.mdb

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

اتفضل التطبيق الذى يساعدك ع التحويل وان اردتهم جاهزين '---------------------------Months--------------------------- 'English Months Public Function EngMonth(myData As Date) Select Case Month(myData) Case 1: MnNm = "January" Case 2: MnNm = "February" Case 3: MnNm = "March" Case 4: MnNm = "April" Case 5: MnNm = "May" Case 6: MnNm = "June" Case 7: MnNm = "July" Case 8: MnNm = "August" Case 9: MnNm = "September" Case 10: MnNm = "October" Case 11: MnNm = "November" Case 12: MnNm = "December" End Select EngMonth = MnNm End Function '-------------------------- '-------------------------- 'Arabic Months Public Function ArbMonth(myData As Date) Select Case Month(myData) Case 1: MnNm = ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1610") & ChrW("1585") Case 2: MnNm = ChrW("1601") & ChrW("1576") & ChrW("1585") & ChrW("1575") & ChrW("1610") & ChrW("1585") Case 3: MnNm = ChrW("1605") & ChrW("1575") & ChrW("1585") & ChrW("1587") Case 4: MnNm = ChrW("1571") & ChrW("1576") & ChrW("1585") & ChrW("1610") & ChrW("1604") Case 5: MnNm = ChrW("1605") & ChrW("1575") & ChrW("1610") & ChrW("1608") Case 6: MnNm = ChrW("1610") & ChrW("1608") & ChrW("1606") & ChrW("1610") & ChrW("1608") Case 7: MnNm = ChrW("1610") & ChrW("1608") & ChrW("1604") & ChrW("1610") & ChrW("1608") Case 8: MnNm = ChrW("1571") & ChrW("1594") & ChrW("1587") & ChrW("1591") & ChrW("1587") Case 9: MnNm = ChrW("1587") & ChrW("1576") & ChrW("1578") & ChrW("1605") & ChrW("1576") & ChrW("1585") Case 10: MnNm = ChrW("1571") & ChrW("1603") & ChrW("1578") & ChrW("1608") & ChrW("1576") & ChrW("1585") Case 11: MnNm = ChrW("1606") & ChrW("1608") & ChrW("1601") & ChrW("1605") & ChrW("1576") & ChrW("1585") Case 12: MnNm = ChrW("1583") & ChrW("1610") & ChrW("1587") & ChrW("1605") & ChrW("1576") & ChrW("1585") End Select ArbMonth = MnNm End Function '-------------------------- '-------------------------- 'Hijri Months Public Function HjrMonth(myData As Date) Select Case Month(myData) Case 1: MnNm = ChrW("1605") & ChrW("1581") & ChrW("1585") & ChrW("1605") Case 2: MnNm = ChrW("1589") & ChrW("1601") & ChrW("1585") Case 3: MnNm = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") Case 4: MnNm = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585") Case 5: MnNm = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") & ChrW("1610") Case 6: MnNm = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585") & ChrW("1577") Case 7: MnNm = ChrW("1585") & ChrW("1580") & ChrW("1576") Case 8: MnNm = ChrW("1588") & ChrW("1593") & ChrW("1576") & ChrW("1575") & ChrW("1606") Case 9: MnNm = ChrW("1585") & ChrW("1605") & ChrW("1590") & ChrW("1575") & ChrW("1606") Case 10: MnNm = ChrW("1588") & ChrW("1608") & ChrW("1575") & ChrW("1604") Case 11: MnNm = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1593") & ChrW("1583") & ChrW("1577") Case 12: MnNm = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1580") & ChrW("1577") End Select HjrMonth = MnNm End Function '-------------------------- '---------------------------Months--------------------------- '-------------------------- 'Arabic Days Public Function ArbDayName(myData As Date) Select Case Weekday(myData) Case 1: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1581") & ChrW("1583") '01 | Sunday | Sun | Case 2: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1579") & ChrW("1606") & ChrW("1610") & ChrW("1606") '02 | Monday | Mon | Case 3: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1575") & ChrW("1569") '03 | Tuesday | Tue | Case 4: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1585") & ChrW("1576") & ChrW("1593") & ChrW("1575") & ChrW("1569") '04 | Wednesday | Wed | Case 5: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1582") & ChrW("1605") & ChrW("1610") & ChrW("1587") '05 | Thursday | Thu | Case 6: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1593") & ChrW("1607") '06 | Friday | Fri | Case 7: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1576") & ChrW("1578") '07 | Saturday | Sat | End Select ArbDayName = DyNm End Function '-------------------------- '-------------------------- 'English Days Public Function EngDayName(myData As Date) Select Case Weekday(myData) Case 1: DyNm = "Sunday" '01 | Sunday | Sun | Case 2: DyNm = "Monday" '02 | Monday | Mon | Case 3: DyNm = "Tuesday" '03 | Tuesday | Tue | Case 4: DyNm = "Wednesday" '04 | Wednesday | Wed | Case 5: DyNm = "Thursday" '05 | Thursday | Thu | Case 6: DyNm = "Friday" '06 | Friday | Fri | Case 7: DyNm = "Saturday" '07 | Saturday | Sat | End Select EngDayName = DyNm End Function '-------------------------- '-------------------------- 'Short Names English Days Public Function ShortDayName(myData As Date) Select Case Weekday(myData) Case 1: DyNm = "Sun" '01 | Sunday | Sun | Case 2: DyNm = "Mon" '02 | Monday | Mon | Case 3: DyNm = "Tue" '03 | Tuesday | Tue | Case 4: DyNm = "Wed" '04 | Wednesday | Wed | Case 5: DyNm = "Thu" '05 | Thursday | Thu | Case 6: DyNm = "Fri" '06 | Friday | Fri | Case 7: DyNm = "Sat" '07 | Saturday | Sat | End Select ShortDayName = DyNm End Function '-------------------------- '---------------------------Days--------------------------- Converter Arabic and Unicode (v. 2).mdb

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

شوف يا استاذ @sandanet اهون اجابة مميزة اهون ومن غير مواقع اجنبى

بردو انت غشيت من الاستاذ جعفر 😛

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

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

رغم أن الكلمات تحتار أين تقف في مسرح الأحرف لتنظم من نفسها أجمل العبارات ..لأهديها لكم فمشاعرى هي كلماتى المسطورة وكلماتى هي دليل قلبى وقلبى نبضاته تقول لكم مليون الف شكر ( أساتذتى العظماء ومعلمينى الأجلاء ( الأستاذ @أبو إبراهيم الغامدي و الأستاذ @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

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