I specifically instructed you to GoogleGroups search on this issue using my
last name as one of the Keywords. You would have found several threads
including:
From: Stephen Lebans - view profile
Date: Fri, Jun 17 2005 5:25 pm
Email: "Stephen Lebans"
<
[email protected]>
Groups: comp.databases.ms-access,
microsoft.public.access.externaldata
Not yet ratedRating:
show options
Reply | Reply to Author | Forward | Print | Individual Message | Show
original | Report Abuse | Find messages by this author
It depends whether the App inserted the data as an OLE object or simply
as data in some format.
Create a form bound to this table. Add a BOUND Object Frame control
bound to the OLE field in question.
Now open the form in Form view. If you can see the data and interact
with it then you have an OLE object.
Otherwise you just have binary data in an unknow format. Perhaps it is
simply an actual copy of a file, say a JPG image, copied in its
entirety. In this case you would simply save off the field data to a
temp disk file. As long as you know the proper file extension for this
data your issue is solved.
FInally, it could simply be a blob of private data used by the App in an
unknow format. Heres some code to copy the contents of the current
record displayed in a Bound Object Frame control to a disk file. If this
temp file contains Text only then you can view it in Wordpad etc. If it
is a mixture of data types then you will need a HEX editor to view the
data. There are many freeware/shareware HEX editors on the Web.
Just add a CommandButton control to the form you created as per the
above instructions.
Private Sub cmdSave_Click()
On Error GoTo Err_cmdSave_Click
Dim a() As Byte
Dim lTemp As Long
Dim sl As String
lTemp = LenB(Me.olePicture.Value)
ReDim a(0 To lTemp) ' should be -1
' Copy the contents of the OLE field to our byte array
a = Me.olePicture.Value
sl = "OLEfieldTest" & ".dat"
Open sl For Binary Access Write As #1
Put #1, , a
Close #1
Exit_cmdSave_Click:
Exit Sub
Err_cmdSave_Click:
MsgBox Err.Description
Resume Exit_cmdSave_Click
End Sub
--
HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.