تعديل الخطأ في كود جلب صورة

[علي المصري]

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

Me.myPics.Picture = Application.CurrentProject.Path & "\" & Me.eSiS & ".jpg"

ولكن اذا وجد اسم طالب ولا توجد له صورة مقابلة فان رسالة تنبيه للبرمجة سوف تظهر  ( END    او   Debug  )

نريد اخضاع هذا الكود لقاعةدة  if بحيث اذا لم يكن هناك صوره لهذا الطالب لاتظهر مكان الصورة فارغة او بوضع صورة افتراضية

 

 

وقمت بالتعديل التالي ولكنه لم يفلح

Me.myPics.Picture = Application.CurrentProject.Path & "\Ali\" & Me.eSiS & ".jpg"
If Me.myPics.Picture = eSiS Then
Me.myPics.Picture = Application.CurrentProject.Path & "\Ali\" & Me.eSiS & ".jpg"
Else
DoCmd.CancelEvent
End If

نرجوا من الزملاء الكرام التجربة والتعديل

تم تعديل يوليو 15, 2014 بواسطه علي المصري

[ابوخليل]

في الكود ادناه يمكنك عند الخطأ جعل مربع الصورة فارغ  او عرض صورة رمزية

On Error GoTo ErrHandler
  Me.myPics.Picture = Application.CurrentProject.Path & "\" & Me.eSiS & ".jpg"
ErrHandler:
    If err.Number = 2220 Then
       Me.myPics.Picture = ""
   '  Me.myPics.Picture = Application.CurrentProject.Path & "\0.jpg"         
    End If

[علي المصري]

حل ممتاز يا عبقري

جربت الحلين وجدت ان ترك الصورة فارغة هو الأفضل

On Error GoTo ErrHandler
  Me.myPics.Picture = Application.CurrentProject.Path & "\" & Me.eSiS & ".jpg"
ErrHandler:
    If err.Number = 2220 Then
       Me.myPics.Picture = ""
           
    End If

شكرا لك

جزاك الله خيراً