ник: kot_k_k
Dim dbs As dao.Database
Dim tbl As dao.TableDef
Set dbs = CurrentDb
For Each tbl In dbs.TableDefs
If tbl.Connect <> "" Then
tbl.Connect = ";DATABASE=\\Ad-dns-01\sklad\Baza.mdb"
tbl.RefreshLink
End If
Next tbl
|
вот и вся перелинковка
и линкует так же само и таблы dbf, файлы екселя и проч прилинкованніе вещи