Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
soma e subtração em textbox [RESOLVIDO]
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Qua Jun 03, 2020 1:56 pm
soma e subtração em textbox [RESOLVIDO]
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?
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.
Re: soma e subtração em textbox
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.
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
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Qua Jun 03, 2020 1:56 pm
Re: soma e subtração em textbox
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.
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
- Reinaldo
- 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
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:
Altere sua rotina Soma
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
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
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Qua Jun 03, 2020 1:56 pm
Re: soma e subtração em textbox RESOLVIDO
Problema solucionado.
Gostaria de argadecer ao Saulo e ao Reinaldo, pois ajudaram bastante
Gostaria de argadecer ao Saulo e ao Reinaldo, pois ajudaram bastante