كيف يمكنني التخلص من رسالة الخطأ الواردة في المشاركة

[عبد الله قدور]

السلام عليكم

عندي مشكلة اريد ان يظهر ملف pdf في النموذج وتظهر الرسالة التالية في الصورة

سبب ظهور هذه الرسالة هي عدم وجود الملف في المسار المحدد

كيف يمكنني ان اتخلص من هذه الرسالة بحيث اذا لم يجد الملف لا تظهر هذه الرسالة

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

 

[محمد أبوعبدالله]

ضع الكود الخاص بعرض الملف بين هذا الكود

 

On Error GoTo Err_Xpath











Exit_Xpath:
   Exit Function

Err_Xpath:
    Resume ExitXpath

تحياتي

[عبد الله قدور]

السلام عليكم

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

7 ساعات مضت, محمد ابوعبد الله said:

ضع الكود الخاص بعرض الملف بين هذا الكود

لم يفلح الامر اخي الكريم

Aldiwan 1.accdb

[ابو عارف]

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

اخي عبدالله غير كود  حدث عند تحميل النموذج على:

Dim Pt As String
Pt = Dir(SelectImage(1, jpg))
Me.Picture = IIf(Pt = "", "", SelectImage(1, jpg))

بتوفيق،،،

[عبد الله قدور]

جزاك الله كل خير اخي @ابو عارف