[Resolvido]Backup Tabelas

Bom dia JPaulo

Estou a tentar aplicar a sua função mas não resulta.

Estou a chama-la com um botão ao fazer clique." Call BackupTabelas

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

Fiz o teste e funfou plenamente.

Mude o que está grifado a vermelho, a declaração está diferente:

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

Peço desculpa mas mudo o que está grifado Para ?

Amigão;

Você está a declarar Dim MinhasTabelas As TableDef

Depois está a fazer o Set diferente:

Set MinhasAtuaisTabelas = CurrentDb.TableDefs

Teste Assim;

Public Function BackupTabelas()
'By JPaulo Maximo Access
Dim MinhasTabelas As TableDefs
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 = "E:\Gestão Vendas.mdb"
On Error Resume Next
DoCmd.CopyObject strCaminho, strTabelas & Now(), acTable, strEnviaTabelas
End If
Next
End Function

Teste com este:
http://dl.dropbox.com/u/771097/Assis.rar

Com o Assis.rar não acontece nada.

Eu fiz assim:


Public Function BackupTabelas()
'By JPaulo Maximo Access
Dim MinhasTabelas As TableDefs
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.mdb"
On Error Resume Next
DoCmd.CopyObject strCaminho, strTabelas & Now(), acTable, strEnviaTabelas
End If
Next
End Function


No meu banco xpto.mdb coloquei no evento ao pressionar de um botão:

Call BackupTabelas

O que aconteceu ?

Aconteceu que no no banco em C:\teste.mdb ficou a tabela tblExemplo02-03-2010 13:13:04

Ou seja, fez Backup...