RE:Guardar tabla en una unidad de disco
Disiento de Roberto, hace una semana Victoria me explicó como hacerlo y la verdad es que funciona bastante bien, no tienes que guardar TODA la base de datos sino generar una nueva SOLO con las tablas que quieras guardar, el código es como sigue:
Private Sub guardartablas()
Set wrk = DBEngine.Workspaces(0)
If Dir("RUTA DE DESTINO DE LA COPIA/ARCHIVO.MDB") <> "" Then Kill "RUTA DE DESTINO DE LA COPIA/ARCHIVO.MDB" 'Esto borra la copia anterior si la hay
Set dbs = wrk.CreateDatabase("C:\Mtas\general.mdb", dbLangGeneral) 'Creas la base de datos nueva
Set dbs = Nothing
DoCmd.TransferDatabase acExport, "Microsoft Access", "RUTA DE DESTINO\archivo.mdb", acTable, "Tabla1", "Tabla1", False 'Transfieres la tabla a la nueva base que has creado
End Sub