[Resolvido]COMO EXECUTO ESTE ESCRIPT?

BOAS!
nao sei utilizar exemplos em texto como este:
como colocar no procedimento de evento este script?

Public Function BackupTabelas()
'By JPaulo ® Maximo Access

Dim strTabela1, strTabela2, strTabela3, strCaminho
On Error Resume Next
strTabela1 = "tabela1"
strTabela2 = "tabela2"
strTabela3 = "tabela3"
strCaminho = "c:\teste.accdb"
On Error Resume Next
DoCmd.CopyObject strCaminho, strTabela1 & Now(), acTable, "tabela1"
DoCmd.CopyObject strCaminho, strTabela2 & Now(), acTable, "tabela2"
DoCmd.CopyObject strCaminho, strTabela3 & Now(), acTable, "tabela2"
End Function

modifiquei e mesmo sem modificações não funciona

Boas Fernando
tem uma base de dados igual ao caminho?
strCaminho = "c:\teste.accdb"
Está a trabalhar com que versão do Access?
Pina

Boa tarde,
fernando.jas
Respeite as regras do fórum. Escrever em maiúsculas significa gritar. Adeqúe o texto.
Não utilize o título para mensagem

boas!

eu estou usando o 2003

eu modifiquei para .mdb

coloquei um arquivo vazio no destino com o mesmo nome
mas tambem nao deu nada.

Boas
O seu código não está bem, veja:

Public Function BackupTabelas()
'By JPaulo ® Maximo Access

Dim strTabela1, strCaminho
On Error Resume Next
strTabela1 = "tblExemplo"
strCaminho = "c:\teste.mdb"
On Error Resume Next
DoCmd.CopyObject strCaminho, strTabela1 & Now(), acTable, "tblExemplo"
End Function

Pina

boas

eu modifiquei para .mdb
só funciona com .accdb ?

Boas
Consegues abrir a base de dados para onde copiaste a tabela?
Pina

boas

consigo abrir
já até modifiquei para c:\sistemas

Boas
Ainda bem que está tudo resolvido
Boas Festas e não se esqueça de dar como resovido
Pina

valew!