Lave kopi af anden db end den åbne

For at få stien til din backend (den db, hvor data ligger) kan du bruge denne funktion (som placeres i et modul):

Public Function GetBackend() As String
    On Error Resume Next
    Dim tdef As TableDef
    Dim db As Database
    Set db = CurrentDb
    Set tdef = db.TableDefs("En eller anden sammenkædet tabel")
    GetBackend = Mid(tdef.Connect, 11)
End Function

Herefter kan du bruge filecopy til at kopiere denne fil til ny destination:

Filecopy Getbackend, "C:\nymappe\DinDb.mdb"

Ovenstående funktion kræver reference til DAO

Jeg har lavet en reference til DAO 3.51 (er 3.6 bedre?) og har kaldt modulet GetBackend. Jeg får bedskeden:

Compile error:
Expected variable og procedure, not module

God mandag morgen !~)

PS. Mit modul:

Option Compare Database

Public Function GetBackend() As String
    On Error Resume Next
    Dim tdef As TableDef
    Dim db As Database
    Set db = CurrentDb
    Set tdef = db.TableDefs("O:\Databaser\Vedligehold\Backend\BackendTabeller.mdb")
    GetBackend = Mid(tdef.Connect, 11)
End Function

Hov, jeg kan jo bare bruge filecopy lige ud af landevejen, men hvad er det så jeg har spurgt om og hvad har du svaret på?

Jeg brugte:
FileCopy "O:\Databaser\Vedligehold\Backend\BackendTabeller.mdb", "o:\databaser\vedligehold\backup\VedligeholdBackup.mdb"

Hvis du kender begge stier, bruger du selvfølgelig bare filecopy lige ud af landevejen :o)

Men jeg troede, at dit problem var, at du ikke altid kendte stien til backenden (hvis f.eks. databasen flyttes, er det jo ikke længere den samme sti). Derfor gav jeg dig en kode, som var dynamisk og som altid fandt den korrekte sti til backenden.

Men hvis du kan nøjes med den simple, så glem alt om min kode :o)


...som forøvrigt skulle se således ud:

Public Function GetBackend() As String
    On Error Resume Next
    Dim tdef As TableDef
    Dim db As Database
    Set db = CurrentDb
    Set tdef = db.TableDefs("Navn på en tabel")
    GetBackend = Mid(tdef.Connect, 11)
End Function

Aahhh... Tak for modulet..  !~)

Selv tak :o)