[Resolvido]Inserir na venda

Pessoal preciso de uma ajudinha
como lançar o item na venda atraves de outro formulário
deixo o db exemplo para melhor  entedimento

Se tinha anexo, este não veio.

Estava com dificuldades com o anexo
https://www.dropbox.com/s/03yz8hqmy8qvzz4/Novo%28a%29%20Microsoft%20Access%20Banco%20de%20Dados.zip?dl=0

up

Bom dia,

Damasceno, com sua licença vou postar o código que tenho aqui e que já está alterado para os dados do nosso colega Agravina:

Agravina,

Cole este código ao clicar duas vezes no seu Form de Pesquisa:

Código:

Set db = CurrentDb()
Dim rsP As DAO.Recordset 'Variavel para pegar a tabela

Set rsP = db.OpenRecordset("SELECT * FROM tbldetalhe_sisPDV")


'Adiciono os dados na tabela DetVendas
    rsP.AddNew
    rsP("coddetalhevenda") = Forms!FrmpontodeVenda!codvenda
    'rsP("ID_Produtos") = Me.Lista0
    rsP("Quant") = 1
    rsP("vlrunitario") = Me.Lista0.Column(2)
    rsP("descricao") = Me.Lista0.Column(1) 'Forms!Cs_Produtos!Lista.Column(2) 'Forms!Vendas2!DetVendas_0!cbxdescrição2.Column(2)
    rsP.Update

'Fecha a Conexão aberta
Set rsP = Nothing
'atualiza os formulários
Forms!FrmpontodeVenda.Refresh
Forms!FrmpontodeVenda!frmdetalhesvenda.Requery
Forms!FrmpontodeVenda!frmdetalhesvenda.SetFocus
DoCmd.GoToRecord , , acNewRec
DoCmd.Close acForm, "FrmPesquisa"


Muito agradecido ao colega ARGONZALES
funcionou perfeitamente obrigado mais um vez!

Maravilha Agravina,

Não esqueça de finalizar o Tópico como resolvido.

Pereito!