Добавить поле filepath для импорта нескольких файлов Excel в Access

Question

У меня есть следующий модуль в Access:

On Error Resume Next
 Dim strDir As String
 Dim strFile As String
 Dim I As Long
 I = 0
     strDir = "C:\excelTest\"

 strFile = Dir(strDir & "*.xlsx")
 While strFile <> ""
     I = I + 1
     strFile = strDir & strFile
     Debug.Print "importing " & strFile
     DoCmd.TransferSpreadsheet acImport, , "mainTable", strFile, False 'has columnheaders
     strFile = Dir()
 Wend
 MsgBox "Load Finished"
 importExcelSheets = I
End Function

Это импортирует данные из файлов xlsx в каталоге (C: \ excelTest). Все это прекрасно работает, но как я могу добавить дополнительное поле, в котором хранятся каталог и файл?

ie. Если во время импорта у меня есть файл test.xlsx, создается поле и путь C: \ excelTest \ test.xlsx.

Answer 1

После импорта записей запустите действие SQL ОБНОВЛЕНИЕ с критериями, которые отличают эти новые записи от ранее существующих, возможно, значение даты. Что-то вроде:

CurrentDb.Execute "UPDATE tablename SET fieldname = '" & strFile & "' WHERE datefield = #" & <some date input here> & "#"