[Resolvido]Textbox multiplica campos sem atualização soma

caro amigos,

tenho textbox que multiplica cerca de 15 textbox. porem quando multiplico os valores desses textbox outros textbox não fazem o update das somas.

o ponto de partida estar no vlr1 se eu atualizar ele, ele faz a dinamica de contas entre os 15 textbox.

a ideia era atualizar os 15 assim que o textbox de multiplicação for usado.

alguma ideia ?


todos os 15 textbox estam com after_updated


segue o codigo deles.

Código:

Private Sub vlr1_AfterUpdate()
If IsNull(Me.vlr1) Then
Me.vlr1 = 0
Else
End If

If Me.coef1 = 0 Then
Me.INDREAJ1 = 0
Me.result1 = 0
Me.INDREAJ1 = 0
Me.VlrReaju1 = 0
Else
Me.result1.Value = [vlr1] / [coef1]
End If

If Me.result1 >= "1,0" Then
Me.result1.BackColor = vbRed
Me.result1.ForeColor = vbBlack
Else
Me.result1.BackColor = vbWhite
Me.result1.ForeColor = vbBlack

End If

If Me.vlr1 = 0 Then
Me.INDREAJ1 = 0
Me.VlrReaju1 = 0
Exit Sub
ElseIf Me.coef1 = 0 And Me.vlr1 > 0 Then
Me.INDREAJ1 = 0
Me.result1 = 0
Me.INDREAJ1 = 0
Me.VlrReaju1 = 0
Else
Else
Me.INDREAJ1.Value = Me.coef1 / Me.vlr1 - 1
End If

If Me.INDREAJ1 < 0 Then
Me.INDREAJ1.ForeColor = vbRed
Me.INDREAJ1.FontBold = True
ElseIf Me.INDREAJ1 = 0 Then
Me.INDREAJ1.ForeColor = vbBlack
Else
Me.INDREAJ1.ForeColor = vbGreen
Me.INDREAJ1.FontBold = False
End If

Me.VlrReaju1.Value = Me.consulAMB * Me.INDREAJ1

If Me.INDREAJ1 < 0 Then
Me.VlrReaju1.ForeColor = vbRed
Me.VlrReaju1.FontBold = True
ElseIf Me.VlrReaju1 = 0 Then
Me.VlrReaju1.ForeColor = vbBlack
Else
Me.VlrReaju1.ForeColor = vbGreen
Me.VlrReaju1.FontBold = False
End If



End Sub

Boa tarde,

Amigo, tente fazer o que lhe recomendei na mensagem nº 5 do tópico https://www.maximoaccess.com/t32580-resolvidosoma-textbox-nao-aclopado

Abraço.

poderia fazer um exemplo seu de BD?

eu tentei porem nao deu muito certo

Bom dia,

Segue..

Abraço.

boa tarde amigo

esta aparecendo erro execução 2135

esta propriedade é somente leitura e nao pode ser definida

provalmente ele esteja estourando com divisao = 0

alguma ideia ?

o que pode ser?


abraços

Olá a todos.

Nathan, não tenho oportunidade de testar o exemplo do colega.
No entanto, em que linha do código dá o erro?
O campo permite ateibuir valor, não está protegido, verifique.

Abraço a todos

Boa tarde,

Como disse o amigo ahteixeira, é importante você postar o que realmente está tentando fazer. Eu coloquei apenas um modelo genérico pra voce ter uma ideia de como funciona. Você tem que prever os erros, como é o caso de uma divisão por 0, que é uma indefinição matemática. Mas poste exatamente o que está tentando fazer e, se possível, um modelo para analisarmos melhor.

Abraço.

amigos seguem conforme solicitado.


a partede despesas é feita uma consulta aonde cruza os dados e faz a somatoria das contas.


aonde a galera vai realmente usar no formulario é na parte de VLR


E AS CONTAS ENTAO NA PARTE IN%REAJ, VLR REAJ no ANO E ∆%. é aonde fica exatamente os códigos com as contas no formulário.





abraços

Boa tarde,

Esse erro acontece porque nos campos INDREAJTOTAL, TotalVlrAno e TotalFATano voce colocou dados na propriedade Fonte do controle, ou seja, fez os calculos usando essa propriedade. Basta que apague isso e faça os calculos via código, através da função que faz as contas.

Eu até tentei começar a montar uma função aqui pra fazer as contas que precisa, a matemática em si é bem fácil, porém não faço ideia do que você está calculando de fato, então não tenho como fazer algo bem elaborado. Mas quaisquer dúvidas, posso tentar ajudar.

Abraço.

desculpa cassio o sumiço

esta resolvendo outra coisa aqui na empresa.


entao... vim relatar que tentei arrumar ou pensar numa forma diferente sobre uma parte do codigo que mandou.

Código:

Private Sub Form_Open(Cancel As Integer)
    Dim c As Control
   
    For Each c In Me.Controls
        If TypeOf c Is TextBox Then
            c.SetFocus
            c.Text = 0
        End If
    Next
   
    txt1.SetFocus
End Sub

quando ponho o textbox por divisão ele estoura e da pau no formulario, como havia relatado anteriormente a vc no topico.

vc teria alguma sugestão ?

abraços

tenta fazer uma divisão pelo codigo que me mandou.

acredito eu que seja algo relacionado que 0 nao divide por 0 e quando formulario carrega os 0 estoura entendeu?

acredito eu que se mudar algo no Dim c As Control, conseguimos executar.


abraços

Boa tarde,

Estude a sub fazCalculo. Nos campos "Atual", "Vlr" e "∆%", apliquei apenas nos dados Consulta AMB e Consulta P.S... voce entendendo o funcionamento, aplique no restante. Veja também o que a função faz nos calculos dos totais.

Abraço.

Ola a todos,

nathan, como ficou a situação?

Os membros do fórum merecem e agradecem o retorno.

Aguardamos.
Abraço

texeira!


desculpa


Resolvido.

o problema estava na hora de eu relacionar os campos.

Tranquilo, mas não esta a esquecer o colega Cassio

feito