Exportar propiedad Required
Publicado por Maria (1 intervención) el 09/06/2009 20:16:20
Hola,
Estoy intentando exportar la propiedad Required desde una tabla vinculada (a SQL) en access a otro access y no me funciona. Exportando de una tabla en access a otra en access si que funciona este mismo código.
El código que he programado en VBA es el sguiente:
Public Function ExportarPropiedades (Ruta As String)
Dim NuevaBD As Database
Dim Workspaces1 As Workspace
Dim i As Integer
Set db = CurrentDb
Set Workspaces1 = DBEngine.Workspaces(0)
'Se abre la base de datos donde quiero exportar
Set NuevaBD = Workspaces1.OpenDatabase(Ruta, dbEncrypt)
'Se recorren las tablas de la base de datos
For Each tbl In NuevaBD.TableDefs
Nombre = tbl.Name
'Se pone la propiedad required en el campo que lo tenga la base de datos origen
For i = 0 To db.TableDefs(Nombre).Indexes.Count - 1
Set ind = New Index
ind.Required = db.TableDefs(Nombre).Indexes(i).Required
tbl.Indexes.Append ind
Next
Next
NuevaBD.Close
End Function
Si alguien me puede ayudar se lo agradecería. Muchas gracias!!
Estoy intentando exportar la propiedad Required desde una tabla vinculada (a SQL) en access a otro access y no me funciona. Exportando de una tabla en access a otra en access si que funciona este mismo código.
El código que he programado en VBA es el sguiente:
Public Function ExportarPropiedades (Ruta As String)
Dim NuevaBD As Database
Dim Workspaces1 As Workspace
Dim i As Integer
Set db = CurrentDb
Set Workspaces1 = DBEngine.Workspaces(0)
'Se abre la base de datos donde quiero exportar
Set NuevaBD = Workspaces1.OpenDatabase(Ruta, dbEncrypt)
'Se recorren las tablas de la base de datos
For Each tbl In NuevaBD.TableDefs
Nombre = tbl.Name
'Se pone la propiedad required en el campo que lo tenga la base de datos origen
For i = 0 To db.TableDefs(Nombre).Indexes.Count - 1
Set ind = New Index
ind.Required = db.TableDefs(Nombre).Indexes(i).Required
tbl.Indexes.Append ind
Next
Next
NuevaBD.Close
End Function
Si alguien me puede ayudar se lo agradecería. Muchas gracias!!
Valora esta pregunta


0