Predmet:Re: Relink sa više kompjutera
Ovo sada radi, ali još nisam zadovoljan jer ne mogu uvijek birati putanju, a to mi treba.
Zato sam pokušao nešto napraviti sam pa sam napravio tablicu 'tblPutanja' sa poljema 'Putanja' u koje sam upisao putanje do baza koje me zanimaju.
Npr:
D:\Radno\Prodaja_2011_be.mdb
D:\Radno\Prodaja_2012_be.mdb
D:\Radno\Prodaja_2013_be.mdb
D:\Radno\Prodaja_2014_be.mdb
\\Server\RadneBaze\Prodaja_2011_be.mdb
\\Server\RadneBaze\Prodaja_2012_be.mdb
\\Server\RadneBaze\Prodaja_2013_be.mdb
\\Server\RadneBaze\Prodaja_2014_be.mdb
Zatim sam napisao kod:
PreuzmiIzvorni kôd (vbnet):Function Relink(Putanja As String)
Dim db As DAO.Database
Dim SQL As String
Dim Rs As Recordset
Dim ImeTablice As String
Set db = CurrentDb
SQL = "SELECT Name FROM MSysObjects WHERE Database<>Null"
Set Rs = db.OpenRecordset(SQL)
DoCmd.Hourglass True
Do While Not Rs.EOF
ImeTablice = Rs!Name
db.TableDefs(ImeTablice).Connect = ";DATABASE=" & Putanja
db.TableDefs(ImeTablice).RefreshLink
Rs.MoveNext
Loop
Rs.Close
DoCmd.Hourglass False
DoCmd.OpenQuery "Q_MsysObjects"
End Function
Pozivam ga iz forme na kojem je txtPutanja sa
Call Relink(txtPutanja)
To radi ali jako sporo, treba 3 - 4 minute da se relinkuje oko 40 tablica
Pozdrav