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]Textbox multiplica campos sem atualização soma

    Compartilhe

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 15/05/2013

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

    Mensagem  maguim em 16/2/2018, 17:43

    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


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  CassioFabre em 16/2/2018, 18:47

    Boa tarde,

    Amigo, tente fazer o que lhe recomendei na mensagem nº 5 do tópico [Você precisa estar registrado e conectado para ver este link.]

    Abraço.


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

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 15/05/2013

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

    Mensagem  maguim em 19/2/2018, 11:25

    poderia fazer um exemplo seu de BD?

    eu tentei porem nao deu muito certo


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  CassioFabre em 19/2/2018, 12:33

    Bom dia,

    Segue..

    Abraço.
    Anexos
    exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 5 vez(es)


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

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 15/05/2013

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

    Mensagem  maguim em 19/2/2018, 17:25

    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


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 19/2/2018, 17:50

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

    Respeito às Regras 100%

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

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

    Mensagem  CassioFabre em 19/2/2018, 18:05

    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.


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

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 15/05/2013

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

    Mensagem  maguim em 19/2/2018, 19:17

    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
    Anexos
    teste simulador.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (85 Kb) Baixado 6 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  CassioFabre em 19/2/2018, 19:53

    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.


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

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 15/05/2013

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

    Mensagem  maguim em 1/3/2018, 11:47

    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



    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 15/05/2013

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

    Mensagem  maguim em 1/3/2018, 11:49

    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



    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  CassioFabre em 1/3/2018, 15:53

    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.
    Anexos
    Database4.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (171 Kb) Baixado 5 vez(es)


    .................................................................................
    Só não tem código pra morte!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 25/9/2018, 20:25

    Ola a todos,

    nathan, como ficou a situação?

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

    Aguardamos.
    Abraço

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 15/05/2013

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

    Mensagem  maguim em 25/9/2018, 20:46

    texeira!


    desculpa


    Resolvido.

    o problema estava na hora de eu relacionar os campos.


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 25/9/2018, 20:50

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

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 15/05/2013

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

    Mensagem  maguim em 25/9/2018, 21:06

    feito bounce


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: 21/11/2018, 12:32