... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Preencher subformulário com Listbox - Lanchonete

Usuário Sebastião:

Olá!

Estou desenvolvendo um sistema para controle de lanchonete e tenho duas idéias, no entanto, por mais que tento, nenhuma funciona. Preciso da sua ajuda.

1ª Tenho um formulário com uma caixa de listagem com os produtos e um subformulário.  Quero que ao dar duplo click na caixa de listagem, os produtos passem para o subformulário e ao finalizar o pedido, limpe o subformulário.

2ª Tenho um formulário com vários botões e um subformulário. Quero que ao dar duplo click nos botões, os produtos passem para o subformulário e ao finalizar o pedido, limpe o subformulário.

 

Suporte:

Sebastião, segue um exemplo que fiz para você. Escolha uma mesa e o formulário de pedido correspondente será aberto.

Controle de mesas

Com dois cliques no produto selecionado da listbox, os dados serão passados para o subformulário.

Controle de mesas

O código que transfere os valores da listbox para o subform é este:

Private Sub ListaProdutos_DblClick(Cancel As Integer)
Me!sfrmDetalhePedidos.SetFocus
DoCmd.GoToRecord , , acNewRec
Me!sfrmDetalhePedidos!Produto = Me!ListaProdutos.Column(1)
Me!sfrmDetalhePedidos!ValorUnitario = Me!ListaProdutos.Column(2)
Me!sfrmDetalhePedidos!Quantidade.SetFocus
End Sub

Usuário Sebastião :

Funcionou tudo certinho, Avelino!

Obrigado!

Download

 


 

 


Não há comentário

Envie seu comentário: