MS Access Как обновить путь к связанной таблице при сохранении формата

Question

У меня есть около 20 связанных таблиц в источниках Access из файлов .csv, при этом первая строка используется в качестве заголовков таблиц. Однако я не могу сохранять заголовки каждый раз, когда обновляю исходный путь, поэтому мне приходится вручную удалять и повторно связывать их каждый раз, и это было болезненно. Есть идеи, как сохранить формат и свойства таблицы после изменения исходного пути?

Answer 1

Может использовать VBA для изменения ссылок. Пример кода:

Dim td As TableDef
Dim db As DAO.Database
Dim strOld As String
Dim strNew As String
'replace the following strings as needed
strOld = "C:\Users\June\Forums"
strNew = "C:\Users\June"
Set db = CurrentDb
For Each td In db.TableDefs
    If InStr(td.Connect, strOld) > 0 Then
        Debug.Print td.name
        Debug.Print "Old Link: " & td.Connect
        td.Connect = Replace(td.Connect, strOld, strNew)
        td.RefreshLink
        Debug.Print "New Link: " & td.Connect
    End If
Next td
db.TableDefs.Refresh