Embed OLE-File when given a path to it

[spitzmuller]

Hi there

I would like to embed files into an access-db (links are fine but the original files are likely to be moved quite often...)

How can I, given the path to a file, embed it in an access table using VBA?

I searched the forums quite a while but didn't find a decent answer... so if anyone could point me in the right direction.

Thanks and Greets Simon

 

[Tigerlili3]

see thread702-1137528

 

[spitzmuller]

Thanks, will try. But why does someting like that

Private Sub AddDocument_Click()
    Dim path As String
    Dim rs As New Recordset
    '1) let user pick a file
    path = PickFile
    If path = "" Then Exit Sub
    '2) save the file into database and show edit window
    rs.Open "documents", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    rs.AddNew
    rs("projectID") = Me.ProjectID
    rs("document").CreateEmbed "path"
    rs.Update
End Sub

not work? The document-field is of type OLE. Can something like this be done in VBA?