(تمت الاجابة) لماذا تتكرر الصورة في التقرير

[حامل المسك]

السلام عليكم ورحمة الله وبركاته

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

رعاكم الله

[Bluemind]

ارفق مثالك بارك الله فيك

[حامل المسك]

أعتذر فلقد ظننت أني أرفقت المثال

12.rar

[ابوخليل]

السلام عليكم

السبب في ظهور الصور رغم اختلاف الرقم المعرف هو هذا السطر الموجود في الامر البرمجي

On Error Resume Next

ويعني تجاوز الخطأ لما بعده

حيث لو ازلت هذا السطر لظهر لك خطأ بعدم وجود صورة تحمل الرقم .

يمكن التحايل على هذه المسألة بوضع صورة فارغة تحمل رقما معينا ويتم تحويل الرقم الذي لا يملك صورة اليها .

وهو ما تم عمله في المثال المعدل .

12up.rar

[ksmn64]

أخي الكريم

السلام عليكم ورحمة الله وبركاته

يمكن ان تعمل كما قال الاخ ابو خليل في مشاركته ، أو أن يتم اخفاء الصورة بدل وضع صورة وهمية كما في المرفق.

بالتوفيق،،،

12.rar

[ابوخليل]

اهلا بك اخي العزيز ksmn64

افتقدناك ، فلا تطل الغيبة عنا

جميل ما قدمت ، ولا شك اخفاء الرابط افضل من الانتقال الى رابط آخر

ولكنها ليست وهمية بل حقيقية ، فأنا مثلا استخدم الصورة أدناه لمن ليس لديه صورة .

[حامل المسك]

أخي أبو خليل & ksmn64

جزاكم الله خير الجزاء كفيتم ووفيتم وفقكم الله

ولكم مني الدعاء ...

[حامل المسك]

لازال هناك مشكلة حيث إن البرنامج يسحب الصورة المتتالية ثم إذا كان الطالب مثلا رقم 4 ليس لديه صورة فإنه يستبعد كل الصور بعد ذلك

مجلد جديد.rar

[عبـد الله]

انت استخدمت المثال حسب تعديل الاخ ksmn64 والكود ناقص والصحيح كذا:

Private Sub ÊÝÕíá_Print(Cancel As Integer, PrintCount As Integer)

On Error GoTo ErrHandler


   Me.ImagePreview.Picture = CurrentProject.Path & "\photos\" & Me.FilePreview & ".jpg"


ErrHandler:

    If Err.Number = 2220 Then


	    Me.ImagePreview.Visible = False

  Else

  Me.ImagePreview.Visible = True



    End If



End Sub

علما اني احبذ طريقة ابو خليل الاولى

[حامل المسك]

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

((من جهلنا نخطئ ومن خطئنا نتعلم))

وجزاكم الله خير الجزاء