Preencher subformulário com Listbox - Lanchonete
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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.
Com dois cliques no produto selecionado da listbox, os dados serão passados para o subformulário.
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 |