[Resolvido]Copiando apenas o registro atual de uma tabela para outra e apos excluindo o registro da tabela

Boa noite.

Antes de abrir este tópico li alguns tópicos, mas a informação não foi suficiente (ou mim noob) então agradeço a ajuda, pois estou desenvolvendo meu primeiro banco de dados na cara e na coragem...

Criei um banco de dados com 2 tabelas e 1 formulário só pra testar o código, seria assim:

Tabela1 = Campo: nomet1
Tabela2 = Campo: nomet2

FRM1 = que tem como fonte de registro a tabela1

Inseri alguns nomes no FRM1, andré, flávio e pedro que foram salvos na Tabela1.

Tentei copiar um dos registros da tabela1 para a tabela2 (mas queria apenas o que estivesse sendo visualizado no FRM1) deixando os registros restantes na tabela1.

Então selecionei o registro de pedro, inseri um botão no formulário e utilizando o evento "ao clicar" inseri o seguinte código:

DoCmd.RunSQL "INSERT INTO tabela2(nomet2) SELECT nomet1 FROM Tabela1"

Acontece que ele copiou todos os 3 registros e não apenas o que estava sendo visualizado no formulário.

Alguém podia me ajudar a modificar o código acima para só copiar o registro que está selecionado no formulário?

E se depois de copiar o registro para tabela2 eu queira deletar o registro originário da tabela1?

Agradeço.

Uma pergunta seu formulário é continuo?
Se puder poste o bd!

Tente assim:
No botão defina:

On Error Resume Next

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

Sou novo nesse fórum.

Acredito (intuição) que seja contínuo (não conheço o conceito), pois é um bd muito pequeno, só pra teste e está no padrão sem modificações.

Tentei postar o bd via forum, mas está dando erro...

Os seguintes erros foram encontrados

O arquivo adicionado não é valido: nome do arquivo incorreto.

tem de usar .zip? pq não está aceitando .accdb nem .rar

Hospedei no mega em formato .rar pois não vejo outra opção, mas sou usuário novo então não me ofenderei se não quiser baixar de uma fonte externa.

Segue link:

https://mega.nz/#!whFCmBaa!BcZs5IbH03-hwyeZOjQXgTBo6jrMgUfH2Lw4m-oV0eA

Quando terminei de postar apareceram outros tópicos relacionados com sugestões de solução, vou testando enquanto isto.

Testarei primeiro sua sugestão e aviso.

Grato.

Deu erro,

Eu apaguei o que eu tinha postado e substituí pelo que você enviou. O código novo fez a deleção de todos os registros da tabela1.

Depois testei botar os 2 juntos então primeiro ele copiou todos para a tabela2 e depois deletou todos da tabela1

O que eu gostaria é de copiar apenas o registro que está sendo visualizado no formulário para a tabela2 e depois excluir registro original da tabela1, deixando os outros.

Mas muito obrigado pela atenção.

veja:

Está funcional, vou aplicar em meu projeto.

Muito obrigado!

O fórum agradece!

Ah,

descobri o que é formulário continuo e já vou usar também, achei o layout muito melhor que o simples.