ظهور مشكلة في التحويل البرمجي عند نقل البرنامج لجهاز آخر،،

[حامل المسك]

السلام عليكم وسلمكم الله ورعاكم،،

نقلت البرنامج لجهاز آخر فلم يعمل وجاءت هذه الرسالة 

فما الحل؟

[Ahmed Sary]

هل نسخة الويندوز أو الأوفيس بالجهاز الآخر مختلفة ؟

[حامل المسك]

لا.. وندوز 10 وأوفيس 365

[jjafferr]

السلام عليكم 🙂

 

اخي ابو انس ، يا حبذا لو تخبرنا شوي عن العمل الذي كنت تعمله وحصلت على هذا الخطأ ، وكذلك اعطنا بقية الكود ،

ولكن ، بالنظر الى هذا الموضوع والموضوع الاخر (ما سبب عدم وضوح بداية الكلمات في تقارير أكسس) ، فأرى انه اعدادات جهازك يحتاج لها تضبيط ، وإلا ، فكيف على كمبيوترك عندك المشكلة ، ونفس الكود على الكمبيوتر الآخر يعمل بدزن مشاكل 🙂

 

جعفر

[حامل المسك]

وعليكم السلام والرحمة والإكرام،،

أستاذنا القدير،، بالنسبة لي اشتريت جهاز لابتوب ، شغلت البرنامج عليه البرنامج هو برنامج مخاطبات به كمية كبيرة من المعلومات،، 

أول ما يفتح البرنامج يفتح نموذج مثلا س وهذا النموذج مرتبط باستعلام مثلا ص ،، في هذا الاستعلام  عمود مرتبط بالوحدة النمطية لحذف المسافات،،

تبين لي أن هذا الاستعلام لا يعمل على الجهاز الجديد يعطي رسالة إشكالية في عمود الارتباط بالوحدة النمطية

NewNamee: TrimAll([xQ];"  ")

فالإشكال أن هذا الاستعلام يعمل على جهازي القديم وعندما نقلته للجهاز الحديث لا يعمل،،

[jjafferr]

لوسمحت ترفق لنا الوحدة النمطية 🙂

[حامل المسك]

تفضل يا غالي هذا الاستعلام الذي لم يفتح على بعض الأجهزة الأخرى

مشكلة فتح الاستعلام.accdb

[jjafferr]

كنت اتمنى تكون في المرفق بيانات كفاية علشان اعرف وين الخطأ !!

 

3 ساعات مضت, حامل المسك said:

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

جرب التالي :

في الاستعلام

احذف الحقل التالي
NewNamee: TrimAll([xQ]," ")

اضف الحقل التالي
NewNamee2: TrimAll2([xQ])

.

ثم اضف الدالة التالية الى الوحدة النمطية:

Function TrimAll2(thisString As String) As String

    TrimAll2 = Replace(thisString, "      ", " ")   '6
    TrimAll2 = Replace(TrimAll2, "     ", " ")      '5
    TrimAll2 = Replace(TrimAll2, "    ", " ")       '4
    TrimAll2 = Replace(TrimAll2, "   ", " ")        '3
    TrimAll2 = Replace(TrimAll2, "  ", " ")         '2
    TrimAll2 = " " & Trim(TrimAll2) & " "
End Function

 

وشوف اذا اشتغل الاستعلام.

 

جعفر

[حامل المسك]

أعتذر يا غالي أضفت بعض البيانات وحاولت تطبيق الطريقة فلم تنجح معي.. ووقبل التعديل وبالضغط مرارا على موافق ظهرت الرسالة التي في المرفق،،

مشكلة فتح الاستعلام.accdb

[jjafferr]

الظاهر ان احد المكتبات عندك مفقودة ، فرجاء تعمل التالي علشان نعرف ايهم/

.

اتوقع ان تكون احد المكتبات مكتوب عليها MISSING ، فرجاء خلينا نشوف الصورة النالية من برنامجك

[حامل المسك]

وهذه من الجهاز الذي لم يعمل عليه البرنامج

[jjafferr]

اعمل Compile

.

وشوف وين يعطيك خطأ ، اريد صورة من السطر اللي قف عليه الخطأ ، ورسالة الخطأ

 

نظام الافيس عندك 32بت او 64بت ؟

[حامل المسك]

[حامل المسك]

الأفس 64بت .. والوندوز 64 بت هذا في الجهاز الذي لم يعمل،،

وفي الجهاز القديم 32 بت

أي أن البرنامج عُمل على 32 بت ونريد أن يعمل على 64 بت

تم تعديل مايو 21, 2021 بواسطه حامل المسك

[jjafferr]

استبدل السطر بهذا :

Private Declare PtrSafe Function apiGetLocaleInfo Lib "kernel32" _

 

واعمل compile  مرة اخرى

[حامل المسك]

تممااااااااااااااام عليكم يا أمير ،،، ربي يوفقك ويرضى عليك،،،

اشتغل على الجهازين،،

هل ممكن بيان المشكلة ؟!

[jjafferr]

هذه مكتبة 32بت ، وانت جهازك 64بت ، فكان لازم لها معالجة ، وتمت المعالجة والحمدلله بحيث تعمل على النواتين 32بت و 64بت 🙂

 

بس هل اشتغل الاستعلام ؟

 

جعفر

[حامل المسك]

نعم اشتغل الاستعلام،،

أسعدك الله ووفقك وبارك لك في علمك وعملك وجعلك موفقا مسددا أينما كنت،،

[jjafferr]

حياك الله 🙂

 

وانصحك انك دائما تستعمل البرنامج المرفق ، كل مرة تعدل على برنامجك ، وكل مرة تصادف  مشكلة :

 

 

جعفر

[حامل المسك]

إبداع فوق الوصف،، الله يعطيك العافية ويوفقك لكل خير،،