رسالة خطأ عند التشغيل

[naguib_3778]

تم تصميم برنامج وعند تشغيله على جهاز اخر اعطي تلك الرساله

فما معني الرساله وما طريقة حل المشكله

شكراً

 

[ازهر عبد العزيز]

اعداد اللغة عند العميل تختلف عن اعداد الجهاز الذي صم علية البرنامج

[ابو جودي]

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

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

لو عاوز مساعدة فى ذلك سوف اتيك بالشرح

[naguib_3778]

هو تغير اللغه للجهاز هيكون افضل واسهل

شكراً جداً

[ابو جودي]

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

[ازهر عبد العزيز]

32 دقائق مضت, ابو جودي said:

لو عاوز مساعدة فى ذلك سوف اتيك بالشرح

بانتظار الشرح استاذنا المبدع

[ابو جودي]

طيب اولا لابد لنا الاحتفاظ بتلك القاعدة Converter Arabic and Unicode (v. 3)

الوظيفة :  تقوم بعمل التحويل من اللغة العربية الى الترميز العالمى والعكس

ثانيا 

انا اردنا كتابة تلميح داخل محرر الاكواد لا نكتبه بالعربية كذلك ولكن ممكن بالـ Franco-Arab 

كتابة تلميح يدل على رسالة ترحيب ممكن نكتب التلميح بالشكل الاتى 

' resalat tar7ib
'ahala bkm fe montda Al Access

ونقوم باعلان عن متغير نصى لنسد اليه نص الرسالة

مثلا

Dim strMsgTr7ib As String

ثم نفتح قاعدة بيانات التحويل ونكتب بها النص الذى نريده بالعربى ونقوم بتحويله الى الترميز العالمى ونقوم بنسخ الرموز الناتجة من التحويل ونسندها الى المتغير

    strMsgTr7ib = ChrW("1575") & ChrW("1607") & ChrW("1604") & ChrW("1575") & ChrW("32") & ChrW("1576") & ChrW("1603") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("1578") & ChrW("1583") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1603") & ChrW("1587") & ChrW("1587")

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

    strMsgTr7ib = ChrW("1575") & ChrW("1607") & ChrW("1604") & ChrW("1575") & ChrW("32") & ChrW("1576") & _
    ChrW("1603") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1605") & _
    ChrW("1606") & ChrW("1578") & ChrW("1583") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & _
    ChrW("1571") & ChrW("1603") & ChrW("1587") & ChrW("1587")

وهذا مثال للتجربة واسم القاعدة Use Of Unicode in VBA

 

Converter Arabic and Unicode (v. 3).accdb Use Of Unicode in VBA.accdb