هل من الممكن تحوير رسالة الخطأ (المرفقة في المشاركة) في الأكسس ؟

أخي أبو منتظر

من المهم جدا معرفة رقم رسالة الخطأ حتى نتمكن من برمجة

الحدث المطلوب .. لكن في الرسالة المرفقة لا أرى وجودا لأي رقم خطأ

مما يزيد المهمة صعوبة

شكرا

الأخ العزيز Ekseer المحترم

رقم رسالة الخطأ وكما ظهرت من التعليمات هي كالتالي :

(Could not find file <name>. (Error 3024

مع التحيات

أبو منتظر

طيب جميل

جرب تضع هذا الكود في حدث عند الفتح للفورم الواجهة

On Error GoTo errsub 'يوضع في أول الاجراء

errsub: 'يتم اختيار أخر الكود اذا كان هناك اكوادا أخرى في نفس الحدث
If Err.Number = 3024 Then
DoCmd.Quit
End If

وان شاء الله تنحل معاك

EKSEER

بعد الشكر الجزيل

جربت الكود الذي تفضلت به ولكنه لم يعمل !! وظهرت رسالة الخطأ ولم يغلق التطبيق !!

ووضعت رقم الخطأ كما ظهر في التعليمات الأوفيس 2003 العربي وهو 3044 كالتالي :

<Path> is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides. (Error 3044)

Possible causes:

You entered an invalid file specification that contains an invalid path. For example, you might have entered a path that does not exist or misspelled an element in the path specification.

The specified file is on a network drive and you are not connected to that drive. Make sure the network is available, and then try the operation again.

والكود الذي أدخلته في النموذج الأفتتاحي هو

Private Sub Form_Open(Cancel As Integer)
On Error GoTo errsub
errsub:
If Err.Number = 3044 Then
DoCmd.Quit
End If
End Sub

اتمنى إيجاد الحل.

مع الشكر مرة اخرى

أبومنتظر

اذا رقم الخطأ غير صحيح

شيء أكيد

يجب ان تعرف رقم الخطأ .. وضعه في الكود

أو أن الخطأ ليس من أخطاء الرن تايم

نفذ ما أشرت إليه في التالي ولكن على نسخ غير محولة إلى MDE:

اقتباس

ومن ثم مسح كافة الكائنات من هذه النسخة والأبقاء على الجداول فقط .

نجعل هذه النسخة على حافظة USB - Flash Memory ذات سعة لاتقل عن 2 جيجا بايت

نرجع الى النسخة الأصلية للبرنامج والموجودة على الجهاز ونقوم بمسح الجداول .

نقوم بعمل ربط جداول من النسخة الثانية الموجودة على الحافظة بعد وضعها في منفذ الـ USB للجهاز .

من هذه الخطوات نجد فيما بعد ان البرنامج يعمل فقط فيما لو كانت الحافظة موصلة الى منفذ USB

والعکس صحيح , لايعمل , وتأتي رسالة خطأ للأكسس تخبرنا بأن مصادر السجلات غير متوفره !!!

ثم أزل الــ USB وقم بفتح البرنامج بالضغط على الشفت أثناء الفتح ثم أفتح النموذج الذي يعمل عند بدء التشغيل أو النموذج الذي تظهر لك الرسالة عند فتحه إذا كان الخطأ من الأخطاء RunTime كما اسلف أخي أكسير ستجدسطر في الأكود يتظلل باللون الأصفر.

اتبع الطريقة التي قاله أكسير ولكن بدل من If Err.Number = 3024 Then

أكتب

ولا تظيف DoCmd.Quit

أحفظ التغييرات ثم أعد تشغيل النموذج ستظهر لك رسالة برقم الخطأ عند إذن عالج الخطأ بطريقة السيد أكسر

بارك الله فيك

لقد تم المطلوب بعد كتابة الكود هكذا

Private Sub Form_Open(Cancel As Integer)
On Error GoTo errsub
errsub:
If Err.Number = 3044 Then
DoCmd.Quit
End If
DoCmd.OpenForm "bb", , , , , acHidden
End Sub

حيث ان مصدر سجل الفورم bb في الحافظه الــ USB

مع الشكر الجزيل