[Resolvido]Inserir dados de uma tabela em outra tabela

Boa noite à todos,

Criei um sistema simples de Pedidos onde utilizo as seguintes tabelas: tbl_pedidos, tbl_det_pedidos e tbl_cad_produtos. Gostaria que os campos, descricao_produto e preco_unitario da tbl_cad_produtos ficassem gravados na tbl_det_pedidos quando salvo o registro uma vez que apenas visualizo esses campos no frm_pedidos e no rel_pedidos.

Se alguém puder me ajudar, ficarei muito grato.

da uma buscada no forúm amigo, existe vários exemplos para o que precisa.

Boa tarde Lander,
Obrigado por responder.
Busquei no Fórum conforme sua orientação mas, como sou iniciante, não encontrei oque estava procurando.
Tentei usar o código conforme abaixo:

Private Sub btn_atualizar_Click()
   DoCmd.RunSQL "INSERT INTO NomeTabelaDestino(CampoDestino)SELECT CampoOrigem FROM TabelaOrigem Where TebelaDestino.Criterio = TabelaOrigem.Criterio"
End Sub

Mas o que acontece que é inserida uma nova linha na TabelaDestino não aproveitando os dados que já estavam inseridos no formulário.

Quando solicito ao código que insira a informação, quero que seja inserida na linha atual.

Se puder me ajudar fico muito grato.

https://www.maximoaccess.com/t25775-inserir-dados-em-uma-tabela-via-sql-pelo-vba

Veja nesse Topico...

Só lembrando que: Para atualizar um registro de uma tabela usa o UPDATE, ao invés do INSERT.

Ex de Update:

Private Sub btn_atualizar_Click()
CurrentDb.Execute "UPDATE TbClientes SET UltData ='" & Me.NOMECAMPOQUETEMADATA & "' WHERE CodCli = " & Me.txtCodCli & ""
End sub
Atualiza na tabela TbClientes o campo UltData, com uma data de um campo do formulario (NOMECAMPOQUETEMADATA) quando (where) o CodCli da tabela for igual ao valor do campo txtCodCli do formulário.

Se atente para a comparação do Código do cliente com o campo do formulário que tiver o código do cliente, pra so atualizar aquele cliente...

Seu código ficará mais ou menos assim:

Private Sub btn_atualizar_Click()
CurrentDb.Execute "UPDATE tbl_det_pedidos SET (descricao_produto,preco_unitario) VALUES ('" & Me.NOMECAMPODESCPRODUTO & "'," & NOMECAMPOPREÇOPRUDUTO & ")'" WHERE CodVENDA = " & Me.txtCODVENDA & ""
End sub


Estou partindo da idéia que o Codigo da venda ja está gravada na tabela tbl_det_pedidos, entao eu apenas atualizo esta venda com o produto e o preço...


Se nao conseguir poste seu BD pra dar uma olhada, pois no escuro fica complicado.

Boa tarde Fábio,

Estou enviando o meu BD.
Gostaria de inserir o código no botão Atualizar.

Obrigado por me ajudar

Desculpe-me Fábio, quis dizer botão Finalizar.

Na verdade amigo, você nem precisa usar comandos e tal...

Veja essas Videos Aula que o Gilberlanio Rocha fez... La ele monta paço a paço um sistema de Vendas básico igual o que você precisa...

https://www.youtube.com/playlist?list=PLzjZljpleOl4IFN_dsNW_PHlV28b74JS5

Fábio, obrigado pela dica.
Assisti aos vídeos do Gilberlândio Rocha mas o sistema que ele ensina a criar não atende ao que preciso.
Você verificou no meu BD que o preço do produto não fica gravado na tbl_det_saidas_prod? E é exatamente isso que preciso. Toda vez que atualizo os preços na tbl_cad_produtos altero todo o histórico de vendas. Preciso que, ao realizar uma venda o preço do produto fique gravado, automaticamente, na tbl_det_saidas_prod.

Amigão, nem precisa usar comandos Sql para o que vc precisa... Acho que ficou como precisa...



Veja se Atende as Suas Necessidades...

As principais Mudanças foram os Relacionamentos, e o Campo DescProd que armazenará a descrição ATUAL do Produto. Note que apos fazer uma venda vc pode alterar o preço, ate a descrição do produto... que não afetará as vendas já efetivadas...

Veja as Mudanças no Campo com o Codigo de Barras pois ele preenche automaticamente a descrição do produto e o Valor Unitário... Veja o Evento Apos atualizar dele...

Bom dia Fábio,
Muito obrigado por disponibilizar seu tempo para me ajudar! Eu pensando em "coisas de outro planeta" e você me mostrou uma solução simples e prática.
Espero um dia poder ajudar alguém como você me ajudou.
Este Fórum é realmente fantástico.
Obrigado à todos.

Quem bom que deu certo! Ate a proxima e boms estudos...