** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - TABLAS: Cambiar nombre de una tabla (DAO)
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoTABLAS: Cambiar nombre de una tabla (DAO)

 Responder Responder
Autor
Mensaje
buho Ver desplegable
Administrador
Administrador
Avatar
Abuelo FELIZ

Unido: 10/Abril/2004
Localización: Valladolid
Estado: Sin conexión
Puntos: 11317
Enlace directo a este mensaje Tema: TABLAS: Cambiar nombre de una tabla (DAO)
    Enviado: 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


Editado por buho - 11/Agosto/2013 a las 00:42
Expulsado de la cárcel por robar los barrotes
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable