Доброго дня.
Начну из далека. Есть проект accecc, которой я переделываю из *.adp под современный *.accdb. Формы, код, все уже перенес и адаптировал, таблицы с sql привязал через диспетчер связанных таблиц. Однако, есть такая практика, доработки программы отлаживать на тестовой базе sql, и для смены сервера приходится перелинковывать около сотни таблиц через диспетчер связанных таблиц. Из этого следует три проблемы:
1. Надо сделать минимум 100 кликов мышкой в процессе перелинковки (не проблема, но парит)
2. Вторая, вытекающая из первой, среди таблиц встречаются представления, которым требуется принудительно указать первичный ключ. И есть момент когда можно указать "не верный" ключ, просто по запарке (я даже представления не представлю на что это может повлиять)
3. В процессе перелинковки access сбрасывает значения первичных ключей для представлений. Тут я поясню для чего первичный. Львиная доля форм в качестве источника записей используют эти представления и сам access выдает Run-time error '3326': Объект Recordset не является обновляемым, попросту не получается править значения. А вот если назначить первичный ключ, то правки проходят.

Перелинковать можно в ручном режиме и кодом vba поправив таблицу MSysObjects, по при этом первичные ключи "слетают".
Перелинковываю таким образом

+

Public Sub RefreshTablesLinks2 Dim tdf, cDB, strODBC Dim i As Integer Set cDB = CurrentDb Set tdf = cDB.TableDefs strODBC = "DSN=DSNname;Description=DSNname;Trusted_Connection=Yes;APP=Microsoft Office;DATABASE=testdb;" On Error GoTo Err_handler For i = 0 To tdf.Count - 1 If tdf(i).Connect <> "" Then tdf(i).Connect = strODBC tdf(i).RefreshLink End If Next Err_handler: 'MsgBox Err.Description Resume Next End Sub

Собственно вопрос, есть ли способ командовать процессом линковки через vba, как диспетчер связанных таблиц, что бы можно было гибко управлять процессом и вообще достигнуть полной автоматизации?

https://www.sql.ru/forum/1307980/svyaz-tablic-mssql-s-bazoy-access-bez-ispolzovaniya-dispetchera-svyazannyh-tablic