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...