Backup BD
Publicado: Jue Ene 16, 2020 1:36 pm
Hola a todos!
Estoy intentando montar una macro para que haga una copia de la Base de Datos en uso, pero me da el siguiente error:
Type: com.sun.star.package.zip.ZipIOException
Message: Teh stream seems to be broken!
El código que estoy utilizando es:
Alguna idea?
Gracias
Maite
Estoy intentando montar una macro para que haga una copia de la Base de Datos en uso, pero me da el siguiente error:
Type: com.sun.star.package.zip.ZipIOException
Message: Teh stream seems to be broken!
El código que estoy utilizando es:
Código: Seleccionar todo
Sub BackupBD()
Dim DocURL As String
Dim URLNuevo As String
Dim FechaBackup As String
FechaBackup = Day(Date())& "_" & MONTH(DATE()) & "_" & YEAR(DATE())
DocURL = ThisDatabaseDocument.URL
URLNuevo = Left(DocURL, LEN(DocURL) - 4)& "_ "& FechaBackup & ".odb"
ThisDatabaseDocument.storeToURL(URLNuevo, Array())
End Sub
Gracias
Maite