اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


nacer_alger

الردود الموصى بها

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

 

جعفر

  • Like 2
رابط هذا التعليق
شارك

لكن اخي jjafferr

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

رابط هذا التعليق
شارك

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

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

 

جعفر

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

 

Converter Arabic and Unicode.mdb

تم تعديل بواسطه أبو عبدالله الحلوانى
  • Like 2
رابط هذا التعليق
شارك

شكرا لرد

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

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

مثال 

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

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

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

وشكرا 

رابط هذا التعليق
شارك

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

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

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

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

NumberToArabic.accdb

  • Like 2
رابط هذا التعليق
شارك

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

 

النموذج:

image.png.c218bac45f921ec0bafb3e6b61a34afb.png

.

والنتيجة:

image.png.879e0306963b6bbc80cd6100230faeb2.png

.

جعفر

 

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

تم تعديل بواسطه jjafferr
المرفق السابق كان فيه خطأ، وتم استبداله بمرفق جديد
  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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

هل من طريقة 

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

رابط هذا التعليق
شارك

اخي ناصر 🙂

 

الطريقة 1:

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

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

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

 

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

الطريقة 2:

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

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

 

جعفر

  • Like 2
رابط هذا التعليق
شارك

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

اخي ناصر 🙂

 

الطريقة 1:

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

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

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

جعفر

image.png.5f66d4d526d71dc01544210f8a5c7e09.png

swords

  • Like 1
رابط هذا التعليق
شارك

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

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

 

convert nacer.accdb

رابط هذا التعليق
شارك

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

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

 

تم تعديل بواسطه nacer_alger
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

ما الحل؟

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


 

 

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

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

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

 

image.png.7891feae14a14c4d6ec381da7b95aad4.png

.

والنتيجة

image.png.26f2d6d423cb9a20d157102ab7ed6d13.png

.

جعفر

1337.1.convert nacer.accdb.zip

  • Like 2
رابط هذا التعليق
شارك

في البداية جربت الطريقة التي شرحتها و كانت دائما النتيجة بالجنيه، شوية تحايل بواسطة أداة مرفوعة في المنتدى 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)

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information