تكرار نفس الصورة فى صفحات التقرير

[طير البحر]

الاخوة الافاضل

اعتمادا على دروسكم قمت بتطوير قاعدة بيانات مؤسستنا الخيرية

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

اعتمادا على مثال الاخ ابوجودي فى هذا الموضوع

وقد نجح الامر فى النموذج والتقرير

وفى التقرير تظهر الصور فى الصفحات مطابقة لارقام السجلات بشكل جيد

  pdf الا انه عند طباعة التقرير او تصديره الى ملف 

اجد ان صورة اخر سجل هي المكررة فى كل صفحات التقرير

ارجوكم الحل

وقد وضعت هذا الكود 

عند الصفحة وفى الحالي للتقرير

On Error GoTo err_Report_Current

If Dir(CurrentProject.Path & "\images_waad\case_Photo\" & [fileno] & ".jpg") <> "" Then
Image.Picture = CurrentProject.Path & "\images_waad\case_Photo\" & [fileno] & ".jpg"
Else
Image.Picture = CurrentProject.Path & "\images_waad\case_Photo\" & "pic_emp.png"
End If

err_Report_Current:

    If Err.Number = 2220 Then
        'image not found
		Image.Picture = CurrentProject.Path & "\images_waad\case_Photo\" & "pic_emp.png"
        Resume Next
    End If

اتمنى مساعدتكم فقد بحثت جيدا ولم اجد حل

 

[د.كاف يار]

ارفق مثال لكي يتم التعديل عليه

او اتبع الطريقة التالية

- يجب اضافة عمود اسم و صيغة الصورة في الجدول مثلا :اسم العمود (ImageUral) و القيمة اسم الصورة (Image1.jpg) 

- في عنصر الصورة في التقرير ضع التالي

= [CurrentProject].[Path] & "\images\" & [ImageUral]