Copy image to file

[nikhilkajrekar]

How do i copy images to file which are on form or obutton using vba

i need code please

[ADezii]

@nikhilkajrekar
How are these Images contained within the Form? Are they Embedded or Linked? What Format are these Images in?, etc...

[nikhilkajrekar]

for embaded all types of format

[ADezii]

@nikhilkajrekar
The Binary Data representing the Image has to be extracted from the OLE Object Field and written to a Stream Object. The data is then saved to a Temporary File in a Temporary Folder. I'll post an Attachment tomorrow that should help you.

[nikhilkajrekar]

Please send me file i havent found any attachement

Thanks

[ADezii]

Please send me file i havent found any attachement

Patience please, I said that I would send it tomorrow, but I'll post the code instead so that it will be a better learning experience for you. Simply stated, the following code will extract the contents of an OLE Object Field to a Unique File. The Primary Table contains Inventory Images in an OLE Object Field named [oPicture], as well as a Field containing a File Extension (jpg, bmp, doc, etc.) called [sFileExtension], and a a Primary Key Field [InvID] among others. I've intentionally kept the Comments sparse so as not to confuse the issue. Any questions, feel free to ask.

Dim strSQL As String
Dim rstBLOB As ADODB.Recordset
Dim mstream As ADODB.Stream
Dim strFullPath As String
Const conTEMP_FOLDER As String = "C:\TEMP\"
 
'Return a 'Unique, Single Record via the Primary Key ([InvID])
strSQL = "SELECT tblInventoryPics.* FROM tblInventoryPics"
strSQL = strSQL & " WHERE tblInventoryPics.InvID=" & Me![InvID]
 
'Open an ADO Recordset
Set rstBLOB = New ADODB.Recordset
rstBLOB.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
If rstBLOB.RecordCount = 0 Then Exit Sub
rstBLOB.MoveFirst
 
'Create a Stream Object to contain the Binary Data from the OLE Object Field,
'(adTypeBinary), then Open it
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
 
'Write the contents of the OLE Object Field to the Stream
mstream.Write rstBLOB.Fields("oPicture").Value
 
'Save the Stream to a Unique Filename, represented by a combination of the Date,
'Time, and a File Extension as stored in the Table long with the OLE Object.
mstream.SaveToFile conTEMP_FOLDER & Format(Now(), "mmddyyyy_hhnnss.") & _
                   rstBLOB.Fields("sFileExtension").Value, adSaveCreateOverWrite
 
'Close the BLOB and set to Nothing before it devours you (LOL)!
rstBLOB.Close
Set rstBLOB = Nothing

[NeoPa]

@nikhilkajrekar
Please do not be so impatient!

ADezii stated clearly that he intended to post the attachment "tomorrow". It is neither polite nor clever to complain of its absence before 24 hours have even passed. This we see as impatience and, as unpaid volunteers, do not feel that such impatience is appropriate. Please try to show better manners in future.

Furthermore, before posting any question you are expected to attempt to find and work on a solution. When you find a specific problem with your attempt, that is the time to post here requesting assistance with any difficulties you have or about a particular function of the code that you don't know how to achieve. When posting your problem, details of the problem itself and where it's found are the bare minimum information required. The experts on this site are more than happy to help you with your problems but they cannot do your assignment/program for you.

Administrator.

[nikhilkajrekar]

Thanks above code is working fine
but i have one problem i have some embaded images on my form
how do i get extension of that image file
images my be on button or logo or on image control

[ADezii]

@nikhilkajrekar
To extract the Path and Extension of an Embedded Image in an Image Control named imgEmbedded on a Form:

Dim img As Image
Dim strImageExtension As String
 
Set img = Me![imgEmbedded]
 
strImageExtension = Mid$(img.Picture, InStrRev(img.Picture, ".") + 1)
 
Debug.Print "Image Filename: " & img.Picture
Debug.Print "Image Extension: " & strImageExtension

Sample OUTPUT:

Image Filename: C:\Haz-Mat\Graphics\Inventory\CenturyOVA128.JPG
Image Extension: JPG

[nikhilkajrekar]

Please find the attachment i have added code on form load to copy iamge from button that is on the form but i am not getting image

[ADezii]

@nikhilkajrekar
Sorry, not running Access 2007.

[nikhilkajrekar]

working fine for image control also for the image on button if image is browsed
i used image which provided by access is it there any solution please

[NeoPa]

I hope ADezii understands your last post, and why you have not posted a copy of your database in an earlier version, because none of it makes any sense to me.