Access - Error 76 ruta de acceso

Hola,

He creado un botón que me creará una copia de mi base de datos, la ruta es correcta, pero me da error 76, como si no encontrará el fichero o la ruta fuera errónea el código que he puesto es el siguiente:


Podrías indicarme dónde esta el error, o bien otro código que me realice la función.

Gracias

Hola!

El código que tienes es correcto. Entiendo yo que el problema te viene por la ruta que estás especificando.

Intenta con este otro código:

...
Private Sub...
Dim txtArch As String, txtCopia as string
Dim fs As Object
txtArch = application.currentProject.path & "\gestion empleados 2015.accdb"
txtCopia = "C:\Usuarios\usuario\Mis Documentos\BD Gestion empleados\copia seguridad\gestion empleados 2015.accdb"
Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfile txtArch, txtCopia, True
Set fs = nothing
End sub
...

Si te sigue dando el problema puedes ir depurando dónde está el error de la ruta. Añade la siguiente línea a tu código tras los DIM

If dir("C:\Usuarios\usuario\Mis Documentos\BD Gestion empleados\copia seguridad", vbDirectory)="" then
msgbox "La ruta no es correcta"
Exit sub
Else
msgbox "La ruta es correcta"
End if

Puedes ir cambiando la ruta del dir para ver cómo te va saltando el if. Quizá a partir de ahí puedas detectar dónde está el error.

Saludos,

http://neckkito.siliconproject.com.ar