[Resolvido]Backup de Tabelas

Bom dia
Gostaria de saber se tem como fazer Backup somente das tabelas e não de todo o Projeto em uma determinada pasta.

Fernando  

Aqui no forum veja ....

esta dando erro nesta 2 linhas.

                 Public Function BackupTabelas()
                 'By JPaulo Maximo Access
                 Dim MinhasTabelas As TableDefs
                 On Error Resume Next
                 Set MinhasTabelas= CurrentDb.TableDefs
Erro ---------------------> For i = 0 To MinhasTabelas - 1)
                strTabelas = MinhasTabelas(i).Name
Erro --------------------> 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

bom dia
deu certo o nome da minha tabela estava incorreto
obrigado