MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Subformulario desvinculado

    Compartilhe

    joão2017
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/09/2017

    [Resolvido]Subformulario desvinculado

    Mensagem  joão2017 em 21/2/2018, 23:19

    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
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 314
    Registrado : 13/12/2016

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  Alexandre Fim em 22/2/2018, 05:21

    Olá João,

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

    [Você precisa estar registrado e conectado para ver esta imagem.]

    É 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
    Anexos
    Vendas_2018.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (52 Kb) Baixado 49 vez(es)
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3451
    Registrado : 06/11/2009

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  Assis em 22/2/2018, 09:43

    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


    .................................................................................
    *** Só sei que nada sei ***

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  Noobezinho em 22/2/2018, 10:21

    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
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  CassioFabre em 22/2/2018, 10:55

    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.


    .................................................................................
    Só não tem código pra morte!
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3451
    Registrado : 06/11/2009

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  Assis em 22/2/2018, 11:34

    Cassis

    Funciona mas :

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

    Obrigado




    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3451
    Registrado : 06/11/2009

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  Assis em 22/2/2018, 11:55

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 314
    Registrado : 13/12/2016

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  Alexandre Fim em 22/2/2018, 12:28

    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.
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 314
    Registrado : 13/12/2016

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  Alexandre Fim em 22/2/2018, 12:39

    Senhores,

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

    []'s
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  CassioFabre em 22/2/2018, 12:42

    Bom dia Assis,

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

    Abraço.


    .................................................................................
    Só não tem código pra morte!

    joão2017
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/09/2017

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  joão2017 em 23/2/2018, 18:00

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

    Obrigado.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  Noobezinho em 23/2/2018, 19:47

    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

    joão2017
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/09/2017

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  joão2017 em 27/2/2018, 00:58

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

    Obrigado.
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 314
    Registrado : 13/12/2016

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  Alexandre Fim em 27/2/2018, 01:40

    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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3451
    Registrado : 06/11/2009

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  Assis em 8/3/2018, 22:12

    up


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3451
    Registrado : 06/11/2009

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  Assis em 17/3/2018, 15:21

    up


    .................................................................................
    *** Só sei que nada sei ***

    joão2017
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/09/2017

    Re: [Resolvido]Subformulario desvinculado

    Mensagem  joão2017 em 27/3/2018, 02:53

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

      Data/hora atual: 17/7/2018, 01:17