[Resolvido]Backup de tabelas SEM confirmação para subscrever

Olá pessoal, achei neste fórum um tipo de backup super interessante:
----------------------------------
Public Function BackupTabelas()
DoCmd.SetWarnings False
'By JPaulo ® Maximo Access
Dim MinhasTabelas As TableDefs
Dim strTabelas, strEnviaTabelas, strCaminho
Dim strCaminho2
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"
strCaminho = "C:\SCH-Honorários\Dados\System.dat"
strCaminho2 = "C:\SCH-Honorários\Dados\Function.sys"
On Error Resume Next
'DoCmd.CopyObject strCaminho, strTabelas & Now(), acTable, strEnviaTabelas
DoCmd.CopyObject strCaminho, strTabelas, acTable, strEnviaTabelas
DoCmd.CopyObject strCaminho2, strTabelas & Now(), acTable, strEnviaTabelas
End If
Next
DoCmd.SetWarnings False
End Function
----------------------------------
Porém eu fiz umas alterações onde coloquei em vermelho...
E está tudo funcionando, mas agora estou querendo que o Access2003 NÃO confirmasse quando fosse subscrever as tabelas em: strCaminho = "C:\SCH-Honorários\Dados\System.dat".
Na segunda e penultima linha eu coloquei "DoCmd.SetWarnings False" e realmente o Access2003 não pergunta/confirma, mas também NÃO faz backup das tabelas.
Alguém pode me dar um help?

Agradeço desde já!
Paulo César

Rapaz, quando você faz uso do DoCmd.SetWarnings False no inicio dos códigos, deve usar no final DoCmd.SetWarnings True, se não as seguranças ficam desabilitadas sempre e para tudo o que você fizer no seu banco.
Se você deletar uma tabela, não vai perguntar se quer ou não, simplesmente foi-seeeeeeeeeeee.
É preciso muita atenção a utilizar esse tipo de comandos.

Por outro lado, quando você quiser visualizar o porquê do código não funcionar, deve comentar o 'On Error Resume Next, dessa forma vai ver o que o Access devolve no erro.

OK... Valeu rapaz... (rsrs)
Obrigado JPaulo, mas não houve mudança!
O Access não pede mais confirmação, mas também não altera as tabelas no backup!
Tem outra idéia para fazer funfar?

Novamente agradeço pela gentileza em me ensinar...
Paulo César

Você retirou os dois 'On Error Resume Next do código para mostrar o erro ?

De certeza que lhe vai mostrar o erro de caminho não encontrado, porque o \System.dat e o \Function.sys não são pastas onde deveria estar o Backup.

Desculpa... eu não havia entendido que era pra "tirar" ( comentar = ') o On Error Resume Next... mas o fiz agorinha...
Referente aos nomes dos arquivos, System.dat e Function.sys, é somente um "macete" para esconder dos mexedores... na verdade são System.mdb e Function.mdb

É uma cópia do arquivo original sem nenhum objeto dentro...
Existem 4 tables relacionadas e o Access2003 diz que "...não pode excluir X..." porque X está participando do relacionamento em questão.

Na verdade eu fiz isso (cópia do arquivo original com relacionamento) de propósito para facilitar ao devolver com relacionamento, caso dê "pau" no arquivo original.

Por que o Access2003 não subscreve as tabelas, uma vez que o arquivo "System.dat" não está nem aberto? Existem alguma forma de "obrigá-lo" a aceitar?

Se não tem solução, eu deverei criar outro arquivo sem os relacionamento, certo? Mas para devolver um backup, os relacionamento continuariam no arquivo original?

Agradeço pela atenção, big master (rsrs)

Primeiramente deve fazer os teste com os nomes originais e só depois de funfar é vai tentando alterar para ver se funfa.

Deve manter o System.mdb ou System.accdb e por ae, que mesmo relacionado ele tem de fazer o backup.

OK! O backup funciona sem o relacionamento...
To tentando agora resolver o restore sem retirar o relacionamento!
"subaco" tá suando! (rsrs)
Obrigado e muita luz!
Paulo César

Nada gente...
Mesmo respondendo SIM para cada confirmação NÃO é possível restaurar as tabelas com relacionamento.
Vixi... Obrigado!

Prezados amigos do Fórum MaximoAccess,
Eu li aqui que existe a opção de transferir dados de uma tabela para outra... Então pensei será que é possível transferir dados de uma tabela para outra, PORÉM em outro arquivo?
Por exemplo transferir todos os dados da Tabela Cadastros do arquivo Honorários.mdb para dentro da Tabela Cadastros do arquivo Backup.mdb E/OU vice-versa...
Pelo que eu li também, acho que um campo de chave primária não é possível, mas aí eu listaria campo por campo, ignorando o campo de chave primária e assim a tabela recebedora, inseriria o código do campo de chave primária automaticamente.

Será possível fazer isso?

Obrigado!
Paulo César

Resolvi, colocando as Tables em BackEnd sem relacionamento... Já dá pra copiar "pra qq lado"... backup, restoure... tudo.
O problema agora é a exclusão de itens relacionados lá no FrontEnd... êta Jesus!
Luz a Paz para todos!