تعديل على أحد الأكواد

[figo82eg]

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

ما اريده هو عند الطباعة وفى حالة عدم وجود صورة يتم الطباعة بصورة عاديه بدون صوره.

Me!.Picture = DLookup("figura", "BASIC_DATE")
 

[أبوبسمله]

26 دقائق مضت, figo82eg said:

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

ما اريده هو عند الطباعة وفى حالة عدم وجود صورة يتم الطباعة بصورة عاديه بدون صوره.

Me!.Picture = DLookup("figura", "BASIC_DATE")
 

جرب ووافنا بالنتيجه

Me.Picture = nz(DLookup("figura", "BASIC_DATE"),"")

[figo82eg]

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

ومرفق مثال لما اريد 

New Microsoft Office Access Application.rar

[أبوبسمله]

19 دقائق مضت, figo82eg said:

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

ومرفق مثال لما اريد 

New Microsoft Office Access Application.rar 156.99 kB · 0 تنزيلات

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

اتفضل اخى استخدم الكود التالى

Me![img].Picture = Nz(DLookup("figura", "BASIC_DATE", "name='" & [name] & "'"), "")

بالتوفيق ان شاء الله

New_Microsoft_Office_Access_Application.mdb

[figo82eg]

بارك الله فيك أستاذى العزيز وهو المطلوب

[أبوبسمله]

7 ساعات مضت, figo82eg said:

بارك الله فيك أستاذى العزيز وهو المطلوب

وفيك بارك الله اخى

بالتوفيق ان شاء الله