[Resolvido]Botão Comando para executar BackUp com erro ao chamar Módulo

Estou usando um exemplo do Criquio Calavera para execução do BackUp mas coloquei um botão com comando no meu Form principal como descrito no exemplo para chamar o módulo mas me apresenta o seguinte erro "Erro de Compilação: Era esperada variável ou procedimento, não módulo." com isso não efetua o backup, o que está errado.
Quem pode me orientar?

Ghunnar.

Desculpe amigos!

Desculpe Norberto!

Código Excluído!

É que não tinha entendido ai vai!

Enviar para Unidade D: ou a seu critério!

Private Sub SeuBotão_Click()

On Error Resume Next
Dim fso As Object

Dim CopiaSegura As Object
Dim Caminho As String
Dim CopiaBancoTabelas As Object
Dim CaminhoTabelas As String

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("D:\NomeBD") Then ' verifica se já existe a pasta
Else
MkDir "D:\BD - Teste" ' se não existir cria
End If


Caminho = "D:\BD - Teste\PROGRAMA BD - Teste" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\NomeBD", Caminho & Format(Now, " - dd-mm-yyyy") & ".accdb"

End Sub

Para undidade D: e unidade E:

Private Sub SeuBotão_Click()

On Error Resume Next
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("F:\NomeBD") Then ' verifica se já existe a pasta
Else
MkDir "E:\BD - Teste" ' se não existir cria
End If
Dim CopiaSegura As Object
Dim Caminho As String
Dim CopiaBancoTabelas As Object
Dim CaminhoTabelas As String
Caminho = "E:\BD - Teste\PROGRAMA BD - Teste" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\BD - Teste.accdb", Caminho & Format(Now, " - dd-mm-yyyy") & ".accdb"

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("D:\NomeBD") Then ' verifica se já existe a pasta
Else
MkDir "D:\BD - Teste" ' se não existir cria
End If


Caminho = "D:\BD - Teste\PROGRAMA BD - Teste" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\NomeBD.accdb", Caminho & Format(Now, " - dd-mm-yyyy") & ".accdb"

End Sub


Lembrando quem tem access MDB, é so mudar na linha .............\NomeBD.accdb para NomeBD.MDB.

Abraços!

Bom dia Lupercio;

Uma pergunta, esses códigos não tinham créditos ? Sumiram porquê ? ....

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

o JPaulo são seus os créditos foi no copiar e colar que acabei talvez me esquecendo, desculpa ai!

Ative a referencia:
Microsoft Scripting Runtime

Cole a funзгo dentro do VBA do seu formulario principal


Function BackBD()
'elaborado por: JPaulo - 11/10/2006
'objectivo: criar (1) uma copia de seguranзa por mкs
' pode ser alterado para (1) uma por dia, ou uma (1) por ano, para
'isso basta alterarem o Format(Now(), "_mmyyyy") para Format(Now(), "_ddmmyyyy")
'O caminho tem de ter o nome da pasta, neste caso Backup e o nome que querem dar
' а MDB da cуpia.

Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "C:\BackMDB\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\SeuBanco.mdb", Caminho & Format(Now, "_mmyyyy") & ".mdb"
End Function

No evento ao fechar do seu formulario principal, coloque:

Private Sub Form_Close()
Call BackBD()
End Sub

Me perdoa mestre, jamais me ocorreu em tomar seus créditos, pois é um experct em Ms Access!
Um abraço

Tranquilo.

O importante mesmo, é resolver o tópico.

É verdade!

Para ser franco, uso muito seus códigos, do Norberto, Balem, Criquio e outros, respeito muito a capacidade e direito de todos!

Consegui resolver o problema utilizei uma macro com código da função vinculado a um botão.

Obrigado a todos.

Ghunnar.