[Resolvido]Excluir registros de uma tabela, mas que fosse transferida para outra tabela no mesmo BD

Boa noite, senhores.

Abrindo um novo tópico, porque até localizei algo à respeito, mas creio que o exemplo exposto não satisfaz minha necessidade.
Estou elaborando um banco de dados de gerenciamento de Patrimônio. Gostaria de saber se existe alguma forma de transferir um registro de uma tabela para outra.
Exemplo: Tenho a tabela principal, e nesta tabela contém os bens...Em um dado momento que precisaria excluir um bem, este entraria em uma tabela bens excluídos, ou algo assim.
Estou usando o ACCESS 2010 para isto. Basicamente seria isso.
Desde já agradeço quaisquer esclarecimentos.
Obrigado.

no modo design do formulario >propriedades do formulario > guia Evento > coloque '[Procedimento do Evento]'
segue um exemplo de codigo insert

Código:


Private Sub Form_Delete(Cancel As Integer) 'linha criada automaticamente
'esse if eu coloquei pq no meu access eu tiro as confirmações de consulta ação, ai se o usuario clicar em nao o registro nao sera excluido
If MsgBox("Deseja excluir?", vbYesNo) = vbYes Then
        DoCmd.RunSQL "insert into livro(CODPROD,precoLivro)values(" & Nz(Me.CODIGO, 0) & "," & Me.PRECO & ")"
    Else
        Cancel = 1
    End If
End Sub


Fico grato pela dica. Vou tentar e logo lhe dou um retorno.

Ronaldo, Não estou sabendo como adaptar seu código ao meu DB. Me surge a dúvida nesta linha aqui: DoCmd.RunSQL "insert into livro(CODPROD,precoLivro)values(" & Nz(Me.CODIGO, 0) & "," & Me.PRECO & ")" Na guia procedimento do evento, há varias opções... Em qual delas eu tenho que colocar este código? Você poderia exemplificar por favor?
Mais uma vez, obrigado.

vamos la vou tentar te ajudar.
na imagem esta marcado os lugares onde vc deve ir para colocar o codigo no lugar correto.


'se vc reparar na imagem eu marquei os campos para vc observar como eu uso o insert do SQL
'abaixo vou explicar melhor o codigo

Código:


DoCmd.RunSQL "insert into livro(CODPROD,precoLivro)values(" & Nz(Me.CODIGO, 0) & "," & Me.PRECO & ")" 'no meu exemplo o insert fica assim
'abaixo a explicacao
dim SQL as String 'vou criar essa variavel para ajudar a organizar o codigo
SQL = "INSERT INTO NOME_DA_TABELA_DE_DESTINO(NOME_DO_CAMPO_1_NA_TABELA, NOME_DO_CAMPO_2_NA_TABELA) " & _
          " VALUES('" & ME.NOME_DO_CAMPO_DO_FORMULARIO_1 & "','" & ME.NOME_DO_CAMPO_DO_FORMULARIO_2 & "') "
'NOME_DA_TABELA_DE_DESTINO e onde que vc deseja salvar os dados
'NOME_DO_CAMPO_1_NA_TABELA e o lugar onde vc fala quais campos vc vai inserir o novo valor
'no meu caso eu escrevi que vou inserir CODPROD e precoLivro separado por virgula

'no values é a parte um pouco complicada, eu demorei pra pegar o esquema, mas vou tentar explicar um pouco.
'VALUES(valores_a_ser_inserido) e o lugar onde vc fala pro SQL quais sao os valores que vc vai inserir.
'o segredo aqui e concatenar string com variaveis
'ao atribuir um valor a uma string sempre devemos coloca-la entre aspas, certo. exemplo: variavel_Tipo_Texto = "texto qualquer"
'no comando sql é a mesma coisa, quando tem que inserir valores q sejam do tipo texto devemos usar aspas, mas se for numero nao precisa, repare o valor3
'INSERT INTO nomeTable(campo1,campo2,campo3)VALUES("valor1", "valor2", valor3)
'mas como estamos inserindo um comando sql no vba usamos a funcao docmd.RunSQL "comando sql".
'se vc reparar a funcao pede um comando em forma de texto, mas o comando sql tambem pede um campo em forma de texto
'e para isso usamos aspas, mas nao podemos usar as duas aspas ao mesmo tempo pq ira entrar em conflito, entao para o comando sql
'usamos aspas simples. ficando assim:
docmd.RunSQL "INSERT INTO NOME_TABELA(CAMPO1,CAMPO2,CAMPO3)VALUES('valor1','valor2',valor3)" 'lembrando que valor3 e numero entao nao precisa de aspas
'para finalizar. do jeito acima estamos escrevendo os valores na mao, mas se for usando os campos de variaveis vamos concatenar, lembrando q para concatenar
'usamos o sinal &
doCmd.RunSQL "INSERT INTO NOME_TABELA(CAMPO1,CAMPO2,CAMPO3)VALUES('" & me.valor1 & "','" & me.valor2 & "'," & me.valor3 & ")"  

'acho q com isso da pra vc tentar adaptar no seu codigo, se mesmo assim ainda nao conseguir montar seu insert,
manda o seu codigo q te ajudo a montar.



Boa noite, Ronaldo.
Vou estudar bem isso e tentar fazer aqui no meu projeto.
Lhe darei um retorno assim que eu tiver uma conclusão satisfatória.
Muitíssimo obrigado pela sua ajuda e atenção.

blz fera, boa sorte ai,
o forum aguarda seu retorno

Boa noite, Ronaldo. Batendo um pouco a cabeça esses dias e com uma pesquisa extra, consegui adaptar a sua instrução à minha necessidade. Fico imensamente agradecido pela sua disposição e ajuda. Obrigado mesmo.
Forte abraço Mestre.
Resolvido.

Olá a todos,

Eduardo, se está resolvido, não se esqueça de:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Ah sim, perdão. Não me atentei a isso.
Grato.