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

soma e subtração em textbox [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
wagnersimao
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qua Jun 03, 2020 1:56 pm

soma e subtração em textbox [RESOLVIDO]

Mensagem por wagnersimao »

Estou montando um projeto e estou tedo dificuldade em subtrair entre textbox, consigo sem problema algum de fazer as somas entre elas, porém as subtraçõs quando coloco o sinal de menos em qualquer textbox da erro, exemplo:

No projeto existe 15 textbox onde quero que saia o somatório no textbox 16 e isso consigo sem problemas mais vai ter momento que em uma das textbox vou ter que diminuir e com isso tenho que colocar o sinal de menos e quando faço isso o meu projeto da erro.

Existe algum jeito que consiga colocar o sinal de menos sem dar erro?
Editado pela última vez por wagnersimao em Sex Jun 05, 2020 10:06 am, em um total de 1 vez.


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.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: soma e subtração em textbox

Mensagem por srobles »

Wagner,

Estude o modelo em anexo e veja se o mesmo atende sua necessidade.

Como não disponibilizou um modelo contendo dados ficticios, elaborei um que, acredito eu, possa ajudar.

Adapte o mesmo conforme seu cenário.
Anexos
modelo_Wagner.zip
(22.4 KiB) Baixado 212 vezes


wagnersimao
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qua Jun 03, 2020 1:56 pm

Re: soma e subtração em textbox

Mensagem por wagnersimao »

Boa tarde Saulo.

Até atende mais gostaria que o resultado saisse direto na textbox sem a necessidade de clicar em calcular

Estou enviando o modelo para o entendimento melhor.

O que queria e que saia o resultado direto na textbox.
Anexos
CONTROLE DE ALUGUEL IMOBILIÁRIO TESTE 1.rar
(33.52 KiB) Baixado 205 vezes


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: soma e subtração em textbox

Mensagem por Reinaldo »

Lembrando
Primeiro: Um controle Textbox, por default "passa" seu valor como texto, assim para utilizar valores é necessario algumas "reconfigurações" desses valores.
Segundo: Utilizando o "disparo" de alguma rotina/sub rotina no evento change de um controle tenha em mente que cada caractere digitado efetua essa manobra, assim se digitar "-" a rotina e iniciada e ao tentar somar/reconfigurar esse caractere individualmente gerará erro.
Muito mais simples e compacto seria utilizar a solução do colega Saulo (muito bom e interessante seu modelo/exemplo; parabéns) , e para ter "resultado direto" a mesma poderia ser chamada no evento change dos controles;
Porem conforme seu modelo pode-se testar:
Altere nos controles necessários (os que podem/recebem o caractere de menos) o "disparo"conforme o exemplo:

Código: Selecionar todos

Private Sub Text_Recibo_Agua_Esgoto_Valor_Change()
    If Text_Recibo_Agua_Esgoto_Valor <> "-" Then Call soma
End Sub
Altere sua rotina Soma

Código: Selecionar todos

Sub soma()
Dim N1 As Double, N2 As Double, N3 As Double, N4 As Double, N5 As Double
Dim N6 As Double, N7 As Double, N8 As Double, N9 As Double, N10 As Double
Dim N11 As Double, N12 As Double, N13 As Double, N14 As Double, N15 As Double, N16 As Double, N17 As Double

If Text_Recibo_Aluguel_Valor <> "" Then N1 = CDbl(Text_Recibo_Aluguel_Valor)

If Text_Recibo_Agua_Esgoto_Valor <> "" Then N2 = CDbl(Text_Recibo_Agua_Esgoto_Valor)

If Text_Recibo_IPTU_Valor <> "" Then N3 = CDbl(Text_Recibo_IPTU_Valor)

If Text_Recibo_Condominio_Valor <> "" Then N4 = CDbl(Text_Recibo_Condominio_Valor)

If Text_Recibo_DA_Valor <> "" Then N5 = CDbl(Text_Recibo_DA_Valor)

If Text_Recibo_TX_Incendio_Valor <> "" Then N6 = CDbl(Text_Recibo_TX_Incendio_Valor)

If Text_Recibo_Luz_De_Servico_Valor <> "" Then N7 = CDbl(Text_Recibo_Luz_De_Servico_Valor)

If Text_Recibo_TX_Limpeza_Valor <> "" Then N8 = CDbl(Text_Recibo_TX_Limpeza_Valor)

If Text_Recibo_Desp_Ordinaria_Valor <> "" Then N9 = CDbl(Text_Recibo_Desp_Ordinaria_Valor)

If Text_Recibo_Dif_Agua_Valor <> "" Then N10 = CDbl(Text_Recibo_Dif_Agua_Valor)

If Text_Recibo_Dif_Condominio_Valor <> "" Then N11 = CDbl(Text_Recibo_Dif_Condominio_Valor)

If Text_Recibo_Dif__Mes_Anterior_Valor <> "" Then N12 = CDbl(Text_Recibo_Dif__Mes_Anterior_Valor)

If Text_Recibo_IRRF_Valor <> "" Then N13 = CDbl(Text_Recibo_IRRF_Valor)

If Text_Recibo_Acordo_Valor <> "" Then N14 = CDbl(Text_Recibo_Acordo_Valor)

If Text_Recibo_Outros_Valor <> "" Then N15 = CDbl(Text_Recibo_Outros_Valor)

Text_Recibo_SubTotal = (N1) + (N2) + (N3) + (N4) + (N5) + (N6) + (N7) + (N8) + (N9) + (N10) + (N11) + (N12) + (N13) + (N14) + (N15)
Text_Recibo_SubTotal = Format(Text_Recibo_SubTotal, "R$ #,##.00")

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.


wagnersimao
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qua Jun 03, 2020 1:56 pm

Re: soma e subtração em textbox RESOLVIDO

Mensagem por wagnersimao »

Problema solucionado.

Gostaria de argadecer ao Saulo e ao Reinaldo, pois ajudaram bastante


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