Revinculación de una tabla en Access 2000
Tengo una tabla vinculada. Si deseo ver su vínculo examino el valor de su propiedad connect:
CurrentDb.TableDefs("Tabla").Connect, lo cual me da lo siguiente:
;DATABASE=C:\aplica\bd1.mdb
Si la quiere revincular, hago
CurrentDb.TableDefs("Tabla").Connect=";DATABASE=C:\aplica\bd2.mdb"
Consulto ahora
CurrentDb.TableDefs("Tabla").Connect
y me sigue dando el valor inicial:
;DATABASE=C:\aplica\bd1.mdb
Lógicamente el refreshlink no cambia nada.
¿Alguna idea?
Muchas gracias
CurrentDb.TableDefs("Tabla").Connect, lo cual me da lo siguiente:
;DATABASE=C:\aplica\bd1.mdb
Si la quiere revincular, hago
CurrentDb.TableDefs("Tabla").Connect=";DATABASE=C:\aplica\bd2.mdb"
Consulto ahora
CurrentDb.TableDefs("Tabla").Connect
y me sigue dando el valor inicial:
;DATABASE=C:\aplica\bd1.mdb
Lógicamente el refreshlink no cambia nada.
¿Alguna idea?
Muchas gracias
1 Respuesta
Respuesta de asturcon3
1
Si, es para volverse locos, y yo lo estuve hasta que lo descubrí. En general, cuando cambies este tipo de propiedades de objetos que están en una colección dentro de otro objeto... como no tengas asignado el currentdb y el objeto en cuestión a una variable, el access ignora los cambios. Me explico. Si pones
Dim db As Database, tdf As TableDef
Set db = CurrentDb
Set tdf = db.TableDefs("tabla")
tdf.Connect = ";DATABASE=c:\aplica\bd2.mdb"
Tdf. RefreshLink
Te funcionará perfectamente.
¿Curioso, verdad?
Dim db As Database, tdf As TableDef
Set db = CurrentDb
Set tdf = db.TableDefs("tabla")
tdf.Connect = ";DATABASE=c:\aplica\bd2.mdb"
Tdf. RefreshLink
Te funcionará perfectamente.
¿Curioso, verdad?
