اذهب الي المحتوي
أوفيسنا

اللغة العربية تظهر على شكل استفهامات في مربع الرسالة msgbox


alhoraibi_imad

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

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

لدي نموذج به زر امر اذا تم الضغط عليه يظهر مربع رسالة بالعربي

المشكلة ان الرسالة العربية تظهر على شكل استفاهامات كما بالصورة

قمت بالتعديل اللغة في الويندوز لدي (unicode) إلى اللغة العربية ولكن نفس المشكلة تظهر لدي ،،، ما العمل؟؟

 

ارجو المساعدة

 

Screen Shot 2019-07-05 at 12.48.12 AM.png

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

يارجل واجهة الويندوز والإعدادات كلها حولتها عربي

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

اقولك نظام 

unicode 

برضه عربي السعودية

 

ومانفع

 

   اتوقع المشكله من صفحة التكويد 

VBA

 

الويندوز اللي عندي 10  والأوفيس 2016

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

22 ساعات مضت, alhoraibi_imad said:

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

لدي نموذج به زر امر اذا تم الضغط عليه يظهر مربع رسالة بالعربي

المشكلة ان الرسالة العربية تظهر على شكل استفاهامات كما بالصورة

قمت بالتعديل اللغة في الويندوز لدي (unicode) إلى اللغة العربية ولكن نفس المشكلة تظهر لدي ،،، ما العمل؟؟

 

ارجو المساعدة

 

Screen Shot 2019-07-05 at 12.48.12 AM.png

ممكن مرفق

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

  • 2 weeks later...

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

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

انا أتوقع بأن المشكلة هي في نسخة الويندوز ١٠ رغم انها اصلية 

مع العلم بأني قمت بتنزيل جميع النسخ العربية

حاولت اجرب على جهازي الأخر نسخة ويندوز ١٠ أيضاً ظهرت لي نفس المشكلة في جميع قواعد البيانات

 

 

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

8 دقائق مضت, alhoraibi_imad said:

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

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

انا أتوقع بأن المشكلة هي في نسخة الويندوز ١٠ رغم انها اصلية 

مع العلم بأني قمت بتنزيل جميع النسخ العربية

حاولت اجرب على جهازي الأخر نسخة ويندوز ١٠ أيضاً ظهرت لي نفس المشكلة في جميع قواعد البيانات

 

 

اعدادات اللغة 

 

 

 

002.thumb.jpg.23e3e9fab4cad7a0bdf4fe43e60a325e.jpg

 

 

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

اخواني الأعزاء 

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

المشكلة الحقيقية هي ان برمجة vba الموجودة بإصداري لاتدعم اللغة العربية ، هل هي بسبب نسخة الويندوز ١٠ ، او نسخة الأوفيس ، الله أعلم.

ولكني بحثت كثيراً حتى في المواقع الأجنبية إلى ان وجدت الحل في أحد المواقع الأجنبية، وكانت الفكرة بأن اقوم بإنشاء جدول فيه الرسائل التي أريد اظهارها في مربع الرسائل ثم اقوم باستدعائها حسب الطلب في صفحة الأكواد 

وقمت بإضافة الكود التالي لتعريف دالة جديدة

Quote

Private Declare PtrSafe Function MessageBoxW Lib "User32" (ByVal hWnd As LongPtr, ByVal lpText As LongPtr, ByVal lpCaption As LongPtr, ByVal uType As Long) As Long Public Function MsgBoxW(Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title As String = "Microsoft Access") As VbMsgBoxResult     Prompt = Prompt & vbNullChar 'Add null terminators     Title = Title & vbNullChar     MsgBoxW = MessageBoxW(Application.hWndAccessApp, StrPtr(Prompt), StrPtr(Title), Buttons) End Function

 

ثم بعد ذلك قمت بكتابة كود الاستدعاء في زر الأمر الذي اريد الضغط عليه ليظهر مربع الرسالة

Quote

MsgBoxW (DLookup("MyArabic_text", "Text_table", "Id=1")), vbCritical, "Sorry"

باستخدام دالة Dlookup

حيث أن اسم الحقل الذي يوجد به الرسائل بالعربي هو (MyArabic_text) 

اسم الجدول هو (Text_table)

رقم الحقل الأساسي id=1  تعني خذ الرسالة التي رقم حقلها الأساسي ١

 

وبهذا الشكل تم حل مشكلتي

اتمنى ان تكون الفكرة واضحة ،، وللعلم فقد وجدت الحل من خلال هذا الرابط

https://stackoverflow.com/questions/55210315/how-do-i-display-a-messagebox-with-unicode-characters-in-vba

 

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

 

Screen Shot 2019-07-24 at 4.01.27 PM.png

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

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

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



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

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

Important Information