por faborrrrrrrrrrrr :

| |||
Aqui te va el codigo para respaldar y compactar una base de datos de hasta 19,000 reg Mira, solo hay que buscar un poquito, el codigo que te doy NO es mio, es de otro compa del foro que se lo dio a otro para darle una idea de como respaldar, pero espero te sirva ahiiiiiiiiiiiii vaaaaaaaaaaaaa::: 'Cerrar la base (esto sólo si la tienes abierta...) Db.Close 'Liberar memoria y "desligarla" Set Db = Nothing ' 'Tomar el nombre sin la extensión sTmp = "" i = InStr(NombreBase, ".") If i Then p = i - 1 Else p = Len(NombreBase) End If sTmp = Left$(NombreBase, p) 'Buscar \, para tomar el directorio (path) For i = p To 1 Step -1 If Mid$(NombreBase, i, 1) = "\" Then sTmp = Left$(NombreBase, i) Exit For End If Next If Right$(sTmp, 1) <> "\" Then sTmp = sTmp & "\" End If 'Todo este proceso es para estar seguro de que se quede una copia 'en caso de que falle la compactación... dBaseTmp = sTmp & "~dBase2.mdb" If Len(Dir$(dBaseTmp)) Then Kill dBaseTmp If Len(Dir$(sTmp & "~dBase1.mdb")) Then Kill sTmp & "~dBase1.mdb" 'Esta es la madre del cordero, se pueden usar otras "versiones", es cuestión de adecuarte. CompactDatabase NombreBase, dBaseTmp, dbLangSpanish, dbVersion20 'Guardar una copia de como estaba antes Name NombreBase As sTmp & "~dBase1.mdb" 'Esta es la base ya compactada, así que asignar el nombre Name dBaseTmp As NombreBase 'Borrar los ficheros LDB If Len(Dir$(sTmp & "*.ldb")) Then Kill sTmp & "*.ldb" __________________ |