Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte program Microsoft Office Access , kliknite na tlačidlo " Prázdna databáza " , potom vyberte " Vytvoriť " . Kliknite na kartu " Databáza Nástroje " a vyberte " Visual Basic " . " . Modul " Zvoľte menu " Vložiť " a kliknite na
2
Skopírujte a vložte nasledujúci text do modulu vytvoriť kópiu databázy do nového umiestnenia :
súkromia sub moveDatabaseLocation ( )
Dim dbCurrentLocaiton As String Dim
dbNewLocation As String
dbCurrentLocaiton = " C : \\ Northwind 2007.accdb "
dbNewLocation = " C : \\ NewFolder \\ Northwind 2007.accdb " Spojené
Set fs = CreateObject ( " Scripting.FileSystemObject " )
fs.CopyFile dbCurrentLocaiton , dbNewLocation
End Sub
3
upravte nasledujúce riadky kódu a zadajte cestu k vašej aktuálnej a nové umiestnenie databázy :
dbCurrentLocaiton = " C : \\ Northwind 2007.accdb "
dbNewLocation = " . F5 " " C \\ NewFolder \\ Northwind 2007.accdb "
spustite program stlačením