[Resolvido]Subformulario desvinculado

Boa noite!

Tem como ir adicionando produtos em um subformulario, só no subformuario não em tabela, e depois clicar num botão e adicionar tudo na tabela?
Igual os exemplos que tem aqui com caixa de listagem.
Sei que perde as facilidades e rapidez para desenvolver, que é o ponto forte do access.


Obrigado

Olá João,

Fiz um exemplo que atende à tua necessidade.
Segue modelo:



É necessário clicar no botão "Novo", e em seguida é só preencher os dados.

- Itens do Pedido
Selecionar o produto desejado no combobox, informar a Qtde de Vendas e os demais campos são calculados automaticamente.

Obs: Os valores dos produtos são provenientes da tabela de preços, previamente cadastrada.

Em seguida, clicar no botão "Inclui", e o sistema inclui os dados no listbox.

Após todos os dados preenchidos, clicar no botão "Gravar", e o sistema grava os dados do pedido e os itens do pedido que constam no listbox.

Espero ter ajudado

Abraço

Bom dia Alexandre

Ótimo exemplo .

E se errar ao registar o produto e já estiver na ListBox, como anular ?

Pena deixar repetir o mesmo produto, no mesmo pedido.

Obrigado

Assis

Para estornar um item da lista (listbox), deve-se clicar no item e na propriedade Ao apertar tecla dessa lista,

e quando apertar o Enter, (keycode =13), executar  o código para a operação.

Teremos que ter duas consultas atualização que no caso do exemplo do Alexandre é:

- para excluir o item da tabela tb_pedido_item;

- E para estornar a quantidade desse produto que está sendo cancelado ao estoque.

Embora o Alexandre tenha utilizado código VBA,  para quem não tem muita prática com ele,

fazer a consulta numa grade e depois passar o  SQL no vba, creio ser mais fácil.

[ ]'s

Bom dia,

Apenas um pitaco também quanto ao estorno:

- No caso de querer excluir o item basta que no evento Ao Apertar Tecla da listbox seja colocado:

Código:

If KeyCode = vbKeyDelete Then
        With lstProdutos
            If MsfBox("Deseja excluir o item " & .Column(1) & "?", VbQuestion + VbyesNo, "Exclusão") = VbNo Then Exit Sub

            .RemoveItem (.Column(0))
        End With
    End If

- No caso de querer reeditar o item, basta que no doubleclick da listbox preencher cada campo do lançamento do produto com os valores do item selecionado e, configurar o botão de adicionar para edição deste item.

Sobre a repetição de produtos, às vezes é uma solicitação do próprio cliente que se registre o mesmo produtos com quantidades diferentes. Um exemplo é quando você está comprando um mesmo produto pra você e pra outra pessoa. Na hora de enviar a nota para essa outra pessoa, seria interessante estar destacada a quantidade que cada um adquiriu do mesmo produto.

O exemplo é ótimo, e para quem está buscando essa funcionalidades serve muito bom pois não fornece TUDO que se gostaria de ter. Ótimo para estudos. Show!

Abraço.

Cassis

Funciona mas :

If MsfBox( -----> tem uma letra errada ( f ), trocar por If MsgBox.

Obrigado

Eliminar na ListBox no botão "Excluir" em baixo do Incluir


Private Sub cmdExcluir_Click()

Dim varItem As Variant
If IsNull(Me.lstProdutos) Then
MsgBox " Nenhum produto selecionado para eliminar.", vbCritical, "Aviso"
Exit Sub
Me.cmdExcluir.SetFocus
End If

On Error GoTo 1
      With lstProdutos
           If MsgBox("Deseja excluir o item " & .Column(1) & "?", vbQuestion + vbYesNo, "Exclusão") = vbNo Then Exit Sub

           .RemoveItem (.Column(0))
       End With
1:
End Sub

Bom dia Senhores,
Esqueci de avisar que alguns controles do formulário eu não programei.
Eu quis apenas mostrar a possibilidade de incluir registros usando a ListBox e deixar aberto para as devidas implementações.
Fiquem à vontade para as melhorias da Tela de Pedidos...
Abraço a todos.

Senhores,

Baixei o arquivo aqui na empresa e estou realizando as melhorias no sistema.
Aguardem.....rss

[]'s

Bom dia Assis,

Digitei isso aqui no fórum. Erro de digitação mesmo. Mas você corrigiu corretamente.

Abraço.

Boa tarde!Exelente exemplo! Muito obrigado, mas tem como fazer com subformulario em vez de listbox?

Obrigado.

Um ressalva da minha parte

Como estou acostumado a fazer a baixa do estoque item por item, sugeri que fizesse o mesmo quando houvesse o estorno.

Não me ative que a baixa do estoque do exemplo dado, acontece quando se clica no botão salvar.

Logico que dessa maneira, é só deletar o item da listbox.

João

Sim! Da para fazer com um subformulário continuo, funciona do mesmo jeito, só que ao invés de item da lista é registro do subform.

Mas creio que com listbox é menos trabalhoso.

[ ]'s

Boa noite!Entendi amigo, eu estou tentando aqui, se conseguir aviso.

Obrigado.

Boa noite Senhores,

Eu postei anteriormente que ia terminar o exemplo, mas não tive tempo hábil para fazê-lo.
Peço desculpas por não ter feito, mas acredito que em poucas linhas de código alguém possa melhorá-lo.

Att,

Alexandre Fim

up

up

Boa noite! Conseguí fazer, mas pelo trabalho que deu pra descobrir os códigos dava pra ter aprendido vb.net.
Obrigado.