Cambiar programáticamente la ruta de tablas vinculadas en Access

Al cambiar las bases de datos de carpeta o de unidad es posible que se rompa la ruta de las tablas vinculadas. Desafortunadamente Ms Access no permite establecer rutas con referencias relativas para las tablas vinculadas. En el caso de que tengamos que cambiar la ruta, lo podemos hacer manualmente o mediante código.

Manualmente

1. Clic con el botón secundario sobre la tabla vinculada, seleccionamos Administrador de tablas vinculadas.
2. Activamos la casilla de verificación Preguntar siempre por la nueva ubicación.
3. Marcamos la casilla de verificación de las tablas que deseamos cambiar y clic en Aceptar.
4. Seleccionamos en el cuadro de diálogo la nueva base de datos y clic en Abrir.

Programáticamente

En el primer ejemplo, tenemos solamente una tabla vinculada a una base de datos en la misma carpeta que el fichero de Access actual. Es necesario escribir tanto el nombre de la tabla vinculada como el de la base de datos origen de la misma.

Sub CambiarRutaTablaVinculada()
    Dim dbs As DAO.Database
    Set dbs = CurrentDb 
    dbs.TableDefs("Tabla vinculada").Connect = ";DATABASE=" _
        & CurrentProject.Path & "\BBDD de la tabla vinculada.mdb"
    dbs.TableDefs("Tabla Vinculada").RefreshLink 
End Sub
End Sub

En este segundo ejemplo, se actualizan todas las tablas vinculadas. Se asume que las bases de datos origen de las mismas están en la misma carpeta que el fichero de Access actual.

Sub CambiarTodasRutasTablaVinculadas()
    Dim fso As New FileSystemObject
    Dim fileName As String
    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
    fileName = fso.GetFileName(tdf.Connect)
        If fileName <> "" Then
            dbs.TableDefs(tdf.Name).Connect = ";DATABASE=" _
                & CurrentProject.Path & "\" & fileName
            dbs.TableDefs(tdf.Name).RefreshLink
        Else
        End If
    Next tdf
End Sub