ник: kot_k_k
если не прав поправь
тебе нужно программно перелинковать таблицы?
Dim dbs As DAO.Database
Dim tbl As DAO.TableDef
Dim FName As String
Set dbs = CurrentDb
For Each tbl In dbs.TableDefs
If tbl.Connect <> "" Then
tbl.Connect = FName
tbl.RefreshLink
end if
Next tbl
|
как то так