[Resolvido]Erro ao fechar formulário

Senhores;

Copiei a função abaixo para realizar o BackUp do BD após fechar o formulário principal.

++++++++++++++++++
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

+++++++++++++++++

Ao fechar o formulário principal retorna o seguinte erro: "Era esperada uma variável ou procedimento, não módulo"

Alguém sabe informar qual o problema?

Bom dia!

Onde está localizada a função BackBD()? Há algum módulo com este mesmo nome?

Sim. Criei um módulo de nome BackUp.

Diante da sua pergunta resolvi colar a função no próprio formulário e o resultado é que funcionou.

Muito grato pela ajuda.

Ok!

Vale ressaltar que se a função está em um outro módulo e há um módulo com o mesmo nome da função, o Access está pensando que tu tá querendo chamar um módulo ao invés da função, daí o erro. Te aconselho sempre a diferenciar os nomes de qualquer coisa que for criar. Eu, particularmente, adotei a regra de nomear módulos com as letrar mdl na frente, para evitar este tipo de erro.

Não esqueça do "Resolvido"!