Onde posso alterar a conexão com um banco de dados SQL no Access 2013?

Question

Não consigo encontrar o local que me permite alterar a conexão com tabelas vinculadas no Access 2013. Atualmente, o meu está apontando para um banco de dados de teste e quero alterá-lo para o banco de dados de produção.

Todas as tabelas no gerenciador de tabelas vinculadas mostram "DSN = MyDsn; Database = MyDataTest" e eu quero alterá-lo para "DSN = MyDSN; Database = MyData". E eu gostaria de fazer isso sem remover e religar cada tabela. Se eu tiver que revincular cada tabela, então eu tenho que voltar e renomear cada link, pois sempre prefacia o nome da tabela com o nome do esquema.

    

Answer 1

Você pode tentar o seguinte código VBA, que eu não testei totalmente.

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