Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Ajuda listbox e Caixa de Texto

Perguntas e Repostas sobre os artigos, posts e arquivos que são postados no site
maiconsnp
Colaborador
Colaborador
Mensagens: 30
Registrado em: Qui Jun 05, 2014 10:37 pm

Ajuda listbox e Caixa de Texto

Mensagem por maiconsnp »

Boa Noite
fiz uma pequena aplicação em VBA porem esta acontecendo o seguinte eu criei um evento onde eu adiciono itens a uma listbox, dai dou um duplo click na linha a qual eu desejo modifica-la e faço as alterações necessárias porem quando clico no botão de adicionar o item que tem a mesma função de atualizar no campo que criei chamado de lb_total que é uma caixa de texto.

ele esta fazendo somente a soma dos item sempre exemplo

se eu adiciono um item q custa R$ 5,00 ai modifico ele por algum motivo e altero ele para R$ 2,00 ao invés de aparecer no lb_total o valor de R$ 2,00 ele faz a soma dos dos valor no caso a lb_total fica aparecendo R$ 7,00 e assim a cada modificação tanto para + quanto pra - ele sempre vai somando

gostaria de que me ajudasse neste caso se possível.

se necessario envio o projeto para uma analise

desde já obrigado


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
netocasaroli
Consultor
Consultor
Mensagens: 219
Registrado em: Seg Mai 11, 2015 5:24 pm
Localização: Londrina-PR

Re: Ajuda listbox e Caixa de Texto

Mensagem por netocasaroli »

Maicon,

Bem-vindo ao Fórum.

Aparentemente o problema é na variável que armazena o valor que vai ser jogado em lb_total. De qualquer forma, se puder anexar seu projeto aqui, fica mais fácil para podermos ajudá-lo.


maiconsnp
Colaborador
Colaborador
Mensagens: 30
Registrado em: Qui Jun 05, 2014 10:37 pm

Re: Ajuda listbox e Caixa de Texto

Mensagem por maiconsnp »

ok vou postar para uma analise o problema corre dentro da guia orçamento.
Anexos
Projeto.zip
(1.19 MiB) Baixado 614 vezes


Avatar do usuário
netocasaroli
Consultor
Consultor
Mensagens: 219
Registrado em: Seg Mai 11, 2015 5:24 pm
Localização: Londrina-PR

Re: Ajuda listbox e Caixa de Texto

Mensagem por netocasaroli »

No UserForm frm_orcamento utilize o seguinte código no evento Click do botão cmd_adicionar:

Código: Selecionar todos

Private Sub cmd_adicionar_Click()

    Dim i As Integer
    Dim Soma As Double

If txt_codigo_produto.Text <> "" And combo_descricao_produto.Text <> "" And txt_qtd.Text <> "" And txt_val_unitario.Text <> "" Then
    x = ListBox1.ListCount
    
    'Verifica se o item já está na listbox
        For a = 0 To ListBox1.ListCount - 1
            If ListBox1.List(a, 0) = txt_codigo_produto Then
                x = a: GoTo pula
            Exit For
            End If
        Next
        
        ListBox1.AddItem txt_codigo_produto.Text
        
pula:
    
    ListBox1.List(x, 1) = txt_codigo_produto.Text
    ListBox1.List(x, 2) = combo_descricao_produto.Text
    ListBox1.List(x, 3) = txt_qtd.Text
    ListBox1.List(x, 4) = Format(txt_val_unitario.Text, "currency")
    ListBox1.List(x, 5) = Format(txt_valor_produto.Text, "currency")
    
    
    For i = 0 To Me.ListBox1.ListCount - 1
        Soma = Soma + Me.ListBox1.List(i, 5) * 1
    Next i
    
    lb_total.Caption = Format(Soma, "currency")
    
    
    txt_codigo_produto.Text = ""
    txt_codigo_produto.Text = ""
    combo_descricao_produto.Text = ""
    txt_qtd.Text = ""
    txt_val_unitario.Text = ""
    txt_valor_produto.Text = ""
    
    
Else
    MsgBox "Campos obrigatórios não preenchidos", vbInformation + 0, "Campos Obrigatórios"
End If

End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


maiconsnp
Colaborador
Colaborador
Mensagens: 30
Registrado em: Qui Jun 05, 2014 10:37 pm

Re: Ajuda listbox e Caixa de Texto

Mensagem por maiconsnp »

Perfeito o código amigo, esse código pode ser aplicado no botão excluir também ou seria uma tratativa diferente, pois o botão excluir somente remove o item da listbox não faz o calculo.


Avatar do usuário
netocasaroli
Consultor
Consultor
Mensagens: 219
Registrado em: Seg Mai 11, 2015 5:24 pm
Localização: Londrina-PR

Re: Ajuda listbox e Caixa de Texto

Mensagem por netocasaroli »

Para excluir, use o seguinte código:

Código: Selecionar todos

Private Sub btn_excluir_item_Click()

    Dim i As Integer
    Dim Soma As Double

    For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
       ListBox1.RemoveItem (i)
       Soma = Soma + Me.ListBox1.List(i, 5) * 1
    End If
    Next i
    
    lb_total.Caption = Format(Soma, "currency")
    

End Sub


maiconsnp
Colaborador
Colaborador
Mensagens: 30
Registrado em: Qui Jun 05, 2014 10:37 pm

Re: Ajuda listbox e Caixa de Texto

Mensagem por maiconsnp »

Neto, muito obrigado pela ajuda resolveu meu problema de forma simples e muito funcional parabéns pelo grande trabalho. :D

neste projeto pretendo colocar para imprimir o contrato porem tentei colocar o contrato dentro da planilha mas ele fica muito fora do alinhamento e possível fazer com que o VBA transfira o preenchimento dos campos do contrato para um Doc. de Word. se sim essa aplicação seria muito complicada?


Avatar do usuário
netocasaroli
Consultor
Consultor
Mensagens: 219
Registrado em: Seg Mai 11, 2015 5:24 pm
Localização: Londrina-PR

Re: Ajuda listbox e Caixa de Texto

Mensagem por netocasaroli »

Maicon,

Na verdade o Word não é o meu forte... Mas acredito que é possível sim, pois os aplicativos da suite MS Office se comunicam muito bem entre si. Sei também que é possível através do VBA no Excel criar u objeto do Word e trabalhar nele, mas nunca trabalhei com isso. A única dica que eu poderia dar é criar um modelo padrão e inserir campos como uma Mala Direta e vincular esse documento à base de dados (Access).

Mas nesse caso, minha contribuição não vai além disso... kkkk... Foi mal.

Se alguém do fórum puder colaborar, será muito bem-vindo!!!!


maiconsnp
Colaborador
Colaborador
Mensagens: 30
Registrado em: Qui Jun 05, 2014 10:37 pm

Re: Ajuda listbox e Caixa de Texto

Mensagem por maiconsnp »

Neto, de qualquer forma muito obrigado pois sua contribuição foi de grande importância na execução de minha aplicação sou grato por isso parabéns pelo grande trabalho.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder