MS Access 2003: uso de VBA para crear un nuevo archivo de base de datos y tablas de transferencia

Los datos expuestos en este blog, son solo de índole informativo. Por favor realiza siempre una copia de seguridad antes de realizar cualquier cambio en tu proyecto.

MS Access 2003: uso de VBA para crear un nuevo archivo de base de datos y tablas de transferencia

Este tutorial de MSAccess explica cómo crear un nuevo archivo de base de datos y transferir tablas en Access 2003 usando código VBA (con capturas de pantalla e instrucciones paso a paso).

P: En Microsoft Access 2003/XP/2000/97, tengo una base de datos con tablas de búsqueda y tablas de entrada de datos. Quiero un botón que permita al usuario iniciar un nuevo archivo de base de datos con una tabla de búsqueda que contenga los datos, pero la tabla de entrada de datos está vacía.

Esencialmente, quiero poder guardar los datos de la base de datos original y comenzar una nueva base de datos (archivo) con todas las tablas de búsqueda intactas pero con un conjunto limpio de tablas de entrada de datos.

Respuesta: puede crear un nuevo archivo mdb con el siguiente código VBA:

Sub CreateNewMDBFile()

   Dim ws As Workspace
   Dim db As Database
   Dim LFilename As String

   'Get default Workspace
   Set ws = DBEngine.Workspaces(0)

   'Path and file name for new mdb file
   LFilename = "c:NewDB.mdb"

   'Make sure there isn't already a file with the name of the new database
   If Dir(LFilename) <> "" Then Kill LFilename

   'Create a new mdb file
   Set db = ws.CreateDatabase(LFilename, dbLangGeneral)

   'For lookup tables, export both table definition and data to new mdb file
   DoCmd.TransferDatabase acExport, "Microsoft Access", LFilename, acTable, "Lookup Table1", "Lookup Table1", False

   'For data entry tables, export only table definition to new mdb file
   DoCmd.TransferDatabase acExport, "Microsoft Access", LFilename, acTable, "DataEntry Table1", "DataEntry Table1", True

   db.Close
   Set db = Nothing

End Sub

Esta subrutina crea un archivo mdb llamado c:NewDB.mdb y exporta dos tablas del archivo mdb original:

tabla de consulta 1 Exporte desde el archivo mdb original a un nuevo archivo con definiciones de tabla y datos intactos.

Formulario de entrada de datos 1 Exporte desde el archivo mdb original a un nuevo archivo que contenga solo definiciones de tablas. No se transfirieron registros.