Kopiering af database (VBA)

Har ikke lige en Access ved hånden; men prøv noget i stil med:
1) Tilføj et modul
2) Tools | References: tilføj MS scripting engine
3) Lav en sub og kopier filen vha FileSystemObject
4) Åbn de nye mdb'er med OpenDB og indsæt

Den foerste del med at distrbuere frontends kan goeres vha en normal Filecopy-kommando.Antager at du har stierne liggende i en streng i strPaths(1-4)


set db1 = UNCSti\Mastercopy.mdb

For i = 1 to 4
Filecopy db1, strPaths(i) & "Databasecopy.mdb"
next i

Jeg har selv arbejdet med scripts der forbinder front-ends med en backend. Jeg
sletter alle tidligere linkede tabeller, og genopretter dem istedet vha.
Dim dbs as database, db2 as database
set dbs = currentdb
set db2 = opendatabase(UNCsti\Backend.mdb)

For i = 1 To antaltabeller
    dbs.Tabeldefs.Delete strTblNames(i)
    DoCmd.TransferDatabase acLink, "Microsoft Access", db2.Name, acTable, strTblNames(i), strTblNames(i)
Next i
(Hvor tabelnaqvne ligger is strTblNames())
Der er dog et par ting du skal vaere forsigtig med.
1)Du kan teoretisk set bruge
For each tabledef in db1
docmd.transfer......
Men der er en del skjulte tabeller i Access hvor du kan faa problemer med rettigheder og om de er i brug mens du proever at overfoere.
2) Afhaengigt af hvordan dit netvaerk er sat op kan mapping at netvaerksdrev variere, hvorfor det er en god ide altid at bruge UNC stier.

Haaber det hjaelper :-)

fejl i den foerste kodelinje:
set db1 = UNCSti\Mastercopy.mdb


skal enten vaere
set db1 = currentdb

eller
set db1 = opendatabase("UNCSti\Mastercopy.mdb")

Jeg får en fejl med denne kode (Type mismatch)

Set db1 = CurrentDb
Dim strpaths(1 To 4) As String
strpaths(1) = "C:\db\1"
strpaths(2) = "C:\db\2"
strpaths(3) = "C:\db\3"
strpaths(4) = "C:\db\4"

For i = 1 To 4
  FileCopy db1, strpaths(i) & "\Databasecopy.mdb"
Next i

preov at laeve det om til
Set db1 = CurrentDb
Dim strpaths(1 To 4) As String
strpaths(1) = "C:\db\1\Databasecopy.mdb"
strpaths(2) = "C:\db\2\Databasecopy.mdb"
strpaths(3) = "C:\db\3\Databasecopy.mdb"
strpaths(4) = "C:\db\4\Databasecopy.mdb"

For i = 1 To 4
  FileCopy db1, strpaths(i)
Next i

FileCopy forventer en streng som parameter, og får et objekt af typen Database.

Samme resultat

Kan man ikke som i Java få konverteret en CurrentDB(type: Database) til en streng?

Prøv med "Application.CodeProject.FullName" istedet for db1. Det virker under Access2k. Mener noget tilsvarende kunne findes som property på Application-objektet i Access97

/Claus

Aaarh hvis du bare skriver
db1.name i file-copy kommandoen skulle det virke!!