Importar Tablas
Buen día, agradezco mucho tu ayuda en temas pasados y espero que me puedas ayudar con este.
La base de datos que he creado importa tablas desde otra base de Datos, al principio importaba las tablas con una macro, la cual era muy engorroso su manejo, puesto que la ruta de ubicación de la otra base podía cambiar según el usuario, para corregir esto he conseguido la manera de que el usuario seleccione la ruta y pueda actualizar las tablas, el problema ahora es que antes de realizar la actualización me toca borrar las tablas, si no lo hago me crea nuevas tablas con el nombre de la tabla y un numero al final Ej: se importa la Tabla con nombre Ciudad y si ya existe me importa la Tabla con nombre Ciudad1.
Este es el código de uso para efectuar la importación
Public Sub ReemplazarTablaServicios(Tabla)
DoCmd.TransferDatabase , "Microsoft Access", RutaBase &"/Servicios.mdb", acTable, Tabla, Tabla
y este es el codigo para definir que tablas son las que quiero importar
Public Sub Importar()
Call ReemplazarTablaServicios("Ciudad")
End Sub
Lo que deseo es poder importar las tablas y que sobreescriban sobre las ya existentes, de antemano agradezco la ayuda que me puedas suministrar.
La base de datos que he creado importa tablas desde otra base de Datos, al principio importaba las tablas con una macro, la cual era muy engorroso su manejo, puesto que la ruta de ubicación de la otra base podía cambiar según el usuario, para corregir esto he conseguido la manera de que el usuario seleccione la ruta y pueda actualizar las tablas, el problema ahora es que antes de realizar la actualización me toca borrar las tablas, si no lo hago me crea nuevas tablas con el nombre de la tabla y un numero al final Ej: se importa la Tabla con nombre Ciudad y si ya existe me importa la Tabla con nombre Ciudad1.
Este es el código de uso para efectuar la importación
Public Sub ReemplazarTablaServicios(Tabla)
DoCmd.TransferDatabase , "Microsoft Access", RutaBase &"/Servicios.mdb", acTable, Tabla, Tabla
y este es el codigo para definir que tablas son las que quiero importar
Public Sub Importar()
Call ReemplazarTablaServicios("Ciudad")
End Sub
Lo que deseo es poder importar las tablas y que sobreescriban sobre las ya existentes, de antemano agradezco la ayuda que me puedas suministrar.
1 Respuesta
Respuesta de xavi -ae soft-
1
Lo que debes hacer es intentar borrar la tabla "previa". Lo más fácil es meter un On Error Resume Next antes del borrado de la tabla:
Public Sub ReemplazarTablaServicios(Tabla)
On Error Resume Next ' Si falla la instrucción (porque la tabla no exista) salta a la siguiente
DoCmd. DeleteObject acTable, Tabla
On Error Goto 0 ' deshace el On Error anterior ya que, si no existiera esta línea y se produjera un error en la siguiente, lo obviaria.
DoCmd. TransferDatabase, "Microsoft Access", RutaBase &"/Servicios.mdb", acTable, Tabla, Tabla
End Sub
http://www.mvp-access.com/foro
Public Sub ReemplazarTablaServicios(Tabla)
On Error Resume Next ' Si falla la instrucción (porque la tabla no exista) salta a la siguiente
DoCmd. DeleteObject acTable, Tabla
On Error Goto 0 ' deshace el On Error anterior ya que, si no existiera esta línea y se produjera un error en la siguiente, lo obviaria.
DoCmd. TransferDatabase, "Microsoft Access", RutaBase &"/Servicios.mdb", acTable, Tabla, Tabla
End Sub
http://www.mvp-access.com/foro
