حل مشكلة العربية في vba

[nacer_alger]

قمت بانشاء برنامج على اكسس بلغة الفرنسية 

واريد ان اكتب في محرر النصوص vba بالغة العربية في نفس الوقت

كيف لي ان اجعل البرنامج يقبل كلت الغتين بدون مشاكل العربية والفرنسية 

[بحار الاكسس]

اعمل الاعدات مثل المرفق وهيشغل معاك باذن الله

[jjafferr]

4 ساعات مضت, nacer_alger said:

اكتب في محرر النصوص vba بالغة العربية

لا يُنصح بالكتابة في الكود VBE إلا باللغة الانجليزية ، وخصوصا وبرنامجك ظاهرا عليه انه متعدد اللغات ،

وهذا الرابط سيفيدك : اعمل برنامجك بعدة لغات وببساطة - قسم الأكسيس Access - أوفيسنا (officena.net)

 

جعفر

[nacer_alger]

لكن اخي jjafferr

في برنامج فاتورات استخرجها بعربية والفرنسية وتحويل ارقام الى الحروف  اي تفقيط  يجب ان يظهر بعربية والفرنسية في التقرير

[jjafferr]

انا قلت لا تكتب غير الانجليزية في الكود ،

ويمكنك ، ان تستعمل جميع اللغات في البرنامج ، كما في المثال في الرابط الذي ارفقته لك في مشاركتي السابقة 🙂

 

جعفر

[أبو عبدالله الحلوانى]

اضافة الي ما تفضل به استاذنا جعفر

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

ملاحظة هامة:  المرفق للأستاذ أبو جودي جزاه الله خيرا

ويمكنك استخدام نفس الفكرة بالنسبة للغة الفرنسية أو أي لغة أخري غير الانكليزية

 

Converter Arabic and Unicode.mdb

تم تعديل فبراير 2, 2021 بواسطه أبو عبدالله الحلوانى

[nacer_alger]

شكرا لرد

لكن انا اريد ان اضع تفقيط بلغة العربية وتفقيط باللغة الفرنسية ليس طرجمة البرنامج بلغتين 

اي اريد تحويل ارقام الى حروف عند كتابتها في الفاتورة واطبع الفتورة سواء بالفرنسية مصدرها تفقيط بالغة الفرنسية مبرمج في vba  وتفقيط بالغة العربية مصدره مبرمج باللغة العربية 

مثال 

اكتب 30 تحول ثلاثون بالعربية

اكتب 30 تحول trent بالفرنسية

اكواد التفقيط موجودة المشكل في الظهور يعني يجب ظبط الجهاز عربي او فرنسي هده هي المشكلة

وشكرا 

[أبو عبدالله الحلوانى]

12 ساعات مضت, nacer_alger said:

اكواد التفقيط موجودة المشكل في الظهور يعني يجب ظبط الجهاز عربي او فرنسي هده هي المشكلة

لم أفهم ماذا تقصد بالظهور بالضبط ولكن لدي هذه الدالة للتفقيط باللغة العربية وهي تعمل معي منذ فترة كبيرة بدون مشاكل والحمدلله

جزا الله كاتبها الاستاذ نور الدين ولا زلت أحتفظ باسمه عليها عند استخدامها بأي تطبيق خاص بي جرب هذا المرفق ووافنا بالنتائج

NumberToArabic.accdb

[jjafferr]

ولا توجد كلمات عربيه في الكود هنا كذلك 🙂

 

النموذج:

.

والنتيجة:

.

جعفر

 

1337.Arabic تفقيط.mdb.zip

تم تعديل فبراير 21, 2021 بواسطه jjafferr
المرفق السابق كان فيه خطأ، وتم استبداله بمرفق جديد

[nacer_alger]

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

هل من طريقة 

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

[jjafferr]

اخي ناصر 🙂

 

الطريقة 1:

لو فتحت برنامجي ، لرأيت اني وضعت البيانات العربية في الجدول ، 

وعليه تقدر ان تعمل التفقيط العربي و الانجليزي (المثال الذي ارفقته لك في مشاركتي السابقة) على اي جهاز فيه حروف عربية ، ولا علاقة له بضبط لغة الجهاز ،

بقي ان تضبط التفقيط الفرنسي وتجعل الكلمات الفرنسية في جدول ، وسيكون عندك 3 لغات للتفقيط ، العربية والانجليزية والفرنسية.

 

-------------------------------------------

الطريقة 2:

ومثل ما اقترح اخي ابوعبدالله ، بإستخدام برنامجي اخونا @ابا جودى لتحويل الكلمات الى Ascii ،

فرجاء ارفق برنامجك الذي فيه تفقيق عربي وتفقيط فرنسي ، وخلينا نساعدك 🙂

 

جعفر

[nacer_alger]

سوف اجرب شكرا

 

[agha4m]

On 2/11/2021 at 10:34 AM, jjafferr said:

اخي ناصر 🙂

 

الطريقة 1:

لو فتحت برنامجي ، لرأيت اني وضعت البيانات العربية في الجدول ، 

وعليه تقدر ان تعمل التفقيط العربي و الانجليزي (المثال الذي ارفقته لك في مشاركتي السابقة) على اي جهاز فيه حروف عربية ، ولا علاقة له بضبط لغة الجهاز ،

بقي ان تضبط التفقيط الفرنسي وتجعل الكلمات الفرنسية في جدول ، وسيكون عندك 3 لغات للتفقيط ، العربية والانجليزية والفرنس

جعفر

swords

[nacer_alger]

نع وجدتها لاكن هناك مشكل عندما اكتب تظهر لي الرسالة خطئ في vba

هذا هو المرفق فيه دالة تحويل ارقام الى حروف بالفرنسية 

 

convert nacer.accdb

[agha4m]

14 hours ago, agha4m said:

swords الخطأ ده بيظهر في تعريف

ما الحل؟

 

[biskra]

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

convert nacer.rar

[nacer_alger]

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

ممكن تبديل كملة جنيه  بكلمة دينار  جزائري

 

تم تعديل فبراير 18, 2021 بواسطه nacer_alger

[nacer_alger]

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

[biskra]

تفضل هذه محاولة

convert nacer.rar

[jjafferr]

في ١٨‏/٢‏/٢٠٢١ at 11:59, agha4m said:

swords الخطأ ده بيظهر في تعريف

ما الحل؟

اعتذر عن الخطأ ، وتم تعديل المرفق في المشاركة السابقة 🙂


 

 

في ١٨‏/٢‏/٢٠٢١ at 12:55, nacer_alger said:

ممكن تبديل كملة جنيه  بكلمة دينار  جزائري

هذا تعديل على برنامج اخي @biskra  والذي اخذ الكود من مرفق اخونا @أبو عبدالله الحلوانى ، يعني عمل جماعي 🙂

 

.

والنتيجة

.

جعفر

1337.1.convert nacer.accdb.zip

[biskra]

في البداية جربت الطريقة التي شرحتها و كانت دائما النتيجة بالجنيه، شوية تحايل بواسطة أداة مرفوعة في المنتدى Converter Arabic and Unicode تعرفت على صيغة Unicode للجنيه بحثت عنها في و عوضتها بالدينار الجزائري في السطرين التاليين

Resultat = Resultat & T2 & " " + ChrW(1583) + ChrW(1610) + ChrW(1606) + ChrW(1575) + ChrW(1585) + ChrW(32) + ChrW(1580) & ChrW(1586) + ChrW(1575) + ChrW(1585) + ChrW(1610)
Else
If Resultat <> "" Then
Resultat = Resultat & " " + ChrW(1583) + ChrW(1610) + ChrW(1606) + ChrW(1575) + ChrW(1585) + ChrW(32) + ChrW(1580) & ChrW(1586) + ChrW(1575) + ChrW(1585) + ChrW(1610)

هكذا تم الوصول الى النتيجة.

[jjafferr]

54 دقائق مضت, biskra said:

هكذا تم الوصول الى النتيجة.

نعم لاحظت هذا 🙂

ومو سهل ترجمة لغة الى لغة اخرى 😬

 

جعفر

[nacer_alger]

بارك الله فيكم شكرا لكم 

لقد استفدت منكم جميعا