تحويل ارقام جدول باللغة العربية الى الانكليزية

[moham_q]

السلام عليكم الاخوة الاعزاء في المنتدى

لدي جدول اكسيس يحوي حقل الرقم

مكتوب باللغة العربية و احتاج ان يكون باللغة الانكليزية

ارجو افادتنا من الزملاء الاعزاء

وتقبلوا وافر الشكر والامتنان

data.accdb

[ابو جودي]

اتفضل 

 

data(1).accdb

[moham_q]

الاستاذ ابا جودى المحترم

سلمت يداك على الاجابة الرائعة

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

 

[ابو جودي]

9 ساعات مضت, moham_q said:

الاستاذ ابا جودى المحترم

سلمت يداك على الاجابة الرائعة

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

 

اخى الحبيب ان شاء الله الموضوع بسيط جدا
بدايةً الكود يبدأ من الموديل
 

'--------------------------
' لتحويل الأرقام الى الإنجليزية
Public Function RstNmbr(myData As String) 'As Integer
    myData = Replace(myData, ChrW(1632), ChrW(48))
    myData = Replace(myData, ChrW(1633), ChrW(49))
    myData = Replace(myData, ChrW(1634), ChrW(50))
    myData = Replace(myData, ChrW(1635), ChrW(51))
    myData = Replace(myData, ChrW(1636), ChrW(52))
    myData = Replace(myData, ChrW(1637), ChrW(53))
    myData = Replace(myData, ChrW(1638), ChrW(54))
    myData = Replace(myData, ChrW(1639), ChrW(55))
    myData = Replace(myData, ChrW(1640), ChrW(56))
    myData = Replace(myData, ChrW(1641), ChrW(57))
    
    RstNmbr = myData
End Function
'--------------------------

RstNmbr   اسم المتغير العام الرئيسى الذى سنستدعيه لاحقا فى باقى القاعدة حسب وجهة النظر 
myData   والموجود بين الاقواس هو المتغير الفرعى الذى يعتمد عليه المتغير الرئيسي وهو الذى سوف يساوى البيانات التى نريد معالجتها والتى هنا تمثل الارقام العربية

وهذا الجزء من الكود هو دالة الاستبدال

  Replace(myData, ChrW(1632), ChrW(48) 

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

ChrW(1632) 

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

  ChrW(48)

ومدلول هذه الداله

 ChrW()

تستخدم لارجاع الارقام التى ستكتب داخل القوسين الى الترميز العالمى  unicode   
لذلك ما يتم كتابته من خلال هذا الترميز لا علاقة له لا بالخطوط داخل الويندوز ولا بلغة الحاسب الالى حتى
وستجد هذا السطر داخل القاعدة فى رأس الموديول
https://www.ssec.wisc.edu/~tomw/java/unicode.html
وهو الموقع الذى يحتوى على كل الرموز والحروف القى عليه نظرة 

وبهذا شرحنا الكود تفصيلا المستخدم فى الموديول 
باقى الان كيف نتعامل معه فى باقى كائنات القاعدة
انظر الى الاستعلام  Query1    فى وضع التصميم   لان الحقل الذى بيه الارقام بالعربيه اسمه  cod

يتم استدعاء الكود كالاتى

RstNmbr([cod])

طيب بما انك تريد تحويل الارقام داخل الجدول
انظر الى استعلام التحديث   باسم   qryRstNmbr

هنا فقط طلبت منه تحويل القيم فى الحقل cod  الى القيم بعد تمريرها للكود بالموديل 

بس خلاص 

 

 

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

[moham_q]

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

 

 

[ابو جودي]

طبعا تجد داخل الموديول ايضا اسطر لتحويل الارقام من انجليزية الى عربية 
 

ArbNmbr(myData)

انظر الان مرة اخرى الى الاستعلام  Query1

 

data(2).accdb

[qassim-t]

1 hour ago, ابا جودى said:

طبعا تجد داخل الموديول ايضا اسطر لتحويل الارقام من انجليزية الى عربية 
 

ArbNmbr(myData)

انظر الان مرة اخرى الى الاستعلام  Query1

 

data(2).accdb 500 kB · 0 downloads

اخي العزيز ابا حودي..اعذرني على عدم استيعابي لما يجري

نبدأ من الاول..

لدينا جدول بيانات ارقام عربي مثلا  ونريد ان نحوله الى ارقام انكليزية في حدول فارغ الى ارقام انكليزية

اليس هذا المطلوب؟

كيف يتم ملء الجدول الاخر؟ فقد مسحت البيانات للارقام الانكليزي ولم يحدث شيء..اي لم يتم ملئه بالبيانات مرة اخرى

ارجو انك فهمت مقصدي

تم تعديل يوليو 1, 2019 بواسطه qassim-t