** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Desvincular selectivamente
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoDesvincular selectivamente

 Responder Responder
Autor
Mensaje
teogf Ver desplegable
Asiduo
Asiduo


Unido: 09/Febrero/2007
Localización: España
Estado: Sin conexión
Puntos: 447
Enlace directo a este mensaje Tema: Desvincular selectivamente
    Enviado: 20/Enero/2016 a las 09:54
Buenas días,

Necesito realizar una desvinculación selectiva quitando todas las tablas excepto la tblTonta, como podría modificar el siguiente código??

Sub BDdesvincular()
'desvincular datos con dao
On Error GoTo fin

Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim contenedor As String

contenedor = tbl.name
    
    For Each tbl In CurrentDb.TableDefs
    'Detectamos si es una tabla vinculada
        If (tbl.Attributes And dbAttachedTable) = dbAttachedTable Then
            CurrentDb.TableDefs.Delete tbl.name

        End If
    Next

    Exit Sub

fin:
    ''Errores err.Number, " " & Me.Caption & "...[" & Me.Name & "]"
    MsgBox err.Description
    Resume Next

End Sub

Saludos.

Teo
Arriba
OmniPresente Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Febrero/2009
Localización: España
Estado: Sin conexión
Puntos: 1858
Enlace directo a este mensaje Enviado: 20/Enero/2016 a las 13:18
Pues...

Sub BDdesvincular()
'desvincular datos con dao
On Error GoTo fin

Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim contenedor As String

contenedor = tbl.name
    
    For Each tbl In CurrentDb.TableDefs
    'Detectamos si es una tabla vinculada
        If (tbl.Attributes And dbAttachedTable) = dbAttachedTable Then
            If tbl.name<>"tblTonta" Then CurrentDb.TableDefs.Delete tbl.name

        End If
    Next

    Exit Sub

fin:
    ''Errores err.Number, " " & Me.Caption & "...[" & Me.Name & "]"
    MsgBox err.Description
    Resume Next

End Sub

Saludos
Arriba
teogf Ver desplegable
Asiduo
Asiduo


Unido: 09/Febrero/2007
Localización: España
Estado: Sin conexión
Puntos: 447
Enlace directo a este mensaje Enviado: 20/Enero/2016 a las 15:01
Va perfecto. Muchas Gracias.

Saludos.

Teo

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable