spikepl
Eledittingent Beliped
- Local time
- Today, 10:16
- Joined
- Nov 3, 2010
- Messages
- 6,142
I have an old db with some images embedded but originals long gone. I am using following to extract an image:
I get a file created, unfortunately all graphics packages that I have report it as broken. What to do?
The above method was once used to extract the backgropund picture from a form and there it worked perfectly. Using .PictureData also works fine if I just want to copy the picture from one Image control to another (Me.DestinationControl.PictureData=Me.SourceControl.PictureData)
Code:
Private Sub Command206_Click()
Dim bArray() As Byte
Dim Fullname As String
Dim FileNumber As Integer
DoCmd.OpenReport "rptDocSetup", acViewReport bArray = Reports!rptDocSetup!Image71.PictureData
Fullname = "C:\devel\mypic.PNG"
FileNumber = FreeFile
Open Fullname For Binary As FileNumber
Put FileNumber, , bArray
Close FileNumber
End SubI get a file created, unfortunately all graphics packages that I have report it as broken. What to do?
The above method was once used to extract the backgropund picture from a form and there it worked perfectly. Using .PictureData also works fine if I just want to copy the picture from one Image control to another (Me.DestinationControl.PictureData=Me.SourceControl.PictureData)
Last edited:
