Preencher subformulário com Listbox - Lanchonete
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
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 |