Copia Seguridad - microsoft.public.es.access

Mensaje del debate Copia Seguridad

Búho

Ver perfil

Más opciones 25 nov 2002, 05:30

Grupos de noticias: microsoft.public.es.access

De: "Búho" <pacoQUITAE...@nemo.es>

Fecha: Mon, 25 Nov 2002 11:30:13 +0100

Local: Lun 25 nov 2002 05:30

Asunto: Re: Copia Seguridad

  Reenviar | Imprimir | Ver secuencia
  | Mostrar mensaje original
  | Informar de este mensaje | Buscar mensajes de este autor
  

FileCopy (Ver ayuda de Access) necesita que el fichero NO esté abierto en
esos momentos. Con lo cual si intentas copiar la propia MDB, al estar ésta
abierta, te da error.

Hay posibles soluciones: AL cerrar la MDB que deseas copiar, justo antes de
hacer Docmd.Quit, por ejemplo, abrir otra instancia de Access con una MDB
que sí realice la copia desde un formulario de inicio o una macro Autoexec.
Crear un fichero BAT, por lotes, que al cerrar la MDB que deseas copiar y
tambien justo antes de Docmd.Quit, lance el bat.

--
Saludos:
Francisco J. García Aguado
Web sobre Access y VBA
http://www20.brinkster.com/accessbhuo/
Mi Foro en las comunidades de Microsoft
http://groups.msn.com/Access2000VisualBasic/

"Cheeky" <Big...@terra.es> escribió en el mensaje
news:u73y2pGlCHA.2616@tkmsftngp09...

> Sí, es la BD donde está el boton de comando.
> ¿No funciona así?

> "Búho" <pacoQUITAE...@nemo.es> escribió en el mensaje

news:ekhptPFlCHA.348@tkmsftngp12...

> ¿PRODESIO.MDB está abierto o en uso en el momento de la copia?
> --
> Saludos:
> Francisco J. García Aguado
> Web sobre Access y VBA
> http://www20.brinkster.com/accessbhuo/
> Mi Foro en las comunidades de Microsoft
> http://groups.msn.com/Access2000VisualBasic/

> "Cheeky" <Big...@terra.es> escribió en el mensaje

news:eyNgzIClCHA.1872@tkmsftngp10...

> Para intentar hacer una copia de seguridad de la BD activa, tengo

definido un Módulo con

> el código de Búho:

> Option Compare Database
> Option Explicit

> Function COPIAFICHERO()
> Dim Ruta_Fichero_a_Copiar As String
> Dim Ruta_destino As String
> Ruta_Fichero_a_Copiar = CurrentProject.Path & "\PRODESI0.Mdb"
> Ruta_destino = CurrentProject.Path & "\CopiaRespaldo\"
> If Len(Dir(Ruta_destino)) = 0 Then
> 'la carpeta no existe, la creo
> MkDir Ruta_destino
> 'Ahora copio la MDB
> FileCopy Ruta_Fichero_a_Copiar, Ruta_destino & "PRODESI0.mdb"
> Else
> 'la carpeta ya existe, copio el fichero
> FileCopy Ruta_Fichero_a_Copiar, Ruta_destino & "PRODESI0.mdb"
> End If
> End Function

> Y este es el código del Botón de comando:

> Private Sub CopiaSeg_Click()
> On Error GoTo Err_CopiaSeg_Click
> COPIAFICHERO
> Exit_CopiaSeg_Click:
> Exit Sub

> Err_CopiaSeg_Click:
> MsgBox Err.Description
> Resume Exit_CopiaSeg_Click

> End Sub

> Pero al ejecutarlo me sale el mensaje de error :
> "Error de acceso a la ruta o al fichero"

> ¿Qué estoy haciendo mal?

> Saludos a todos y gracias a quien me saque de esta duda existencial...

Reenviar