Administrador tablas vinculadas

On Error Resume Next
DoCmd.Close acForm, "_Menu_Principal" 'Cerramos el formulario principal
DoCmd.Close acForm, "_Inicio_Contraseña" 'Cerramos el formulario de inicio
    Dim tabla As DAO.TableDef ' Primero eliminamos las tablas vinculadas
    For Each tabla In CurrentDb.TableDefs
        If (tabla.Attributes And dbAttachedTable) = dbAttachedTable Then 'Detectamos si es una tabla vinculada
            CurrentDb.TableDefs.Delete tabla.Name
        End If
    Next
'Variables para la vinculacion de la tablas
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Dim contenedor As String
    Dim rutabase As String
'Empieza la vinculacion de las tablas de esta MDB
rutabase = CurrentProject.Path & "\Tablas\SPAIN.mdb" 'Ruta = subcarpeta donde se ejecuta la aplicacion
    Set db = DBEngine.OpenDatabase(rutabase)    'Abrir base de datos
    For Each tbl In db.TableDefs                'Recorrer todas las tablas
        contenedor = tbl.Name
       If Left(contenedor, 4) <> "MSys" Then
            DoCmd.TransferDatabase acLink, "Microsoft Access", rutabase, acTable, contenedor, contenedor
        End If
    Next                                        'Termina la vinculacion de las tablas de este MDB
    
    SendKeys "%{H}"                     'Combinacion de teclas para compactar la base de datos
    SendKeys "{u}"                      'Con la barra de herramientas simula ALT+H
    SendKeys "{o}"

    DoCmd.OpenForm "_Inicio_Contraseña    "
    DoCmd.Close acForm, "_Frm_Vinculacion"
End Sub


Editado por JuanRB - 08/Febrero/2021 a las 14:12