alhoraibi_imad قام بنشر يوليو 10, 2019 مشاركة قام بنشر يوليو 10, 2019 السلام عليكم ورحمة الله وبركاته لدي نموذج به زر امر اذا تم الضغط عليه يظهر مربع رسالة بالعربي المشكلة ان الرسالة العربية تظهر على شكل استفاهامات كما بالصورة قمت بالتعديل اللغة في الويندوز لدي (unicode) إلى اللغة العربية ولكن نفس المشكلة تظهر لدي ،،، ما العمل؟؟ ارجو المساعدة رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يوليو 10, 2019 مشاركة قام بنشر يوليو 10, 2019 اعدادات المنطقة -- كنترول بانل اعملها عربي حسب اسم الدولة التي تقيم فيها رابط هذا التعليق شارك More sharing options...
alhoraibi_imad قام بنشر يوليو 11, 2019 الكاتب مشاركة قام بنشر يوليو 11, 2019 يارجل واجهة الويندوز والإعدادات كلها حولتها عربي حتى الأوفيس كله كامل حولته عربي اقولك نظام unicode برضه عربي السعودية ومانفع اتوقع المشكله من صفحة التكويد VBA الويندوز اللي عندي 10 والأوفيس 2016 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 11, 2019 مشاركة قام بنشر يوليو 11, 2019 22 ساعات مضت, alhoraibi_imad said: السلام عليكم ورحمة الله وبركاته لدي نموذج به زر امر اذا تم الضغط عليه يظهر مربع رسالة بالعربي المشكلة ان الرسالة العربية تظهر على شكل استفاهامات كما بالصورة قمت بالتعديل اللغة في الويندوز لدي (unicode) إلى اللغة العربية ولكن نفس المشكلة تظهر لدي ،،، ما العمل؟؟ ارجو المساعدة ممكن مرفق رابط هذا التعليق شارك More sharing options...
alhoraibi_imad قام بنشر يوليو 20, 2019 الكاتب مشاركة قام بنشر يوليو 20, 2019 استاذي الكريم المشكلة موجوده عندي في قاعدة بيانات بها رسائل بالعربي يعطيني استفهامات حاولت تشغيل قواعد بيانات مختلفة وخصوصا التي حملتها من خلال هذا الموقع ،، ولكن نفس المشكلة انا أتوقع بأن المشكلة هي في نسخة الويندوز ١٠ رغم انها اصلية مع العلم بأني قمت بتنزيل جميع النسخ العربية حاولت اجرب على جهازي الأخر نسخة ويندوز ١٠ أيضاً ظهرت لي نفس المشكلة في جميع قواعد البيانات رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 20, 2019 مشاركة قام بنشر يوليو 20, 2019 8 دقائق مضت, alhoraibi_imad said: استاذي الكريم المشكلة موجوده عندي في قاعدة بيانات بها رسائل بالعربي يعطيني استفهامات حاولت تشغيل قواعد بيانات مختلفة وخصوصا التي حملتها من خلال هذا الموقع ،، ولكن نفس المشكلة انا أتوقع بأن المشكلة هي في نسخة الويندوز ١٠ رغم انها اصلية مع العلم بأني قمت بتنزيل جميع النسخ العربية حاولت اجرب على جهازي الأخر نسخة ويندوز ١٠ أيضاً ظهرت لي نفس المشكلة في جميع قواعد البيانات اعدادات اللغة رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 20, 2019 مشاركة قام بنشر يوليو 20, 2019 تأكد ان اللغة هنا عربية رابط هذا التعليق شارك More sharing options...
alhoraibi_imad قام بنشر يوليو 24, 2019 الكاتب مشاركة قام بنشر يوليو 24, 2019 اخواني الأعزاء اشكر لكم في البداية ردكم الجميل ، وأفيدكم بأني وجدت الحل والحمد لله ،ولكن ليست بنفس طريقتكم ،، فطريقتكم اعرفها جيداً ،، ولكن مع الأسف الشديد لم تنجح معي لذلك وضعت مشاركتي وبشكل واضح، ولا أمدح نفسي ولكن لدي ولله الحمد خبرة طويلة في برنامج الأكسس وقد صممت برامج كثيرة جدا والحمد لله ، ثم انقطعت عن ذلك فترة ٣ سنوات لذلك عندما ثبت اخر الاصدارات وجدت بعض الفروقات وكانت من ضمنها المشكلة التي واجهتني وذكرتها في الأعلى. المشكلة الحقيقية هي ان برمجة 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 كنت أيضا أريد ان ارفق نسخة من البرنامج ولكن مع الأسف حجمه كبير ولا يحق لي نشره رغم أني بنيته من الصفر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 24, 2019 مشاركة قام بنشر يوليو 24, 2019 في هذه الحالة ، جرب هذا المرفق ، وبدون مكتبة MessageBoxW جعفر 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان