[AccessD] set the DefaultPicture of an unbound image control to an attachment in a recordset field?

Hi William,

When you say an attachment, do you mean a .bmp file where the full path to
that file is listed in a field in your table?

If so, that's just 
    
    imgControl.Picture = rst!FileFullPath

HTH,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Benson
Sent: Friday, May 31, 2013 12:34 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] set the DefaultPicture of an unbound image control to
an attachment in a recordset field?

I am just trying to work with images and learn how to read an image from an
attachment.

Thanks
On May 31, 2013 1:14 PM, "Charlotte Foust" <charlotte.foust at gmail.com>
wrote:

> I'm a little confused as to why you would have to "look up" an image 
> if you're going to use it on every form.  Why not just build a subform 
> with that image embedded and put it on every form?  Sometimes using 
> code is the hard way.  I could see using the code to change the text 
> perhaps, but not the image.  Way too much effort.
>
> Charlotte
>
> On Thu, May 30, 2013 at 6:58 PM, William Benson (VBACreations.Com) < 
> vbacreations at gmail.com> wrote:
>
> > I am wanting to have the same Header fields and image appear on 
> > every
> form
> > in my database. The query which populates these items has SQL:
> >
> >
> > SQL = ""
> > SQL = SQL & " SELECT "
> > SQL = SQL & " First([Build Date]) AS AppBuildDate,"
> > SQL = SQL & " First(ApplicationImage.FileData) As AppImage"
> > SQL = SQL & " FROM 9997_DevelopmentVersion  as Tbl"
> > SQL = SQL & " WHERE "
> > SQL = SQL & " [Build Date]=(Select Max([Build Date]) from 
> > 9997_DevelopmentVersion);"
> >
> >
> >
> >
> > I have also tried substituting ApplicationImage for 
> > ApplicationImage.FileData
> >
> > So far I have been unable to set an image control's defaultpicture
> property
> > to a RECORDSET FIELD from a recordset created with that SQL statement.
> >
> > Can someone help with the syntax to set the DefaultPicture of an 
> > unbound image control to an attachment identified by a field in a 
> > recordset described above?
> >
> > I have been having to resort to saving the attachment to disk, and 
> > assigning it to the defaultpicture property, then killing the file:
> >
> > Const SOME_PATH = "c:\username\temp\x.ico"
> >
> > Set d = CurrentDb
> >
> > SQL = ""
> > SQL = SQL & " SELECT "
> > SQL = SQL & " First([Build Date]) AS AppBuildDate,"
> > SQL = SQL & " First(ApplicationImage) As AppImage"
> > SQL = SQL & " FROM 9997_DevelopmentVersion  as Tbl"
> > SQL = SQL & " WHERE "
> > SQL = SQL & " [Build Date]=(Select Max([Build Date]) from 
> > 9997_DevelopmentVersion);"
> >
> > Set r = d.OpenRecordset(SQL)
> >
> > Set rsPic = r.Fields("AppImage").Value If Not rsPic.EOF Then
> >     On Error Resume Next
> >     Kill SOME_PATH
> >     On Error GoTo 0
> >     rsPic.Fields("FileData").SaveToFile SOME_PATH End If
> >
> > imgApplicationIcon.DefaultPicture = SOME_PATH
> >
> > On Error Resume Next
> > Kill SOME_PATH
> > On Error GoTo 0
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com