Vincular a otro archivo con tablas

Dudas sobre código
Avatar de Usuario
leadrudi
Nivel 6
Mensajes: 222
Registrado: Sab Oct 14, 2017 7:55 am

Vincular a otro archivo con tablas

Mensajepor leadrudi » Vie Oct 02, 2020 6:49 pm

Buenas tardes:
Tengo una base de datos dividida. A una la llamo Base Formularios y la otra es Base Tablas. Conseguí un código que me permite cambiar la Base Tablas y revincular las tablas al nuevo origen. A veces añado una tabla en la Base tablas (o la quito) y tengo que vincular/desvincular manualmente.
¿Cómo puedo aprovechar el código?

Código: Seleccionar todo

Sub CambiarRutasaTablaVinculadas(vRutaNueva As String)
    Dim fso As New FileSystemObject
    Dim fileName As String
    Dim vDAO As DAO.Database
    Dim tdf As DAO.TableDef
    Set vDAO = CurrentDb
    For Each tdf In vDAO.TableDefs
        fileName = fso.GetFileName(tdf.Connect)
        If fileName <> "" Then
            vDAO.TableDefs(tdf.Name).Connect = ";DATABASE=" & vRutaNueva
            vDAO.TableDefs(tdf.Name).RefreshLink
        End If
    Next tdf
    MsgBox "Las tablas se han vinculado exitosamente a '" & fileName & "'.", 64, cBase & "Ruta de tablas"
End Sub

Lo que necesito es:
1) Vincular a la nueva Base Tablas, las tablas que ya existen.
2) Tabla NO existe en Base Formularios y SÍ existe en Base Tablas -> La vincula.
3) Tabla SÍ existe en Base Formularios y NO existe en Base Tablas -> La desvicnula
:?: :!: :idea: :arrow: :oops: :( :o :) :D :geek: :ugeek:

Volver a “Código VBA”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados