[Resolvido]Backup de Tabelas II

Boa noite a todos,

O código abaixo do JPaulo (que peguei aqui no Forum) realiza backup somente das tabelas:

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


Funciona que é uma beleza.

Porém a função faz backup de todas as tabelas.

Teria uma forma de alterar o código para fazer backup de somente 02 ou 03 tabelas do bd???

Já tentei algo do tipo:

TableDefs(0)

TableDefs("name")

TableDefs![name]

Más infelizmente não deu certo.

Nivaldo.

Olá Pessoal,

Como preciso somente do backup de 03 tabelas, resolví da seguinte forma:

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


Nivaldo.

só fera que resolve o próprio problema e posta para os demais , valeu !