Обновления связанных таблиц при перемещении каталогов

Question

У меня есть 3 Доступ к базам данных связаны между собой и при перемещении их с одного компьютера на другой, я должен обновить их ...

Я пытался с ниже кодом, который, кажется, работает отлично до части обновления ... когда я получаю «не могу найти устанавливаемый ISAM» ... любые идеи, как это решить?

Private Sub RelinkTables() 
Dim oldConnection As String 
Dim newConnection As String 

Dim currentPath As String 
currentPath = CurrentProject.Path 

Dim tblDef As TableDef 

For Each tblDef In CurrentDb.TableDefs 
oldConnection = tblDef.Connect 
If Right(oldConnection, 7) = "l.accdb" Then 
    newConnection = currentPath & "\PL.accdb" 
Else 
    If Right(oldConnection, 7) = "d.accdb" Then 
     newConnection = currentPath & "\MasterDB - consolidated.accdb" 
    Else 
     newConnection = currentPath & "\analysis.accdb" 
End If 
End If 

tblDef.Connect = newConnection 
tblDef.RefreshLink 

Next 

End Sub 

Answer 1

Вот .Connect свойства для связанной таблицы, источник которого находится в другой базе данных Access.

? CurrentDb.TableDefs("tblUser").Connect 
;DATABASE=C:\share\Access\loginexample.mdb 

Ваш код не включает "; DATABASE =" часть при создании этих newConnection строк. Вы можете добавить его в свою строку currentPath, а затем она будет включена в ваши строки newConnection.

currentPath = ";DATABASE=" & CurrentProject.Path