[Resolvido]No duplo click captura o código e copia para outro formulário

Bom dia pessoal, ja vi algumas respostas a perguntas parecidas com essa mas não me serviram, meu problema é o seguinte: tenho um formulario que é uma tela de vendas, nele ha um subformulario onde digito os produtos que serao vendidos, portanto, form continuo. Minha ideia era criar um botao lupa que qdo clicado abre outro form onde em uma caixa de texto digito qquer coisa relacionado ao produto e uma caixa de listagem faz a consulta na tabela produtos e me retorna todos os registros que contenham o que digitei. Até ai, ta perfeito, consegui, o problema agora é que queria que ao dar um duplo click no registro(produto) escolhido na caixa de listagem, esse produto fosse acrescentado naquela minha lista de produtos a serem vendidos na tela de vendas.

Detalhes a serem levados em conta:
o subformulario de produtos é continuo, ou seja, no momento que apertar para buscar o produto pode ja haver outros produtos na lista, entao ele teria que me retornar na linha que cliquei na lupa.

no evento duplo clique da sua caixa de listagem

Código:

On Error Resume Next
    Dim Selecionado As Boolean
    Dim Linha As Integer
    Linha = Me.SuaCaixaDeListagem.ListIndex + 1
    If Selecionado = True Then
          Forms!SeuFormulario![SeuSubFormulario].Form.CodigoDoProduto.Value = Me.SuaCaixaDeListagem.Column(0, Linha)
    End If
    DoCmd.Close acForm, "SeuFormularioPesquisa"
        Forms!SeuFormulario![SeuSubFormulario].CodigoDoProduto.SetFocus

Obrigado pela resposta parceiro, tentei esse codigo, ele nao da erro mas tbem nao tras o numero do registro para o subformulario, o que sera que esta errado?

Tem que ver como está o nome dos campos e do formulário para apontar certinho

Tem como postar parte do banco aqui para analisarmos?

De uma olhada ai Gilberlanio por favor. Obrigado

https://www.dropbox.com/s/c5yy5ryd805ml3d/teste.accdb?dl=0

Ola pessoal, alguem tem alguma sugestão para essa dúvida?

Amigo, no Duplo Clique coloque:

Código:

Private Sub lista_DblClick(Cancel As Integer)
CurrentDb.Execute "INSERT INTO [Produtos das vendas] ([COD PRODUTO], VINCULO) VALUES (" & Me.Lista.Column(0) & ", " & [Forms]![NOTAS_DE_VENDAS]![Código] & ")"
[Forms]![NOTAS_DE_VENDAS].Recalc
End Sub

Isere o Codigo do Produto e O Codigo da Venda (Vinculo) coloque os demais campos que precisar...

Perfeito fabio, muito obrigado pelo apoio, funcionou como queria. Obrigado tambem Gilberlanio. Sem querer abusar do conhecimento de vcs mas aproveitando o apoio, sera que poderiam sugerir algo nesta questao por favor

https://www.maximoaccess.com/t24616-imprimir-um-relatorio-diferentes-impressoras-automaticamente

desde ja agradeco

Fabio, ressucitando o topico, surgiu uma duvida aqui, a expressão que passou funcionou certinho, porem ao voltar para o formulario onde é inserido o valor da lista, ele cria uma novo registro, teria como ele substituir o registro ao qual foi selecionado inicialmente? Ex. há 5 registros no formulário, para cada registro há um botao para excluir o mesmo e outro que chama a caixa de listagem, onde esta sua sugestao, ao clicar duas vezes nela ela cria um novo registro e na vdd se cliquei no terceiro produto do formulario a intenção seria substituí-lo.

Desde ja agradeço

Amigo, e uma situação um pouco complicada... o recomendado mesmo é vc excluir o produto e incluir novo...

Entendo... vamos ver se mudando a situação refresca ou piora! rsrs. Vou colocar esse comando na busca do cliente, entao o form não é mais continuo. ao abrir o formulario, automaticamente ja será um novo registro. Sera que facilita um pouco por não ser um form continuo?

Sim, facilita sim... Por nao ser continuo, vc manda o Valor nao para a Tabela, e sim para o Campo do Formulario.

No duploClique coloque:

Assim ele insere no campo do Formulário esse Valor...
[forms]![NomeFormulario]![CodProduto] = Me.NomeCaixaListagem.Column(xx)

Se for novo registro blz, se for um registro que ja tenha algo, sera substituido pelo novo valor

Rsrsrs...perfeito, conhecimento em vba faz falta msm! Obrigado Fabio.