Save As from OLE Object

[Adam Thwaites]

I have an ole object on my form that stores most files, jpg, ppt, xls, doc
etc. I want a button to Save As which would open the standard Save As file
prompt so the object would be saved outside of Access. How would I do this?

This is for a cross network Access E-mail system so I have to use embedded
objects.

Thanks for your help!

 

[Douglas J. Steele]

http://www.mvps.org/access/api/api0001.htm at "The Access Web" shows how to
use the standard Windows Save As dialog.

 

[Adam Thwaites]

This opens a Save As dialog bog, using the code on my form:
Private Sub cmdSaveAs_Click()
Dim strSaveFileName As String
strSaveFileName = ahtCommonFileOpenSave( _
OpenFile:=False, _
Filter:=strFilter, _
Flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY)
MsgBox strSaveFileName
End Sub

But how do I actually make it save the file thats held in the OLE Object?

 

[Douglas J. Steele]

So the OLE object is stored in the table, and you want to save it
externally? See what Stephen Lebans has at
http://www.lebans.com/oletodisk.htm