Sub instal_tblNeu()
 
Dim def As TableDef
 
For Each def In CurrentDb.TableDefs
    ' Tabelle ist bereits verknüpft
    If def.Name = "tblNeu" Then Exit Sub
Next def
 
For Each def In CurrentDb.TableDefs
    ' Suche irgendeine Tabelle, die bereits im Backend verknüpft ist
    If def.Name = "BackendTabelle" Then Exit For
Next def
 
' Kopiert die Tabelle in die Backend Datanbank
DoCmd.CopyObject Split(def.Connect, "=")(1), "tblNeu", acTable, "neuEntwurf"
 
DoCmd.SetWarnings False
' Macht den Link vom Frontend auf die Tabelle eim Backend
DoCmd.TransferDatabase acLink, "ODBC", def.Connect, acTable, "tblNeu", "tblNeu"
 
' Löscht die Entwurf Tabelle im Frontend.
DoCmd.DeleteObject acTable, "neuEntwurf"
DoCmd.SetWarnings True
 
End Sub