Need to convert from embedded documents to linked documents

Question

I made a rookie mistake by embedding documents into a table instead of linking them. . . luckily, the documents are still in the same location that they were embedded from . . .does anyone have any VBA code that will run through the table and either build another table or add a field in the same table with the filename link so I can delete the embedded documents and revert to a link?

Answer 1

Okay, I just did a quick test by adding an Attachment field to a table and then running this code. It printed all the filenames I added to the table.

Public Function ListAttachments() As Boolean
'thedbguy@gmail.com
'9/27/2021

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset2

Set db = CurrentDb()
Set rs = db.OpenRecordset("Table1")

With rs
    Do While Not .EOF
        Set rs2 = !docs.Value
        Do While Not rs2.EOF
            Debug.Print rs2.FileName
            rs2.MoveNext
        Loop
        rs2.Close
        .MoveNext
    Loop
    .Close
End With

Set rs2 = Nothing
Set rs = Nothing
Set db = Nothing

End Function

Hope that helps...

Answer 2

That should work . . . thanks so much . . .

Answer 3

You're welcome. Let us know how it goes. Good luck!