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

[alhoraibi_imad]

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

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

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

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

 

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

 

[عبد اللطيف سلوم]

اعدادات المنطقة -- كنترول بانل

اعملها عربي حسب اسم الدولة التي تقيم فيها

[alhoraibi_imad]

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

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

اقولك نظام 

unicode 

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

 

ومانفع

 

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

VBA

 

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

[ابو جودي]

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

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

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

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

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

 

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

 

ممكن مرفق

[alhoraibi_imad]

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

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

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

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

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

 

 

[ابو جودي]

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

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

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

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

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

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

 

 

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

 

 

 

 

 

[ابو جودي]

تأكد ان اللغة هنا عربية

 

[alhoraibi_imad]

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

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

المشكلة الحقيقية هي ان برمجة 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

 

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

 

[jjafferr]

في هذه الحالة ، جرب هذا المرفق ، وبدون مكتبة MessageBoxW 

 

 

جعفر