ник: kot_k_k
osmor дал ссылку - там про это
в кратце
у таблицы есть свойство Connect
Set dbs = CurrentDb - ссылка на нашу базу
For Each tbl In dbs.TableDefs - пробегаемся по всем таблицам нашей базы
If tbl.Connect <> "" Then - если Connect не пустой то его меняем на нужный нам путь
tbl.Connect = FName - вот тут FName = полученому тобой в запросе Database
tbl.RefreshLink - это обновление свойств таблицы
end if
Next tbl
|
можно вот так получить путь к файлу (серверная часть) на который ссылается твоя клиентская часть.
' получение пути к файлу
With Application.FileDialog(1)
.Title = "Поиск Файла"
.ButtonName = "Добавить"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "*", "*.*", 1
result = .Show
FName = Trim(.SelectedItems.Item(1))
|
тебе нужно дописать
коннект_для_таблиц =";DATABASE=" & FName
и получаем строку для свойства Connect таблиці