Excluir dados de uma tabela e inserir em outra automaticamente

Ola pessoal, estou com um problema para transferir os dados de uma tabela para outra, como se fosse um arquivo morto, porém, existem campos multiplos e estou com dificuldade na construção dos comandos, alguém poderia me ajudar?

Estava usando o seguinte codigo, mas tenho duvidas ao acrescentar os dados da minha tabela:


DoCmd.RunCommand acCmdSaveRecord

CurrentDb.Execute "INSERT INTO Tab2SAIDA(cod,nome,[dt nasc],funcao, usuario) VALUES('" & Me.NumP & "', '" & Me.txtNome & "', '" & Me.txtData & "', '" & Me.txtFuncao & "','" & Me.CboUsuario & "')"

If Not IsNull(DLookup("cod", "Tab1ENTRADA", "cod=" & Me.NumP)) Then
MsgBox "SAIDA CONCLUÍDA!", vbOKOnly + vbInformation, "Sucesso"
CurrentDb.Execute "DELETE * FROM Tab1ENTRADA WHERE cod=" & Me.NumP & ""
Else
MsgBox "Ocorreu algum erro na cópia do arquivo. O mesmo não foi copiado. Verifique.", vbOKOnly + vbCritical, "Erro"
End If

Olá, seja bem vindo ao fórum! Qual é a dúvida quando ao código? Para mim me parece tudo em ordem, uma vez que você tem aí um DLookup que procura pelo código inserido e, caso o encontre, dá a certeza de que o registro foi copiado. Se a sua dúvida é ter certeza de que os dados estão lá na tabela, pode incluir eles na mensagem. Algo assim:

Código:

DoCmd.RunCommand acCmdSaveRecord

CurrentDb.Execute "INSERT INTO Tab2SAIDA(cod,nome,[dt nasc],funcao, usuario) VALUES('" & Me.NumP & "', '" & Me.txtNome & "', '" & Me.txtData & "', '" & Me.txtFuncao & "','" & Me.CboUsuario & "')"

If Not IsNull(DLookup("cod", "Tab2SAIDA", "cod=" & Me.NumP)) Then

Dim QueroTerCertezaAbsoluta As String
QueroTerCertezaAbsoluta = DLookup("cod", "Tab2SAIDA", "cod=" & Me.NumP) & " - " & DLookup("Campo2", "Tab1ENTRADA", "cod=" & Me.NumP) & " - " & DLookup("Campo3", "Tab1ENTRADA", "cod=" & Me.NumP)

If MsgBox("Parece que está tudo certo. Confirme os dados abaixo." E VBCRLF & VBCRLF & QueroTerCertezaAbsoluta, vbYesNo + vbInformation, "Verificando resultado") = vbNo Then
Else

MsgBox "SAIDA CONCLUÍDA!", vbOKOnly + vbInformation, "Sucesso"
CurrentDb.Execute "DELETE * FROM Tab1ENTRADA WHERE cod=" & Me.NumP & ""

End If

Else
MsgBox "Ocorreu algum erro na cópia do arquivo. O mesmo não foi copiado. Verifique.", vbOKOnly + vbCritical, "Erro"
End If

No meu caso a tabela de onde os dados irão sair se chama tblcadastro e irão para tbltemporarioseoutros, porém, algumas duvidas.

No campo (cod,nome,[dt nasc],funcao, usuario) VALUES('" & Me.NumP & "', '" & Me.txtNome & "', '" & Me.txtData & "', '" & Me.txtFuncao & "','" & Me.CboUsuario & "')" o que colocar? sendo os campos da minha tabela: nome,identidade,CPF,Endereço,Bairro,Cidade,CEP,UF,Telefone,Data nascimento,Natural,Mãe, Pai,Proprietario,Serviços Prestados, Observações, Foto, Lote, Quadra, Bloco, Endereço proprietario, Anexo. (este ultimo anexos de documentos digitalizados)
Neste caso como construiria esse codigo?




DoCmd.RunCommand acCmdSaveRecord

CurrentDb.Execute "INSERT INTO tbltemporarioseoutros(cod,nome,[dt nasc],funcao, usuario) VALUES('" & Me.NumP & "', '" & Me.txtNome & "', '" & Me.txtData & "', '" & Me.txtFuncao & "','" & Me.CboUsuario & "')"

If Not IsNull(DLookup("cod", "tblCadastro", "cod=" & Me.NumP)) Then
MsgBox "SAIDA CONCLUÍDA!", vbOKOnly + vbInformation, "Sucesso"
CurrentDb.Execute "DELETE * FROM tblCadastro WHERE cod=" & Me.NumP & ""
Else
MsgBox "Ocorreu algum erro na cópia do arquivo. O mesmo não foi copiado. Verifique.", vbOKOnly + vbCritical, "Erro"
End If

End Sub

Essa função presume que todos os campos a serem copiados estejam em campos no formulário e tudo que você precisaria fazer, seria apenas mudar os nomes das tabelas e dos campos para adaptar ao seu.

Com sua licença mestre cliquio!

Tabelas com campos com nomes e dados iguais.

Na propriedade de evento ao fechar do form ou no evento ao
Clicar de um botão defina:




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

strSQLBackupDados = "INSERT INTO tbltemporarioseoutros Select * FROM tblcadastro "
DoCmd.RunSQL (strSQLBackupDados)

strSQL = "DELETE * FROM tblcadastro "
DoCmd.RunSQL (strSQL)

End Sub

Evento ao fechar do form:



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

strSQLBackupDados = "INSERT INTO tbltemporarioseoutros Select * FROM tblcadastro"
DoCmd.RunSQL (strSQLBackupDados)

strSQL = "DELETE * FROM tblcadastro"
DoCmd.RunSQL (strSQL)

End Sub

Ve se ajuda?