[Resolvido]Digitar o Código ou Selecionar um Item da Lista em outro formulário listbox

Estou necessitando adicionar uma função em um sistema que fiz na escola que trabalho.
Como o Sistema já está muito grande, fiz um simulado da função que preciso adicionar e coloquei no anexo.
Se puderem me ajudar... é o seguinte.

Preciso que, no exemplo anexo:
Estou no frm_cliente, o qual tem um subformulário chamado frm_pedido com um botão de busca... o qual abre a caixa de pesquisa... até aí tudo bem...

O que eu preciso é quando localizar o item na caixa de pesquisa e clicar nele, insira o código do produto no subformulário frm_cliente... para preencher item do pedido...

No evento ao clicar 2x da sua Caixa de Listagem coloque:

Private Sub lst_produto_DblClick(Cancel As Integer)
CurrentDb.Execute "INSERT INTO Tb_pedido (id_Cliente,Produto) VALUES (" & [Forms]![frm_cliente]![Código] & " , " & Me.lst_produto.Column(0) & " )"
Forms.frm_cliente.Recalc
End Sub

Obrigado Fábio.
O código funcionou mas não consegui resolver 100% meu problema. Fiz uma pequena alteração para colocar o código do produto.
Eu preciso inserir o código do produto na cbobox que tem as colunas acopladas, para preencher os demais campos (nome e valor), mas o código do produto é inserido no txtbox e aí não consigo puxar o nome e o valor do produto (ver anexo .jpg).

Bom final de semana.

Imagem sem condiçoes de entender nada...

Desculpa...
Agora imagem melhor, com o projeto junto.

Boa tarde.
Se alguém puder me ajudar...

O código do Fábio acima funcionou mas não consegui resolver 100% meu problema. Fiz uma pequena alteração para colocar o código do produto.
Eu preciso inserir o código do produto na cbobox que tem as colunas acopladas, para preencher os demais campos (nome e valor), mas o código do produto é inserido no txtbox e aí não consigo puxar o nome e o valor do produto (ver anexos no post anterior).

Amigo, essa é a maneira que Recomendo que vc faça...

Veja se atende suas Necessidades...


Arquivo Editado...

Fábio, obrigado pela solução que você postou.
Infelizmente preciso manter o campo do CÓDIGO DO PRODUTO na cbobox ou algo semelhante. Até consegui adicionar o campo onde aparece o código do produto, mas aí não é possível digitar o código... ele carrega automaticamente quando escolho o produto.
Não vou poder usar assim, pois, por exemplo:
- se eu precisar substituir/editar um item, será necessário excluir o registro e adicionar novamente (não posso editar digitando o código)
- se eu quiser digitar o código do produto, não será possível, será necessário pesquisar o produto.

Vou deixar o post aberto mais uns dias... e testando alguma solução.
Se mais alguém puder colaborar....

Amigo, Baixe o arquivo da Mensagem anterior... Editei ele pra Ficar igual o seu projeto anterior...

- se eu precisar substituir/editar um item, será necessário excluir o registro e adicionar novamente (não posso editar digitando o código)
- se eu quiser digitar o código do produto, não será possível, será necessário pesquisar o produto.

Confesso que nao entendi sua colocaçao, pois veja bem...

Para substituir um dos itens, basta vc ir la na Combo e selecionar o novo produto...

Basta digitar o Codigo do produto na cmbo, como por exemplo 333 que ele acha o produto...

OK, Fábio.

O exemplo que você postou na mensagem nº 7 está com as funções como eu preciso.
------------ OBRIGADO ----------------
Agora surgiu outra dúvida...
A função que insere a partir da caixa de pesquisa sempre vai inserir um item novo no formulário. Correto até aí.
É possível editar um item (produto) já cadastrado, utilizando a caixa de pesquisa (ou criar outra caixa com outra função VBA) que não insere no final, mas altera um já cadastrado?

Não sei se devo abrir novo tópico ou posso continuar neste.

dando um UP na mensagem nº 10
""
Agora surgiu outra dúvida...
A função que insere a partir da caixa de pesquisa sempre vai inserir um item novo no formulário. Correto até aí.
É possível editar um item (produto) já cadastrado, utilizando a caixa de pesquisa (ou criar outra caixa com outra função VBA) que não insere no final, mas altera um já cadastrado?

Não sei se devo abrir novo tópico ou posso continuar neste.
""

Resolvido.

.