[Resolvido]Como passar dados de uma tabela para outra

Amigos tenho um formulário continuo chamado Equipamentos relacionado a tabela Equipamentos nesse formulário há um botão que faz a função de deletar o registro, ou seja, quando seleciono uma das linhas através dos seletores de registros e clico nesse botão, então aparece a pergunta deseja excluir o registro sim ou não.... Agora gostaria de saber se é possível criar um botão que ao invés de deletar o registro ele recorte o registro e automáticamente cole o registro em um outro formulário chamado Verificados que é identico ao formulário original porém com seus dados relacionados a outra tabela chamada Verificados!

Atualmente faço isso manualmente, vou lá clico no seletor de registro do registro que desejo, dou um Ctrl + X e depois abro o outro formulário identico e dou um Ctrl V e pronto, gostária de saber se é póssível automatizar essa ação!

Sei que é confuso, espero ter sido o mais claro possível qualquer dúvida eu explico melhor!

Obrigado amigos!

Coloque a instrução vba INSERT INTO à tabela Verificados, antes do comando deletar.

Exemplo pratico;


Private Sub SeuBotão_Click()
If MsgBox("deseja deletar ?", vbOKCancel, "Delete") = vbOK Then
CurrentDb.Execute "INSERT INTO SuaSegundaTabela SELECT * FROM SuaPrimeiraTabela WHERE SeuCampoID=" & Me.SeuCampoID
CurrentDb.Execute "Delete * from SuaPrimeiraTabela where SeuCampoID=" & Me.SeuCampoID
Me.Requery
Else
Exit Sub
End If
End Sub

É valido para form continuo...

Olá amigo, implementei mas deu um erro básico, da uma olhada!

Quando clico ele faz a pergunda deseja deletar? então clico OK dai é mostrado o seguinte erro:

Erro em tempo de execução '3061'

Parâmetros insuficientes. Eram esperados 2.

FIM ... DEPURAR


Essas são as tabelas e campos envolvidos!

Primeira tabela: Padrões2010
Segunda tabela: Padrões Vencidos
Campo de ambas as tabelas: Descrição do Padrão


O comando então ficou assim, será que tem algo errado?

Private Sub Comando13_Click()

If MsgBox("deseja deletar ?", vbOKCancel, "Delete") = vbOK Then
CurrentDb.Execute "INSERT INTO Padrões_Vencidos SELECT * FROM Padrões2010 WHERE Descrição_do_PadrãoID=" & Me.Descrição_do_Padrão
CurrentDb.Execute "Delete * from Padrões2010 where Me.Descrição_do_PadrãoID=" & Me.Descrição_do_Padrão
Me.Requery

Else
Exit Sub
End If

End Sub

Amigo tentei corrigir simplificando os nomes dos campos na medida do viável fui tirando acentos e espaços por que sei que pode atrapalhar e até erro de digitação, porém quando iniciei o sistema não sabia muito sobre isso e fui criando tudo com acento e espaços agora estou corrigindo, porém continua dando o mesmo erro!
Olha só como ficou!

As tabelas e o campo ficaram assim:

Primeira tabela: Padrões2010
Segunda tabela: PadroesVencidos
Campo de ambas as tabelas: Descricao

Só não tirei o acento da tabela Padrões2010 porque já está cheia de comandos envolvendo aquele nome e todos funcionam então achei melhor não mecher ali, mas o campo foi fácil e a outra tabela era nova...

O comando então ficou assim, será que tem algo errado?

Private Sub Comando13_Click()

If MsgBox("Deseja transferir o registro?", vbOKCancel, "Transferir") = vbOK Then
CurrentDb.Execute "INSERT INTO PadroesVencidos SELECT * FROM Padrões2010 WHERE DescricaoID=" & Me.Descricao
CurrentDb.Execute "Delete * from Padrões2010 where Me.DescricaoID=" & Me.Descricao
Me.Requery

Else
Exit Sub
End If

End Sub

e continua dando o mesmo erro...

Erro em tempo de execução '3061'

Parâmetros insuficientes. Eram esperados 2.

FIM ... DEPURAR

Por via das dúvidas testei o comando em outro formulário que tenho sem acento nem espaço nem nada, ficou assim:

As tabelas e o campo ficaram assim:

Primeira tabela: Vidrarias2010
Segunda tabela: VidrariasVerif
Campo de ambas as tabelas: Fabricante


O comando então ficou assim:

Private Sub Comando23_Click()

If MsgBox("Deseja Transferir?", vbOKCancel, "Delete") = vbOK Then
CurrentDb.Execute "INSERT INTO VidrariaVerif SELECT * FROM Vidrarias2010 WHERE FabricanteID=" & Me.FabricanteID
CurrentDb.Execute "Delete * from Vidrarias2010 where Me.FabricanteID=" & Me.FabricanteID
Me.Requery
DoCmd.OpenForm acForm, "VidrariaVerif"
Else
Exit Sub
End If

End Sub

e nesse está abrindo direto o VB com o seguinte erro:

Erro de compilação:

Método ou membro de dados não encontrado

e tarja a linha de amarelo Private Sub Comando23_Click()

e tarja a linha que coloquei abaixo de azul mas só no finalzinho que tem .FabricanteID

CurrentDb.Execute "INSERT INTO VidrariaVerif SELECT * FROM Vidrarias2010 WHERE FabricanteID=" & Me.FabricanteID


Alguém pode resolver? =)

Veja o simples;

http://dl.dropbox.com/u/771097/andre.rar

É necessario ter sempre em atenção, os nomes das tabelas e dos campos, bem como a formatação, se é texto leva aspas simples, se é numerico não leva aspas.

Outra coisa que eu gostaria que você entende-se, são as instruções em VBA, o que cada uma quer dizer, somente assim não cometeria um erro como este grifado a vermelho...

Delete * from Vidrarias2010 where Me.FabricanteID=" & Me.FabricanteID


Título do tópico alterado.

O meu era formato texto por isso que o comando não funcionava então estava sem aspas! ... mas o erro em vermelho que você citou ali veio do exemplo prático que você tinha colocado lá no primeiro post da uma olhada!
Outra pergunta, só pra constar, sem o ID no final do nome do campo o código não funciona também?
O meu campo não tinha ID no final, no código eu estava colocando de acordo com seu exemplo mas o campo em si na tabela não tinha e isso também estava me travando, pois, pensava que o ID era só no código mesmo!

Mas agora consegui implementar está resolvido, obrigado amigo! =)

Oi;

Realmente no exemplo pratico lá em cima, estava mal, (como sempre à pressa), mas no exemplo que lhe passei em .mdb estava correto.

Eu refiro-me sempre a um ID, como campo de chave primaria, você pode ter outro nome qualquer num campo de auto-numeração.

entendi... e só aproveitando, se o campo for texto, as aspas duplas devem ser colocadas aonde?

Nesse caso terá de levar as tais aspas simples;

Código:


CurrentDb.Execute "INSERT INTO VidrariasVerif SELECT * FROM Vidrarias2010 WHERE FabricanteID='" & Me.FabricanteID & "'"
CurrentDb.Execute "Delete * from Vidrarias2010 where FabricanteID='" & Me.FabricanteID & "'"


entendi... aspas simples... então tem aspas sobrando ai nesse código que postou não tem não? tem umas aspas duplas ai também...

Andre rapaz, gostaria de ir hoje de ferias descansado de que você entendeu a coisa...rsrsrsrs

Nada está a mais, não.

As aspas simples é para campos de formato texto, e as aspas duplas são para isolar a instrução.

Kkkk beleza, entendi pode ir para suas férias tranquilo =] bom descanso!