هل هناك دالة تعمل لجلب الصور من الجدول الى التقرير في الاكسس ؟؟

[gavan]

مرحبا بكم في المرفق

جدول به حقل logo نوعه Attachment . ونموذج لتحميل صورة ل Logo . (وتقرير به مربع Image لاضهار ال Logo في التقرير ,ومصدر التقرير ليس الجدول)

هذا ال image مصدره سويته ب دالة Dlookup

الصورة لا تظهر في التقرير , والمطلوب ان تظهر ؟؟ هل الدالة صحيحة ؟؟ وشكرا

 

220.accdb

[ابوخليل]

حسب علمي .. حقل المرفقات يختلف عن الحقل النصي لأن الوصول الى خصائص الصورة  داخل حقل المرفقات مختلف

بمعنى الصورة التي يحتويها ليس لها خصيصة : picture

فأمامك حل من اثنين :

اما يكون الجدول مصدر للتقرير واما ان يتم اخراج المرفق كصورة خارج قاعدة البيانات  وهنا يمكننا اظهار الصورة في التقرير

وبما انك ذكرت ان مصدر التقرير ليس الجدول فإليك الحل الآخر .

 Sub SaveAttach()
  On Error Resume Next
  Dim rs As dao.Recordset
  Dim strobj As dao.Recordset
  Dim strPic As String
  strPic = CurrentProject.Path & "\pic.JPG"
  Set rs = CurrentDb.OpenRecordset("Table1")
  Set strobj = rs.Fields("logo").Value
  strobj.Fields("FileData").SaveToFile strPic
  Me.Image0.Picture = strPic
 End Sub
Private Sub Report_Load()
Call SaveAttach
End Sub

 

 

220.rar

[gavan]

شكرا اخي الحبيب الغالي وهو المطلوب ,كل التحية الك