RE:Ayuda muy urgente por favor
Para la exportación, primero crea la DB, y luego exporta la tabla:
Function Exportar()
Dim dbs As Database
Set dbs = DBEngine.Workspaces(0).CreateDatabase("A:\Datos.mdb", dbLangGeneral)
DoCmd.TransferDatabase acExport, "Microsoft Access", "A:\Datos.mdb",acTable, "Tu Tabla", "Tu nueva Tabla", False
MsgBox "Exportación Finalizada"
End Function
Para importar :
Function Importar()
DoCmd.TransferDatabase acImport, "Microsoft Access", "A:\Datos.mdb",acTable, "Tu Tabla", "Tu Tabla", False
'' y luego dos opciones
generas por codigo TUCONSULTAANEXAR y ejecutas
DoCmd.RunSQL TUCONSULTAANEXAR, 0
'' o haces una consulta de datos anexados del Access y la ejecutas con:
DoCmd.OpenQuery "Tu consulta anexar", acNormal, acEdit
MsgBox "Importacion Finalizada"
End Function
Otro consejo: controla si quieres conservar las sucesivas importaciones cambiandolas el nombre o sino borra la tabla importada despues de anexar.