[Resolvido]Excluir dados de uma tabela e inserir em outra automaticamente

Olá pessoal, tenho um sistema de cadastro de pacientes e queria saber se existe uma maneira de excluir dados de uma tabela e inserir em uma outra tabela chamada arquivo morto automaticamente

Ola seja bem vindo ao fórum;

No evento VBA ao pressionar de um botão;

Dim strSQL As String, strSQLBackupDados As String
        
        strSQLBackupDados = "INSERT INTO SuaTabelaArquivoMorto Select * FROM SuaTabelaOriginal"
        DoCmd.RunSQL (strSQLBackupDados)
        strSQL = "DELETE * FROM SuaTabelaOriginal"
        DoCmd.RunSQL (strSQL)

JPaulo, Obrigado pela resposta, vou fazer de acordo com sua recomendação e respondop se deu certo.

J Paulo boa noite...
Estou acompanhando o tópico e testei aqui e funcionou, porem tenho 2 tabelas e precisaria excluir dados das duas tabelas e inserir em outra tabela isso é possivel?

É só replicar as linhas de código, tantas quantas quiser;

Dim strSQL As String, strSQL2 As String, strSQLBackupDados As String, strSQLBackupDados2 As String
        
        strSQLBackupDados = "INSERT INTO SuaTabelaBackup Select * FROM SuaTabelaOriginal1"
        strSQLBackupDados2 = "INSERT INTO SuaTabelaBackup Select * FROM SuaTabelaOriginal2"
        
        DoCmd.RunSQL (strSQLBackupDados)
        DoCmd.RunSQL (strSQLBackupDados2)
        
        strSQL = "DELETE * FROM SuaTabelaOriginal1"
        strSQL2 = "DELETE * FROM SuaTabelaOriginal2"
        
        DoCmd.RunSQL (strSQL)
        DoCmd.RunSQL (strSQL2)

J. Paulo

Funcionou obrigado!

Jpaulo, funcionou direitinho. muito obrigado

O amigo esqueceu do resolvido!

Obrigado pelo toque Lupercio. Valeu!!!

Caros amigos,

O meu caso é idêntico a este, porém, não deu certo, usar esse código, pois dá erro de execução 3134 (erro na sintaxe da instrução INSERT INTO).

Eu tenho um formulário de Movimento de Estoque onde são lançados as entradas ou saidas do estoque e os registros são armazenados no subformulário cuja tabela é MVAcrescimo.
Criei as consultas de acrescimo e de exclusão, pois assim que a tabela MVEstoque for atualizada com a consulta acrescimo, em seguida a consulta exclusão elimina os registros armazenados na tabela MVAcrescimo.
Até ai tudo certo,funciona perfeitamente, mas eu queria fazer isso por código VBA, para não ficar aparecendo aquelas mensagens do access quando executa as consultas.
então peguei o exemplo e adaptei a minha necessidade, mas como disse não deu certo. Vejam como deixei o código e onde está o erro?

Private Sub BotaoAtualiza_Click()
Dim strSQL As String, strSQLBackupDados As String

strSQLBackupDados = "INSERT INTO MVEstoque Select * FROM MVAcrescimo"
DoCmd.RunSQL (strSQLBackupDados)
strSQL = "DELETE * FROM MVAcrescimo"
DoCmd.RunSQL (strSQL)
End Sub

mas as mensagens aparecem porque estou usando Macros. Então como colocar esse código junto com as macros, no mesmo procedimento? Por isso preciso ver se consigo fazer tudo via código ou outra opção.

se está a usar macros, abra a macro e insira o Defenir Avisos = Não na primeira linha e na ultima Defenir Avisos = Sim

Olá Ricardo,

Desculpe mas não sei como fazer isso.
Definir Avisos = Não na macro?
No campo Ação não encontrei essa opção. Onde seria exatamente?
Se eu conseguir isso já resolve o meu problema, pois com o código eu não estou conseguindo, continua dando erro de sintaxe.

EDITADO: Blz pessoal, éu não estava achando porque tinha que marcar todas as ações, para tornar visivel o DefinirAvisos.
Coloquei como informou o Ricardo e deu certo. Executei então as consultas de acrescimo e exclusão via macro e funcionou. Depois quero ver isso com calma via codigo VBA.
Obrigado pelas dicas de todos.