[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

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 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.

up

up

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