رسالة خطأ عند تغيير مسار الصورة

[AboSaad17]

السلام عليكم ورحمة الله 
ابو سعد في برنامجه الرئيسي لا يزال تعرض أمامه رسالة الخطأ 2220 
ما ادري الاستاذ الوزير كيف صنع أين السر لماذا المثال تم فيه حل المشكلة و عندي لم تحل ( جاوب يا استاذي الوزير )
الله يعين .......

[AlwaZeeR]

اخي العزيز ابو سعد

انا فقط عدلت على التقرير

(RptImage)

كالتالي

وضعت الوحدة التالية في التقرير

Function setImagePath()
If IsNull(Me.PicFile) Or Me.PicFile = "" Then
Me.imgPicture.Picture = ""
Else
If Len(Dir(PicFile)) > 1 Then
      Me.imgPicture.Picture = Me.PicFile
   Else
      Me.imgPicture.Picture = ""
   End If
End If
End Function

ثم في حدث التفصيل لنفس التقرير استدعيتها

setImagePath

طبق ووافني بالنتيجة

::

تحياتي

 

[AboSaad17]

السلام عليكم ورحمة الله 
لقد طبقت ونجح التطبيق في عرض صورة النموذج الفردية والحمد لله 
لكن واجهت نفس المشكلة عندما انتقلت للتقارير لعرض صور السجلات كابطاقات واخذت الحل من التقرير الفردي وهنا طلع لي مشكلة أن الصور تتكرر إذا كان أحد السجلات فارغة (( السجلات 1 و 2 و 3 مدرج بها صور السجلات 4 و 5 و 6 لايوجد صورة ) وعند عرض تقرير صور البطاقات 
تتكرر الصور أي ان السجل الفارغ تدخل له صورة من السجلات الاخرى ؟؟؟؟؟؟ !!!!!

اليك المرفق 
واسعدك الله في الدارين 

For_Pic_1Update2.rar

[AlwaZeeR]

استبدل الكود في البطاقات

Function setImagePath()
If IsNull(Me.PicFile) Or Me.PicFile = "" Then
Me.imgPicture.Picture = ""
imgPicture.Visible = False
Else
If Len(Dir(PicFile)) > 1 Then
      Me.imgPicture.Picture = Me.PicFile
imgPicture.Visible = True
   
   Else
      Me.imgPicture.Picture = ""
   End If
End If
End Function

 

[AboSaad17]

الحمد لله الذي بنعمته تتم الصالحات  كل الامور طيبه 
أكرر شكري وتقديري لكم جميعا أساتذتي الكرام ..... نور الله بصائركم  وزادكم من فضله 
اللهم صل وسلم على سيدنا محمد وعلى ازواجه وذريته والحمد لله رب العالمين