[Resolvido]Backup ao fechar do formulario Principal

Bom dia, alguem poderia me dar uma força, obrigado

Meu Bd esta na pasta igual o da função conforme segue abaixo, não sei pq ficando dando erro:

Erro em tempo de execução '52'

Nome ou número de arquivo incorreto.

Function BackBD()
Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "D:\FOLHA2017\Backup\" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "D:\FOLHA2017\FOLHA2017.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
End Function

Att.

Bom dia,

Altere o trecho destacado:

Function BackBD()
Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "D:\FOLHA2017\Backup\" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\FOLHA2017.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
End Function

Abraço.

Bom dia, obrigado ajudo bastante, pode me tirar mais 1 duvida sobre o arquivo de backup ddmmyyyy é possivel eu usar informações preenchida em 1 caixa de texto ?

att.

Boa tarde,

Sim, é possível, substituir o trecho destacado:

CopiaSegura.CopyFile CurrentProject.Path & "\FOLHA2017.accdb", Caminho & Format(SeuTxtData, "_ddmmyyyy") & ".accdb"

Obs.: notei que não deu resolvido no outro fórum que abriu e nem neste, caso tenha resolvido os problemas, clique no resolvido, caso não, retorne o que houve.

Abraço.

Obrigado vou tentar adaptar as informações que foram passadas.