عرض الصور في التقرير

[jjafferr]

السلام عليكم 🙂

 

عملت على مشروع لمؤسسة خيرية فيه العديد من المستخدمين ، والعمل هو عبارة عن طباعة نحو 1000 كوبون خلال ساعة واحدة لوجبة غذاء مجانية ، وحوالي 600 كوبون خلال ساعة اخرى ، والكوبون يحتوي على شعار المؤسسة، وشعار آخر يتغير شبه كل يوم.

 

الطرق المتبعة لعرض الصور في التقرير هي:

1. قراءة الصور من مجلد المشاركة، ولكن قراءتها لكل كوبون، يجعل الشبكة مزدحمة بمرور الصور فيه، مما يعمل بطئ في الشبكة،
2. نسخ الصور من مجلد المشاركة الى مجلد محلي على كمبيوتر المستخدم عند تشغيل البرنامج، ومن ثم قراءة الصور من المجلد المحلي عند طباعة كل كوبون،
3. اما الطريقة الاسرع من الطريقتين اعلاه هي:
   1. عرض الصور من مجلد المشاركة عند تشغيل البرنامج، في النموذج الرئيسي للبرنامج في حقل الصور،
   2. عرض الصور في التقرير، بقراءة كل صورة من النموذج الرئيسي، هكذا لصورة واحدة:

في التقرير، على حدث "عند التنسيق" في قسم 
Details  التفصيل

نضع هذا الكود
Forms!frm_Main!myPic  هو اسم حقل الصورة في النموذج الرئيسي
pic هو اسم حقل الصورة في التقرير
  
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    Me.pic.PictureData = Forms!frm_Main!Mypic.PictureData
End Sub

 

جعفر

[Eng.Qassim]

عودا حميدا استاذ جعفر @jjafferr

رمضان مبارك وكل عام وانت بخير 

[أبوبسمله]

عودا حميدا اخى واستاذى جعفر 💐

 

[kkhalifa1960]

عودا حميدا استاذ جعفر @jjafferr

رمضان مبارك وكل عام وانت بخير