Schnell mal alle verknüpfte Tabellen umstellen. Ganz einfach mit dem Modul...

Der Aufruf erfolgt über

{code lang:vb title:"Ausführung" lines:false hidden:true}Function fnc_TBLaufUNC()
'UNC und normale Pfade gehen hier...
fnc_tblVerknüpfungenErstellen "\\SERVER\Daten\Backend.accdb"
MsgBox "Fertig!"
End Function{/code}

 

{code lang:vb title:"Backend verknüpfen" lines:true hidden:false}Function fnc_tblVerknüpfungenErstellen(m_str_DBmitPfad As String)

Dim int_i As Integer, int_y As Integer, m_str_tblName As String, _
db As Database, db_Quell As Database

On Error GoTo ERR_Routine

Set db = CurrentDb
Set db_Quell = OpenDatabase(m_str_DBmitPfad)

'Aktuelle Tabellenverknüpfungen löschen
int_i = db.TableDefs.Count
For int_y = 0 To int_i - 1
m_str_tblName = db.TableDefs(int_y).Name
If Not m_str_tblName Like "o_*" And Not m_str_tblName Like "bfw-export*" And Not m_str_tblName Like "ms*" And db.TableDefs(int_y).Updatable = False Then
DoCmd.DeleteObject acTable, m_str_tblName
End If
Next int_y

'Verknüpfungen zu Quell-db erstellen (außer den internen Tabellen)
int_i = db_Quell.TableDefs.Count

For int_y = 0 To int_i - 1
m_str_tblName = db_Quell.TableDefs(int_y).Name
If Not m_str_tblName Like "ms*" Then
DoCmd.TransferDatabase acLink, "Microsoft Access", m_str_DBmitPfad, acTable, m_str_tblName, m_str_tblName
End If
Next int_y

ENDE:
Set db = Nothing
Set db_Quell = Nothing

Exit Function
ERR_Routine:
MsgBox "Fehler: " & Err.Number & vbCrLf & _
"Beschreibung: " & vbCrLf & Err.Description, vbCritical, "Tabellen verknüpfen"
Err.Clear
Resume ENDE
End Function{/code}