102 códigos vba - Copiar todas tabelas do BD

Olá,

Estou tentando executar através de botão, com a chamada Call, mas esta dando erro de sintaxe na linha For i = 0 to .....

Código:


Public Function BackupTabelas()
'By JPaulo ® Maximo Access
Dim MinhasTabelas As TableDefs
On Error Resume Next
Set MinhasTabelas= CurrentDb.TableDefs
For i = 0 To MinhasTabelas - 1)
strTabelas = MinhasTabelas(i).Name
 If LeftMinhasTabelas(i).Name, 4) <> "MSys" Then
 strEnviaTabelas = MinhasTabelas(i).Name
strCaminho = "C:\SeuBanco.mdb"
On Error Resume Next
DoCmd.CopyObject strCaminho, strTabelas & Now(), acTable, strEnviaTabelas
 End If
Next
End Function


Olá....

strCaminho = "C:\SeuBanco.mdb" onde "C:\nome_do_seu_banco_de_dados.accdb

Por algum acaso você colocou o nome de seu banco na linha acima que esta em vermelho ?

Coloquei sim Silvio,
até alterei para um nome curto e dá o erro de sintaxe,
achei que era os parenteses da sentença mas não tive sucesso.

Qual o erro de sintaxe dessa linha

For i = 0 To MinhasTabelas - 1)
Original do texto do JPaulo eta assim como acima.
Eu até coloquei abertura de parenteses após o To ( mas também dá erro.


Essa dica está nos posts do Administrador.

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

Achei uma dúvida no Forum:
com a correção do JPaulo, mas não copiou nem deu erro.

Código:


Public Function BackupTabelas()
'By JPaulo ® Maximo Access
Dim MinhasTabelas As TableDef
On Error Resume Next
Set MinhasAtuaisTabelas = CurrentDb.TableDefs
For I = 0 To (MinhasAtuaisTabelas.Count - 1)
strTabelas = MinhasAtuaisTabelas(I).Name
If Left(MinhasAtuaisTabelas(I).Name, 4) <> "MSys" Then
strEnviaTabelas = MinhasAtuaisTabelas(I).Name
strCaminho = "E:\Gestão Vendas.mdb"
On Error Resume Next
DoCmd.CopyObject strCaminho, strTabelas & Now(), acTable, strEnviaTabelas
End If
Next
End Function