تعديل على كود لطباعة تقرير

[محمد التميمي]

السلام عليكم :

في الملف المرفق لدية زر امر لطباعة تقرير طبعا انا عامل كود لطباعة التقرير بشرط يكون امتداد الصورة في (Pic1) موجود يعني التقرير يحتوي على صورة الفرد وتتم الطباعة وفي حالة عدم وجود امتداد للصورة في (Pic1) لا يطبع تقرير.

السؤال :

هل يصح تغيير الشرط من (Pic1) الى مربع حوار الصورة (Image) اذا كان (Image) يحتوي على صورة اثناء فتج النموذج تتم الطباعة وذا كان لا يحتوي على صور لا تتم الطباعة

طبعا انا جاولت التعديل بمفهومي البسيط ولم انجح ....

مع فائق الشكر والتقدير

 

Database.rar

[kanory]

1 ساعه مضت, محمد التميمي said:

هل يصح تغيير الشرط من (Pic1) الى مربع حوار الصورة (Image) اذا كان (Image) يحتوي على صورة اثناء فتج النموذج تتم الطباعة وذا كان لا يحتوي على صور لا تتم الطباعة

استخدم هذا <><><><><>
 

If Len(Nz(Me.Image.Picture, "")) = 0 Or Dir(Me.Image.Picture) = "" Then
    Beep
    MsgBox "لا يمكن طباعة هذا التقرير بدون صورة شخصية ((يرجى اضافة صورة شخصية))"
Else
    RName = "Personel"
    FldCriteria = "[Key]=" & Me![Key]
    DoCmd.OpenReport RName, acViewNormal, , FldCriteria
End If

 

[kkhalifa1960]

عدل كما بالشرح  اسم الحقل (PicPath2)   بدلا من (Pic1)  .

                                                                  

[محمد التميمي]

13 ساعات مضت, kanory said:

استخدم هذا <><><><><>
 

If Len(Nz(Me.Image.Picture, "")) = 0 Or Dir(Me.Image.Picture) = "" Then
    Beep
    MsgBox "لا يمكن طباعة هذا التقرير بدون صورة شخصية ((يرجى اضافة صورة شخصية))"
Else
    RName = "Personel"
    FldCriteria = "[Key]=" & Me![Key]
    DoCmd.OpenReport RName, acViewNormal, , FldCriteria
End If

 

بارك الله بك استاذي الكريم شكرا جزيلا على الإجابة... 

13 ساعات مضت, kkhalifa1960 said:

عدل كما بالشرح  اسم الحقل (PicPath2)   بدلا من (Pic1)  .

                                                                  

شكرا جزيلا استاذي الفاضل على التذكرة تم التصحيح...