[Resolvido]Fazer cópia da Base dados

Bom dia a todos,

Apóes consultar vários exemplos de como fazer cópia da base dados, não estou a conseguir.
Exemplo de J.PAulo

Public Function BackBD()
Dim CopiaSegura As Object
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\BDG Antigas\BDG 2014.mdb"
End Function

Private Sub Copiando_Click()
If MsgBox("Deseja fazer uma cópia da Base? ", vbYesNo, "Aviso de Saída") = vbYes Then
Call BackBD
Quit acQuitSaveAll
End If

End Sub

dá erro em:
CopiaSegura.CopyFile CurrentProject.Path & "\BDG Antigas\BDG 2014.mdb"

Alguém pode ajudar.

Obrigado

Oscar

A sintaxe correta é:

CopiaSegura.CopyFile  arquivo de origem, arquivo de destino

Como pode ver, está faltando o nome do arquivo de destino.

Abraços

Noob

continua a dar erro:

CopiaSegura.CopyFile CurrentProject.Path & "BDG 2014.mdb", "E:\BASES EM DESENVOLVIMENTO\escala\BDG Antigas\" & Format(Now, "_mmyyyy") & ".mdb"
que falta agora?

Obrigado

Sempre que houver algum erro, escreva que tipo de erro
que está na mensagem.  

Transcreva o código para vermos como ficou.

Obs.: não está errado, mas veja o nome do arquivo que será a copia:

E:\BASES EM DESENVOLVIMENTO\escala\BDG Antigas\_122014.mdb

Noob

Public Function BackBD()
Dim CopiaSegura As Object
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "BDG 2014.mdb", "E:\BASES EM DESENVOLVIMENTO\escala\BDG Antigas\" & Format(Now, "_mmyyyy") & ".mdb"
End Function

Você não disse que tipo de erro na mensagem.

Veja:

E:\BASES EM DESENVOLVIMENTO\escala\BDG Antigas\_122014.mdb

Isso não está errado, mas atente para o nome do arquivo que será a cópia.

Não vejo erros na sitaxe do código, talvez seja um dos caminhos que pode estar errado.

Fez a referência do scripting?

O Access tem uma instrução nativa:

FileCopy  arqOrigem, arqDestino

Teste

Noob

que é scripting?

desculpa mas não faço ideia.


Obrigado

Mais uma vez, você não disse qual é o erro, fica dificil ajudar sem sabe-lo.

Na página do VBA em Ferramentes -- >Referências, veja se tem selecionado

Microsoft Scripting Runtime, se não tiver procure mais abaixo na lista e selecione e então teste novamente.
Disse para testar o FileCopy do Access, você não o fez.

Noob

desculpe não ter dito, mas usei o FileCopy e deu erro também.
Com a referência resultou.
Muito Obrigado e desculpe eu ainda não estar muito dentro de VB.

Ótimo

Quando disse que desconhecia a referência,
entendi que era isso.

Valeu o retorno

Boa sorte!

Noob