View/Load Access attachment from excel userform

[AceandVecky]

Good Day.
Please Help me or advise suggestion or Tips on how to load, View or Download an attachment from a selected record in an MS Access table using excel macro.

I can however modify/Add/Delete data in access using an ADODB Connection but i dont have experience in working with attachment. Thanks in advance.

 

[ranman256]

Normally you just dbl-click the attachment,then click SAVE.

 

[AceandVecky]

@ranman256
yeah thats correct. but what Im trying to achieve is do that using a macro code from Excel. I have an excel userform as a frontend and an access database as the backend.

Thanks

 

[ranman256]

what Kind of attachement? database, photo, spreadsheet?

 

[ranman256]

something like :

Dim rst As ADODB.Recordset
Dim conn As New ADODB.Connection

vTarg = "c:\temp\myFile.jpg"

If Not FileExists(vTarg) Then
'extract photo attachement
sConnStr = "your connection string"
conn.ConnectionString = sConnStr
conn.Open

    '1st rst is the table
sSql = "select * from tInstallDb"
Set rst = conn.Execute(sSql)
'2nd rst is the attachment (rst in a rst)
Set rstChild = rst.Fields(0).Value
rstChild.Fields("FileData").SaveToFile vTarg
End If

Public Function FileExists(ByVal pvFile) As Boolean
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
FileExists = fso.FileExists(pvFile)
Set fso = Nothing
End Function