[Resolvido]Transferir registros excluídos

Boa noite amigos.

Fiz um Bd e agora estou passando por problemas.
Gostaria de saber se tem como, ao usuario excluir um registro ele seja transferido para outra tabela.

Procurei no site e achei, só que funciona quando o BD está vinculado a tabela. ou seja, quando divido o banco de dados ele não funciona

Exemplo encontrado:

Private Sub btnDeletar_Click()

On Error Resume Next

DoCmd.SetWarnings False
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

   If MsgBox("Confirma Exclusão?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then
   
       Set db1 = CurrentDb
       
       Set rs1 = db1.OpenRecordset("tbl_vendas1", dbOpenTable)
           
         With rs1
       
       .AddNew
       ![codvendas] = Me.codvendas
       ![Data_vendas1] = Me.Data_vendas
       ![Data_retirada1] = Me.Data_retirada
             
      
       .Update
               
       End With
              MsgBox "Exclusão confirmada.", vbOKOnly + vbInformation, "Concluído"

DoCmd.RunCommand acCmdDeleteRecord

   End If

End sub


Assim desmembrado:

        tbl_vendas1         tbl_vendas

       ![codvendas] = Me.codvendas
       ![Data_vendas1] = Me.Data_vendas
       ![Data_retirada1] = Me.Data_retirada

Sendo que tbl_vendas1 e tbl_vendas estão no Back End

A tabela de backup tem de ter sempre os mesmo campos e nomes da tabela original, ou seja:

1- A tabela 2, deverá ser uma cópia da tabela 1
2 - A tabela 2, não pode ter chave primária com autonumeração, o campo Código terá de ser apenas numerico

Código:

Private Sub Comando4_Click()

    If MsgBox("Confirma Exclusão?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then
    
CurrentDb.Execute "INSERT INTO Tabela2 SELECT * FROM Tabela1 WHERE Código =" & Me.Código
        
        MsgBox "Exclusão confirmada.", vbOKOnly + vbInformation, "Concluído"
    
DoCmd.RunCommand acCmdDeleteRecord

    End If
End Sub

Muito Obrigado JPaulo.

Mas para tirar outra dúvida.

Eu tenho como fazer isso com duas tabelas, ou seja, tenho a tabela 1 e a tabela 3(sendo que seria um subformulario)  que são a original.

A tabela 2 seria para onde os registros apagados iriam. Tem como fazer isso?

Sim dá, no Ms Access dá para fazer quase tudo o se possa imaginar;

NOTA:
A tabela de backup, não pode ter chave primária, já lhe tinha dito acima;

Código:

Private Sub Comando4_Click()
'pergunta, se responde NÃO, morre aqui
If MsgBox("Confirma Exclusão?", vbYesNo + vbQuestion, "CONFIRMAR") = vbNo Then Exit Sub
'insere o registro da tabela1 na tabela2
CurrentDb.Execute "INSERT INTO Tabela2 (Código,Nomet2, Material2) SELECT tabela1.Código, tabela1.Nomet1, tabela1.material from tabela1 WHERE Tabela1.Código =" & Me.Código
'insere o registro da tabela3 na tabela2
CurrentDb.Execute "INSERT INTO Tabela2 (Código,Nomet2, Material2) SELECT tabela3.Código, tabela3.Nome, tabela3.Endereço from tabela3 WHERE Tabela3.Código =" & Me.Código
'apaga o registro da tabela3, primeiro por causa da relação com a tabela1
CurrentDb.Execute "DELETE * FROM Tabela3 WHERE Tabela3.Código =" & Me.Código
'apaga o registro da tabela1
CurrentDb.Execute "DELETE * FROM Tabela1 WHERE Tabela1.Código =" & Me.Código
'atualiza o form
Me.Form.Requery
MsgBox "Exclusão confirmada.", vbOKOnly + vbInformation, "Concluído"
End Sub

Já realizou algum teste ?
Funcionou ?

Bom dia JPaulo

Entendi o que você fez mas ao aplicar no meu BD original deu alguns problemas.
Te mandei uma msg no PVD e gostaria de passar o meu B para você analisar e verificar o que estou fazendo errado.

Por etica do fórum, não podemos resolver por PM.
Envie o banco para o meu email e coloco aqui o resultado para todos.

jpaulo65@gmail.com

Boa noite JPaulo

Desculpa em colocar no Privado.

Enviei para seu email o BD.

Como falei antes nas dúvidas consegui excluir alguns registros mas não está aparecendo determinado produto.

Prometo que quando resolver vou colocar a resolução aqui neste Forum.

Boa tarde JPaulo

Reenviei

Bom dia

O trecho de código da mensagem Nº4, mantêm-se.
Banco reenviado de volta.

Código:

Private Sub Comando4_Click()
'pergunta, se responde NÃO, morre aqui
If MsgBox("Confirma Exclusão?", vbYesNo + vbQuestion, "CONFIRMAR") = vbNo Then Exit Sub
'insere o registro da tabela1 na tabela2
CurrentDb.Execute "INSERT INTO Tabela2 (Código,Nomet2, Material2) SELECT tabela1.Código, tabela1.Nomet1, tabela1.material from tabela1 WHERE Tabela1.Código =" & Me.Código
'insere o registro da tabela3 na tabela2
CurrentDb.Execute "INSERT INTO Tabela2 (Código,Nomet2, Material2) SELECT tabela3.Código, tabela3.Nome, tabela3.Endereço from tabela3 WHERE Tabela3.Código =" & Me.Código
'apaga o registro da tabela3, primeiro por causa da relação com a tabela1
CurrentDb.Execute "DELETE * FROM Tabela3 WHERE Tabela3.Código =" & Me.Código
'apaga o registro da tabela1
CurrentDb.Execute "DELETE * FROM Tabela1 WHERE Tabela1.Código =" & Me.Código
'atualiza o form
Me.Form.Requery
MsgBox "Exclusão confirmada.", vbOKOnly + vbInformation, "Concluído"
End Sub

Muito obrigado JPaulo.

Funcionou perfeitamente.

Agora vou estudar o procedimento utilizado e me aprimorar...

Obrigado pelo retorno o fórum agradece.