عدم ظهور التقرير إذا لم توجد صورة في المسار

هذا هو تعديل الكود

If Len(Me.ImagePath & "") = 0 Then
Me.ImageFrame.Picture = "C:\nopath.jpg"'صورة تظهر اذا كان مسار الصورة فارغ
Else
If Dir(Me.ImagePath) <> vbNullString Then
Me.ImageFrame.Picture = Me.ImagePath
Else
Me.ImageFrame.Picture = "C:\nopic.jpg" 'صورة تظهر اذا كانت الصورة غير موجودة بالمسار
End If
End If

بارك الله وفي يوسف .. وزادك الله علما ونفع الله بك ..

هذا هو المطلوب .

شكرا لك .