Embedding images into a table

[anthony]

I want to embed some BMP files into an OLE field (called BMP) in an
existing table using code. I've created the code that grabs the
filename from the image folder, finds the corresponding record in the
table and opens that record for editing (RST.Edit). However, I'm
having difficulty putting the image into the OLE field. If I borrow
from the code that appears in http://support.microsoft.com/default.aspx/kb/158941,
then at RST!BMP.Class = "Paint.Pict ure" I get the error "Method or
data member not found"; ditto with OLETypeAllowed, SorceDoc and
Action. If I just try RST!BMP = strFileName, followed by RST.Update,
then the field displays "Long Binary Data" but whatever is in it is
not an image. Clearly, I need to prepare the OLE field somehow but it
seems to be different doing it directly to the table than via a form
as per Microsoft's example.

Could someone please help me with the syntax? Many thanks

[Stephen Lebans]

Post the code you are using.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"anthony" <an************ *@gmail.comwrot e in message
news:dd******** *************** ***********@v4g 2000hsf.googleg roups.com...

>I want to embed some BMP files into an OLE field (called BMP) in an
existing table using code. I've created the code that grabs the
filename from the image folder, finds the corresponding record in the
table and opens that record for editing (RST.Edit). However, I'm
having difficulty putting the image into the OLE field. If I borrow
from the code that appears in
http://support.microsoft.com/default.aspx/kb/158941,
then at RST!BMP.Class = "Paint.Pict ure" I get the error "Method or
data member not found"; ditto with OLETypeAllowed, SorceDoc and
Action. If I just try RST!BMP = strFileName, followed by RST.Update,
then the field displays "Long Binary Data" but whatever is in it is
not an image. Clearly, I need to prepare the OLE field somehow but it
seems to be different doing it directly to the table than via a form
as per Microsoft's example.

Could someone please help me with the syntax? Many thanks

[anthony]

Apologies for the delay - here is the code

Dim strBMPDir As String
Dim strFileName As String
Dim DB As Database
Dim RST As Recordset
Dim strSQL As String

On Error GoTo errH
Set DB = CurrentDb()

strBMPDir = "i:\photos\ bmp"
strFileName = Dir(strBMPDir & "\" & "*.bmp", vbNormal)
strFileName = Left(strFileNam e, 14)
Do While Len(strFileName ) = 14
strSQL = "SELECT tblPhoto.PhotoI D, tblPhoto.Image, tblPhoto.BMP"
strSQL = strSQL & " FROM tblPhoto"
strSQL = strSQL & " WHERE (((tblPhoto.Ima ge)=" & "'" & strFileName &
"'" & "));"
Set RST = DB.OpenRecordse t(strSQL)
With RST
..Edit
!BMP.Class = "Paint.Pict ure" 'This is where it fails with "Method or
data member not found"; ditto for the next three lines
!BMP.OLETypeAll owed = acOLEEmbedded
!BMP.SourceDoc = strBMPDir & "\" & strFileName & ".bmp"
!BMP.Action = acOLECreateEmbe d
..update
strFileName = Dir
strFileName = Left(strFileNam e, 14)
Loop

X:
Exit Sub

errH:

MsgBox Err.Description
Resume X

[Keith Wilby]

"anthony" <an************ *@gmail.comwrot e in message
news:65******** *************** ***********@f3g 2000hsg.googleg roups.com...

Apologies for the delay - here is the code

With RST
.Edit
!BMP.Class = "Paint.Pict ure" 'This is where it fails with "Method or
data member not found"; ditto for the next three lines
!BMP.OLETypeAll owed = acOLEEmbedded
!BMP.SourceDoc = strBMPDir & "\" & strFileName & ".bmp"
!BMP.Action = acOLECreateEmbe d

I'm ready to be shot down in flames here but AIUI !Fieldname is expecting a
value for that field, I don't think there are any arguments. Does the code
compile? Do you have Option Explicit declared in the module?

Keith.
www.keithwilby.com

[Keith Wilby]

"anthony" <an************ *@gmail.comwrot e in message
news:65******** *************** ***********@f3g 2000hsg.googleg roups.com...

I've just read the code in the link and the names in the square brackets []
are referring to field names that the form is bound to, there's no recordset
(rs) being opened anywhere. Modifying your code to refer to the bound
fields ought to do it. Worth a try :-)

Regards,
Keith.
www.keithwilby.com

[anthony]

The form is unbound. What I am trying to achieve is to embed images
directly into the OLE field in the table via code on a command button
but I'm getting the syntax wrong when attempting to prepare the OLE
field to accept the bitmap

[Keith Wilby]

"anthony" <an************ *@gmail.comwrot e in message
news:e6******** *************** ***********@a39 g2000pre.google groups.com...

The form is unbound. What I am trying to achieve is to embed images
directly into the OLE field in the table via code on a command button
but I'm getting the syntax wrong when attempting to prepare the OLE
field to accept the bitmap

But the example uses a bound form and that's why your code is failing.
Can't you use a bound form and just replicate the example you sited in your
OP?

[anthony]

Can't you use a bound form and just replicate the example you sited in your

OP?

I could and I have and it all works. But I'd still like to know how
that MS code should be adapted so that the code I posted will work. It
must be possible to embed directly into a table without going via a
Bound Object Frame on a form

[Keith Wilby]

"anthony" <an************ *@gmail.comwrot e in message
news:7c******** *************** ***********@o6g 2000hsd.googleg roups.com...

>Can't you use a bound form and just replicate the example you sited in
your
OP?

I could and I have and it all works. But I'd still like to know how
that MS code should be adapted so that the code I posted will work. It
must be possible to embed directly into a table without going via a
Bound Object Frame on a form

Dunno, but this compiles:

rs.Fields("Fiel dName").Propert ies("Class") = "whatever"

Take it at face value, it might point you in the right direction but then
again ...

Keith.

[anthony]

>rs.Fields("Fie ldName").Proper ties("Class") = "whatever"

You are a devious fellow! I'll try it. Many thanks