Кажется, я не могу найти место, где можно изменить подключение к связанным таблицам в Access 2013. Мой в настоящее время указывает на тестовую базу данных, и я хочу изменить это на производственную базу данных.

Все таблицы в менеджере связанных таблиц показывают «DSN = MyDsn; Database = MyDataTest», и я хочу изменить его на «DSN = MyDSN; Database = MyData». И я хотел бы сделать это без удаления и перекомпоновки каждой таблицы. Если мне нужно повторно связать каждую таблицу, тогда я должен вернуться и переименовать каждую ссылку, потому что она всегда предшествует имени таблицы с именем схемы.

1 ответ1

1

Вы можете попробовать следующий код VBA, который я не полностью протестировал.

Public Sub RefreshLinks()
Dim tdf As DAO.TableDef
Dim db As Database
Set db = CurrentDb()
For Each tdf In db.TableDefs
    If VBA.Left$(tdf.Name, 4) <> "MSys" 
        If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then
            tdf.Connect = "DSN=MyDSN;Database=MyData"
            tdf.RefreshLink
        End If
    End If
Next tdf
End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .