التقرير يعمل من ان الصورة تم ازالتها من مكانها

تفضل اخي الكريم

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

ولكن الحل هو وضع الصور في مجلد منفصل ومن ثم استدعاؤها من خلال الكود البرمجي

لذا سنلاحظ التقرير بعد عملية التعديل عليه بالكود البرمجي انه اذا كان هناك الصورة المطلوبه في المجلد  IMG  فسيقوم التقرير بإظهارها بهذه الطريقة

واذا قمنا بإزالة الصورة المطلوبة سواء وضعناها في اي مكان غير موضعها الأساسي المجلد IMG فإن التقرير سوف يقوم بعرض صفحة بيضاء لا وجود للصوره به

za-Sameh-UP.rar

بالتوفيق

السلام عليكم
جزاك الله خيرا اختنا الفاضلة و جعله الله في ميزان حسناتك
حاولت التجربة علي فولدر آخر سيكون هو مخزن الصور
C:\images\ampilag
او
C:\images\FREEZE_DRYER
و هكذا
و حاولت التجربة علي الحدث ON OPEN

لكن الصورة لا تظهر

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

Private Sub Report_Open(Cancel As Integer)
Dim ImgPath
ImgPath = Application.CurrentProject.Path & "C:\images\happa_machine.bmp"
Call DisplayImage(PIC, ImgPath)
End Sub

اخي الفاضل

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

ImgPath = Application.CurrentProject.Path & "\IMG\happa_machine.bmp"

C:\images\happa_machine.bmp

Private Sub Report_Open(Cancel As Integer)
Dim ImgPath
ImgPath = "C:\images\happa_machine.bmp"
Call DisplayImage(PIC, ImgPath)
End Sub

السلام عليكم

جزاكم الله خير ا اختي الفاضلة

و  جعله الله في ميزان حسناتك

و زادك الله من علمه

و جعلك مثلا يقتدي به في الخير