Attribute VB_Name = "TableTools"
Option Compare Database

' ********************************************************************************************
' Dies Modul dient dazu, verknüpfte Tabellen in lokale Tabellen umzuwandeln.
' Der Sourcecode darf frei verwendet werden, es besteht keine Haftung für die Funktion!
'
' Autor:    Werner Mager
' Webseite: blog.sternico.de
'
' ********************************************************************************************

Function makeTablesLocal()
 
  DoCmd.SetWarnings False
  Dim locals As New Collection
 
  ' Verlinkte Tabellen suchen
  Dim td As TableDef
  For Each td In CurrentDb.TableDefs
    If Not td.Connect = "" Then
      If InStr(td.Name, "~") = 0 Then
        locals.Add td.Name
      End If
    End If
  Next
 
  ' Tabellen umwandeln
  For Each Table In locals
    Debug.Print "Kopiere " & Table & "..."
    DoCmd.RunSQL ("SELECT [" & Table & "].* INTO [local_" & Table & "] FROM [" & Table & "];")
    DoCmd.DeleteObject acTable, Table
    DoCmd.Rename Table, acTable, "local_" & Table
  Next
End Function