حل مشكلة اللغة العربية داخل محرر الأكواد ادة تحويل من العربي الى الترميز العالمي والعكس

[ابو جودي]

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

احبائى اقدم لكم هذه الاداة البسيطة ذات الفائدة الكبيرة 

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

وبين طيات نقاش طويل بينى وبين استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr 

نصحنى وشدد على بــــ عدم كتابة اى احرف عربية داخل المحرر حتى وان كانت ملاحظات او تلميحات

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

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

1- الموضوع مرهق قليلا ويتطلب وقت وجهد كبيرين 
2- بالرغم من النقطة السابقة الا انه ممتع جدا جدا جدا وبرغم صعوبته اثناء التصميم الا انه يعطى مرونه فى تغيير الرسائل بدون الرجوع الى محرر الاكواد

وطبعا قد لا يستطيع البعض تحقيق ذلك

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

شرح الاداة

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

من واقع الصورة 
الجزء الأيمن
1          >>--->  المكان المخصص لكتابة اللغة العربية
2          >>--->  زر الامر الذى يقوم بتحويل ما تم كتابتة الى الترميز العالمى Unicode 
3          >>--->  زر الامر الذى يقوم بنسخ الاحرف التى تم تحويلها الى الترميز العالمي

الجزء الأيسر
A          >>--->  لصق الترميز العالمى الذى قمت بنسخه من اى قاعدة بيانات تم استخدام هذا الترميز فيها من قبل 
B          >>---> زر الامر الذى يقوم بتحويل الترميز العالمى Unicode  الى اللغة العربية لتستطيع قراته 

مرفق لكم الاداة + قاعدة تجربة 

انتظر تجربتكم وافادتكم

تم تعديل المرفق  فى تمام الساعة 7:44 م بتوقيت القاهرة - تاريخ 23/09/2019

 

 

Converter Arabic and Unicode.zip

Converter Arabic and Unicode.mdb

[محمد عبد الله ٢]

بارك الله بك أستاذي القدير @ابا جودى و بالاستاذ القدير @jjafferr

فكرة رائعة و عمل متعوب عليه بارك الله بكم

[مصطفى010]

السلام عليكم

لدي office 2010 لكن لا تعمل عليه برجاء غمل نسخة تناسب 2010 لانها تعطي رسالة ان البرنامج تم تصميمه بنسخة اعلى

[ابو جودي]

في ٢٣‏/٩‏/٢٠١٩ at 17:17, مصطفى010 said:

السلام عليكم

لدي office 2010 لكن لا تعمل عليه برجاء غمل نسخة تناسب 2010 لانها تعطي رسالة ان البرنامج تم تصميمه بنسخة اعلى

قمت بازالة الاوفيس 2013  والان اقوم باعداد 2010  لارى المشكلة 

[ابو جودي]

تم تعديل المرفق فى المشاركة الاصلية فى تمام الساعة 7:44 م بتوقيت القاهرة - تاريخ 23/09/2019

انتظر افادتكم ان شاء الله بعد نجاح التجربة معكم

[مصطفى010]

[ابو جودي]

في ٢٣‏/٩‏/٢٠١٩ at 19:55, مصطفى010 said:

 

طيب جرب دى 
وللعلم انا الان شغال بنسخة 2010

 

Converter Arabic and Unicode.mdb

تم تعديل سبتمبر 23, 2019 بواسطه ابا جودى

[محمد احمد لطفى]

جزاك الله خيراً أستاذى 

[مصطفى010]

جربت علي اوفيس 2010 و اوفيس 2013 لا تعمل...........تظهر الواجهة ولكن لا يتم التحويل

[ابو جودي]

ازاى بس

[ابو جودي]

ان ما اشتغل هذه المره يكون المشكله عندك انت

Converter Arabic and Unicode.mdb

[ابوآمنة]

تمت التجربة بــــــنجاح 

وإضافة جميلة لقائمة أعمالك المبهرة في المنتدى .

جعل الله ما تقدمه في ميزان حسناتك حين تلقاه .

وجميع المسلمين .

[ابو جودي]

الله يسعدك كما اسعدتنى جزاكم الله خيرا 

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

جزاكم الله خيرا كثيرا على دعواتكم الطيبات واسال الله ان يرزقكم مثلها اضعافا كثيره

[مصطفى010]

تمام اشتغل الاخير (الجدول غير موجود بالبرنامج استوردته من البرنامج السابق و اشتغل)

شكرا على التعب

[ابو عارف]

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

أخي العزيز أبا جودي : 

اولا اشكرك على ما تقدمه لاخوانك في المنتدى 

ثانيا   بعد اطلاع على البرنامج وجدت البرنامج يعمل بكفائة و ماشاء الله عليك و في نفس وقت حبيت عرض اقتراح اختصار وحدة نمطية modConverter من:

Public Function ToUniCode(myData As String)
 myData = Replace(myData, ChrW(1569), "ChrW(1569)")
 myData = Replace(myData, ChrW(1570), "ChrW(1570)")
 myData = Replace(myData, ChrW(1571), "ChrW(1571)")
 myData = Replace(myData, ChrW(1572), "ChrW(1572)")
 myData = Replace(myData, ChrW(1573), "ChrW(1573)")
 myData = Replace(myData, ChrW(1574), "ChrW(1574)")
 myData = Replace(myData, ChrW(1575), "ChrW(1575)")
 myData = Replace(myData, ChrW(1576), "ChrW(1576)")
 myData = Replace(myData, ChrW(1577), "ChrW(1577)")
 myData = Replace(myData, ChrW(1578), "ChrW(1578)")
 myData = Replace(myData, ChrW(1579), "ChrW(1579)")
 myData = Replace(myData, ChrW(1580), "ChrW(1580)")
 myData = Replace(myData, ChrW(1581), "ChrW(1581)")
 myData = Replace(myData, ChrW(1582), "ChrW(1582)")
 myData = Replace(myData, ChrW(1583), "ChrW(1583)")
 myData = Replace(myData, ChrW(1584), "ChrW(1584)")
 myData = Replace(myData, ChrW(1585), "ChrW(1585)")
 myData = Replace(myData, ChrW(1586), "ChrW(1586)")
 myData = Replace(myData, ChrW(1587), "ChrW(1587)")
 myData = Replace(myData, ChrW(1588), "ChrW(1588)")
 myData = Replace(myData, ChrW(1589), "ChrW(1589)")
 myData = Replace(myData, ChrW(1590), "ChrW(1590)")
 myData = Replace(myData, ChrW(1591), "ChrW(1591)")
 myData = Replace(myData, ChrW(1592), "ChrW(1592)")
 myData = Replace(myData, ChrW(1593), "ChrW(1593)")
 myData = Replace(myData, ChrW(1594), "ChrW(1594)")
 myData = Replace(myData, ChrW(1600), "ChrW(1600)")
 myData = Replace(myData, ChrW(1601), "ChrW(1601)")
 myData = Replace(myData, ChrW(1602), "ChrW(1602)")
 myData = Replace(myData, ChrW(1603), "ChrW(1603)")
 myData = Replace(myData, ChrW(1604), "ChrW(1604)")
 myData = Replace(myData, ChrW(1605), "ChrW(1605)")
 myData = Replace(myData, ChrW(1606), "ChrW(1606)")
 myData = Replace(myData, ChrW(1607), "ChrW(1607)")
 myData = Replace(myData, ChrW(1608), "ChrW(1608)")
 myData = Replace(myData, ChrW(1609), "ChrW(1609)")
 myData = Replace(myData, ChrW(1610), "ChrW(1610)")
 myData = Replace(myData, ChrW(32), "ChrW(32)")
ToUniCode = Replace(myData, ")ChrW", ") & ChrW")
End Function

Public Function ToArabic(myData As String)
 myData = Replace(myData, "ChrW(1569)", ChrW(1569))
 myData = Replace(myData, "ChrW(1570)", ChrW(1570))
 myData = Replace(myData, "ChrW(1571)", ChrW(1571))
 myData = Replace(myData, "ChrW(1572)", ChrW(1572))
 myData = Replace(myData, "ChrW(1573)", ChrW(1573))
 myData = Replace(myData, "ChrW(1574)", ChrW(1574))
 myData = Replace(myData, "ChrW(1575)", ChrW(1575))
 myData = Replace(myData, "ChrW(1576)", ChrW(1576))
 myData = Replace(myData, "ChrW(1577)", ChrW(1577))
 myData = Replace(myData, "ChrW(1578)", ChrW(1578))
 myData = Replace(myData, "ChrW(1579)", ChrW(1579))
 myData = Replace(myData, "ChrW(1580)", ChrW(1580))
 myData = Replace(myData, "ChrW(1581)", ChrW(1581))
 myData = Replace(myData, "ChrW(1582)", ChrW(1582))
 myData = Replace(myData, "ChrW(1583)", ChrW(1583))
 myData = Replace(myData, "ChrW(1584)", ChrW(1584))
 myData = Replace(myData, "ChrW(1585)", ChrW(1585))
 myData = Replace(myData, "ChrW(1586)", ChrW(1586))
 myData = Replace(myData, "ChrW(1587)", ChrW(1587))
 myData = Replace(myData, "ChrW(1588)", ChrW(1588))
 myData = Replace(myData, "ChrW(1589)", ChrW(1589))
 myData = Replace(myData, "ChrW(1590)", ChrW(1590))
 myData = Replace(myData, "ChrW(1591)", ChrW(1591))
 myData = Replace(myData, "ChrW(1592)", ChrW(1592))
 myData = Replace(myData, "ChrW(1593)", ChrW(1593))
 myData = Replace(myData, "ChrW(1594)", ChrW(1594))
 myData = Replace(myData, "ChrW(1600)", ChrW(1600))
 myData = Replace(myData, "ChrW(1601)", ChrW(1601))
 myData = Replace(myData, "ChrW(1602)", ChrW(1602))
 myData = Replace(myData, "ChrW(1603)", ChrW(1603))
 myData = Replace(myData, "ChrW(1604)", ChrW(1604))
 myData = Replace(myData, "ChrW(1605)", ChrW(1605))
 myData = Replace(myData, "ChrW(1606)", ChrW(1606))
 myData = Replace(myData, "ChrW(1607)", ChrW(1607))
 myData = Replace(myData, "ChrW(1608)", ChrW(1608))
 myData = Replace(myData, "ChrW(1609)", ChrW(1609))
 myData = Replace(myData, "ChrW(1610)", ChrW(1610))
 myData = Replace(myData, "ChrW(32)", ChrW(32))
ToArabic = myData
'ToArabic = Replace(myData, ") & ChrW", ")ChrW")
End Function

اي تعديل فنكشن ToUnicode و حذف فنكشن ToArabic نهائي :

Public Function ToUniCode(myData As String)
Dim dgt As String
Dim Newstring As String
Dim i
For i = 1 To Len(myData)
dgt = AscW(Mid(myData, (i), 1))
Newstring = Newstring & " Chrw (" & Chr(34) & dgt & Chr(34) & ") & "
Next i
Newstring = Left(Newstring, (Len(Newstring) - 2))
ToUniCode = Newstring
End Function

و تغير في الكود الزر BtnToArabic كبديل فنكشن ToArabic الي:

On Error GoTo Err_Handler

        Me.frmToArabic!txtArabic.ControlSource = "=" & Me.frmToArabic!txtUnicode
Exit_Handler:
    Exit Sub

Err_Handler:
MsgBox Err.Description
    Resume Exit_Handler

و اخيرا اتمنى لك صحة وتوفيق

[ابو ياسين المشولي]

تم ياباشا شوف المرفق

Database41.accdb

[ابو ياسين المشولي]

احسنت اخي ابو عارف بارك الله فيك

[Ali Mohamed Ali]

أحسنت استاذ محمد بارك الله فيك وجعله الله فى ميزان حسناتك

[محمد سلامة]

ممتاز اباجودى بارك الله فيك وجعله الله فى ميزان حسناتك وشفاك الله وعفاك

[الحلبي]

استاذنا وبشمهندسنا وخبيرنا ومروض اكسس / @ابا جودى

مروض اكسس فعلا انت تقول لاكسس اعمل كذا على طول ينفذ الامر

انا عندي لك فكرة جميلة ايه رأيك تسيبك من الهندسة وتعمل في شركة اوفيس الاصلية طالما انت تعرف تعمل اداة غفلت اوفيس عنها

جميل جدا جدا جدا رائع دائما مبدع ربنا يجزيك خير ويبارك في ولادك ويزيدك في العلم ويجعله في ميزان حسناتك ويارب تكون في اتم صحة

تعلمت منك  كثيرا وانا الان احاول ان اعمل فنكشن صغير علي قدر حالي ومرة تنجح ومرة لا ولكن اؤمن بان كتر المحاولات تأتي بالنهاية بالنجاح

 

تم تعديل سبتمبر 24, 2019 بواسطه الحلبي

[ابو جودي]

يا هلا وميت مليون غلا باستاذى الجليل ومعلمى القدير الاستاذ @ابو عارف 

انا ازاى ما فكرت فى اختزال الكود بالشكل ده 

هههههههههههه لانى ما كنت اعرف

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

اسال الله العلى القدير ان يزيدكم من فضله انت وكل اساتذتى الكرام الافاضل وان يرزقكم البركة فى العمر والعمل والاهل والولد

[at_aziz]

بارك الله فيك وجزاك الله خير اباجودي

اداه مهمة جدا لكل مبرمج 

الف شكر

وفقك الله ونفع بك

[مصطفى010]

السلام عليكم

حاولت استخدم الترميز العالمي لكن الامور غير سليمة ممكن المساعدة

Private Sub Command10_Click()
Form.FilterOn = False
Form.Filter = "[stage]='ابتدائي'And [sex]='انثى'"
Form.FilterOn = True
DoCmd.SetOrderBy "swname ASC"

End Sub

 

Private Sub Command10_Click()
Form.FilterOn = False
Form.Filter = stage = ChrW("1575") & ChrW("1576") & ChrW("1578") & ChrW("1583") & ChrW("1575") & ChrW("1574") & ChrW("1610") And sex = ChrW("1575") & ChrW("1606") & ChrW("1579") & ChrW("1609")
Form.FilterOn = True
DoCmd.SetOrderBy "swname ASC"

End Sub

وهنا ايضا

 

Text32 = DCount("[swname]", "usyssworker", "[idara]='Èäí ÓæíÝ'and[case]='ÇÕáí'and[stage]='ÇÈÊÏÇÆí'")

 

[jo_2010]

الاستاذ الفاضل ابا جودى 

بعد التحية وصباح الخير لك يامبدع البرنامج يفتح وكلة تمام لكن المشكلة مش عارف اوصل للازرار الموجودة اسفل البرنامج لك الصورة النموذج طويل جدا

[مصطفى010]

1 ساعه مضت, jo_2010 said:

الاستاذ الفاضل ابا جودى 

بعد التحية وصباح الخير لك يامبدع البرنامج يفتح وكلة تمام لكن المشكلة مش عارف اوصل للازرار الموجودة اسفل البرنامج لك الصورة النموذج طويل جدا

 

Converter 1.mdb