Imprimir página | Cerrar ventana

TABLAS: Cambiar nombre de una tabla (DAO)

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Tus Funciones Favoritas & Aportaciones & Artí­culos
Descripción del foro: Para publicar código interesante, aportaciones y artículos
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=77273
Fecha de impresión: 08/Abril/2020 a las 05:15


Tema: TABLAS: Cambiar nombre de una tabla (DAO)
Publicado por: buho
Asunto: TABLAS: Cambiar nombre de una tabla (DAO)
Fecha de publicación: 10/Agosto/2013 a las 08:31
Sub CambiaNombreTabla(StrNombreAntiguo As String, _
    StrNombreNuevo As String)
 'Para una base externa
 Dim BaseLejana As DAO.Database
 Set BaseLejana = OpenDatabase(CurrentProject.Path & "\baselejana.mdb")
 BaseLejana.TableDefs(StrNombreAntiguo).Name = StrNombreNuevo
 BaseLejana.Close
 'Para la base que corre el codigo
 CurrentDb.TableDefs(StrNombreAntiguo).Name = StrNombreNuevo
End Sub


-------------
Por fin he hecho algo bueno, ser abuelo ¡y porque no lo he hecho yo!



Imprimir página | Cerrar ventana