[Resolvido]DblClick - Insere produto no subform

Boa noite pessoal,


Estava pesquisando alguns exemplos para o que preciso em outros BDs mas não consegui adaptar ao meu.

Gostaria que no DblClick "O duplo clique" inserisse o produto em um subform.

No meu BD, o produto tem que ser inserido em um Subformulário e estou apanhando muito pra conseguir lançá-lo.

Vejam que se o usuário quiser ele pode abrir a caixa de combinação e escolher o produto ou digitá-lo ou poderia utilizar a lista lateral para dar dois cliques e inserir o produto.

Tenho um formulário de Vendas + Subform DetVendas relacionados e uma listbox contendo os produtos do estoque.

Se alguém puder me ajudar, agradeço.

bom dia....


Copie a Lista0  do formulário insere.
Remover o formulario insere do formulário venda.
Colar a lista0 no formulário venda.

Insira o código abaixa no evento duplo clique da lista0

Código:

Private Sub Lista0_DblClick(Cancel As Integer)
Forms!Vendas!DetVendas!Cod! = Me.Lista0.Column(0) 'cod
Forms!Vendas!DetVendas!Produtos = Me.Lista0.Column(1) ' produto
End Sub

Bons estudos.

Boa tarde Silvio,

Agradeço o retorno.

Seu exemplo deu quase certo.

Quando lança o primeiro produto funciona mas os demais não.

Ele está lançando fora de ordem.

Se clico no código 2 ele insere o código 10. Ta bagunçando as informações.

Tem alguma ideia do que seja?

Boa tarde...

Se fez conforme lhe expliquei acima, não é para dar erro algum.

Silvio,

Estava revendo aqui os procedimentos a algum momento não coloquei alguma informação importante e por isso estava dando erro.

Já corrigi isso.

Agora está funcionando mas ainda tem um pequeno movimento que não acho uma forma de aplicar.

Após o DblClick os dados são inseridos no formulário perfeitamente mas o cursor não se dirige ao novo campo para inserir mais produtos.

Tenho que clicar em novo campo para que ele mude o cursor e permita inserir novo produto com Dblclick.

Dá pra fazer automático? tipo isso:

Código:

Private Sub Lista0_DblClick(Cancel As Integer)
Forms!Vendas!DetVendas!Cod! = Me.Lista0.Column(0) 'cod
Forms!Vendas!DetVendas!Produtos = Me.Lista0.Column(1) ' produto
DoCmd.GoToRecord, "", acNewRec
Me.Cod.SetFocus
End Sub

Neste exemplo acima ele não aceita.

Bom dia...

Tente algo assim..

Private Sub Lista0_DblClick(Cancel As Integer)
Forms!Vendas!DetVendas!Cod = Me.Lista0.Column(0) 'cod ' aqui tem um ! a mais, retirei o mesmo
Forms!Vendas!DetVendas!Produtos = Me.Lista0.Column(1) ' produto
Forms!Vendas!DetVendas!Cod.setfocus
End Sub

Boa tarde,

Perfeito Silvio,

Seu exemplo lança os produtos da forma que queria.

Obrigado.

Agradecemos o retorno..