konverter kædede tabeller til lokale

Skal testes!

Sub importLinkedTables()
    Dim tdf As TableDef
   
    For Each tdf In CurrentDb.TableDefs
        With tdf
            If (Len(.Connect) > 0) Then
                DoCmd.DeleteObject acTable, .name
                DoCmd.TransferDatabase acImport, "<find this by making a macro>", Mid(.Connect, 11), acTable, .name, .name
            End If
        End With
    Next
End Sub

De oprindelige links til kædede tabller slettes, så de importere navne kommer til at svare til de oprindelige - og databasen skal jo heller ikke distribueres med links til noget lokalt.
Lav det i en kopi af frontenden. Jeg vil lade det op til dig at teste, om man kan slette tabeler i en tabledef  loop, og om egenskaberne .connect og .name eksisterer når linket til tabellen er slettet - hvis ikke skal der bare buffes.

Hej

tak for hjælpen du har ledt mig på rette vej - håber jeg :)
således ser min kode ud - men jeg mister alle relationer


Function copyDb()
       
    Dim appAccess As Access.Application
    Dim NytNavn As String
   
    'kopier databasen
    NytNavn = "EBF_" & Date & ".mdb"
    With CurrentProject
        Shell "cmd /c copy """ & .FullName & """ """ & Replace(.FullName, .Name, _
        NytNavn), vbHide
    End With
    'åben og kopier tabeller fra backend
    Set appAccess = CreateObject("Access.Application")
    appAccess.OpenCurrentDatabase CurrentProject.path & "\" & NytNavn, False
   
    appAccess.Run "flettabeller"
    appAccess.CloseCurrentDatabase
    Set appAccess = Nothing
   
    'åben exploer
    Shell "Explorer.exe /n,/e," & CurrentProject.path, vbNormalFocus
   
End Function

Function fletTabeller()

    '' MÅ KUN KØRES FRA KOPIEN !!!!!!!!!!!!!!!!!!!!!
   
    Dim db As DAO.Database
    Set db = CurrentDb
   
    Dim backend As String
    Dim tdef As TableDef
    Dim tblNavn As String
   
    backend = CurrentProject.path & "\data\ebf_data.mdb"
 
    For Each tdef In db.TableDefs
        If Left(tdef.Connect, 10) = ";DATABASE=" Then
            tblNavn = tdef.Name
            db.Execute "DROP TABLE " & tblNavn
            DoCmd.TransferDatabase acImport, "Microsoft Access", backend, acTable, tblNavn, tblNavn
        End If
       
    Next
   
End Function

Niels

Hej nih

Det var en smart måde at kopier og remote afvikle. Det har jo så ikke løst det med relationer - man kunne helt undlade at importere i ovenstående - du har jo fint sørget for at præsentere filen i explorer, klar til at blive åbnet. Importwizarden kan klarer det med relationerne. Måske indeholder Backenden alt muligt andet som ikke skal med - men her kunne man jo lave en automatisk slutoprydning, hvis tabellisten i den oprindelige sletning blev gemt. Lidt ufikst - indrømmet.

Hej

har du en ide til hvordan jeg kører Importwizarden i VBA

Niels

Nej jeg aner ikke om wizarder har noget 'api'.

tror jeg ville en anden vej - relation er objekter ligesom alt andet - faldt over dette hit på 'copy relations':
http://www.vbforums.com/showthread.php?p=720432