مطلوب رابط أو امتداد أو مسار صورة في حقل مرفقات في الجدول

[ابوخليل]

السلام عليكم

قمت بحفظ ايقونة في حقل مرفقات (Attachment) في جدول من اجل استخدامها في اماكن متعددة في البرنامج

ذهبت الى هذا النهج من اجل تبقى الايقونة غير ظاهرة .. بحيث لا يمكن حذفها او التعديل عليها

واستخدمت هذا الكود لكنه لم يعمل

 Function RelinkIsIco() As String
    Dim rs As DAO.Recordset
    Dim ImagePath As String
     Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblEnDc")
           ImagePath = rs!progIcon.Value
          RelinkIsIco = ImagePath
      rs.Close
    Set rs = Nothing
End Function


Private Sub cmdShar_Click()
Me.img1.Picture = RelinkIsIco()
End Sub

آمل التصحيح

ادناه مثال للتجربة

Database1.rar

[Foksh]

29 دقائق مضت, ابوخليل said:

السلام عليكم

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

بالنظر الى الدالة ولهذا السطر تحديداً:-

ImagePath = rs!progIcon.Value

سيتم التعامل مع المسار على انه نص وليس كحقل مرفقات .

 

لم أطّلع على الملف ، أتابع من الجوال حالياً.

[ابوخليل]

صحيح 100%

يجب التعامل كـــ  Fields("FileData")

ولكني نسيتها