Hi Trevor,

That's depend on the import/export specification setup in the database

If you want to use in your database, please add field FNAME type TEXT in NotepadTable and you can use this code

Public Sub pfImport()
On Error GoTo Err_F

Dim db As DAO.Database

Dim strPathFile As String, strFile As String, strPath As String, strSpec As String
Dim strTable As String, ynFieldName As Boolean

ynFieldName = False
strPath = "C:\TextFiles\" 'This is where the text files are stored
strTable = "NotepadTable" 'This is my access table
strFile = Dir(strPath & "*.txt")

Set db = CurrentDb

Do While Len(strFile) > 0

strPathFile = strPath & strFile
DoCmd.TransferText acImportDelim, strSpec, strTable, strPathFile, ynFieldName
db.Execute "UPDATE " & strTable & " SET FNAME='" & strFile & "' WHERE FNAME IS NULL"

strFile = Dir()
Loop

MsgBox "Process Completed"

Exit_F:
Exit Sub

Err_F:
MsgBox Err.Number & " " & Err.Description
Resume Exit_F

End Sub

Hope this helps

Please let me know if you have problem or please click ACCEPT so I am paid for my time
Positive Feedback and Bonus are greatly appreciated

Please keep me posted

Thank you