Hola amigos, me he encontrado en una web de access este codigo para crear un backup a la DB mediante un boton de comandos, el detalle es que al hacerlo pro primera vez me funciona bien, cuando le doy click por segunda vez al boton que me ejecuta el codigo me da error pues por lo que veo no sobreescribe la DB en la carpeta "backup"
si alguien sabe como solucionarlo, mis agradecimientos de antemano
Aqui el codigo que uso:
Código PHP:
Option Compare Database
Option Explicit
Private Declare Function CopiaBase Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
'Ahora supongamos que el boton de comando desde el que
'quieres llamar a la copia , se llama Comando0
'Bastaria con
Private Sub Comando0_Click()
If Len(Dir("C:\Temp\Base.mdb")) = 0 Then
MsgBox "No existe la MDB a copiar. No se puede realizar la copia.", vbCritical, "AVISO"
Exit Sub
End If
If Len(Dir("C:\Temp\Backup\", vbDirectory)) = 0 Then
MsgBox "No existe el directorio destino.", vbCritical, "AVISO"
'le creamos
MkDir "C:\Temp\Backup\"
End If
CopiaBase "C:TempBase.mdb", _
"C:TempBackupBase1.MDB", 0
End Sub