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]soma atualizar texbox

    Compartilhe

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]soma atualizar texbox

    Mensagem  maguim em 9/2/2018, 18:06

    boa tarde amigos

    tenho formulario com varias textbox, como faço para assim que for atualizando os valores de cada texto a soma vai acompanhando?


    abraços


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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]soma atualizar texbox

    Mensagem  Noobezinho em 14/2/2018, 09:26

    Experimente colocar no final no final do código de cada texto:

    Me.Recalc

    ou

    Me.requery

    [ ]'s

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]soma atualizar texbox

    Mensagem  maguim em 14/2/2018, 15:37

    boa tarde amigo!

    Eu paramitrizei dessa forma:

    cada textbox tem a mesma função.

    como o Me.Recalc

    ou

    Me.requery

    funcionaria ?

    Código:
    Private Sub vlr1_AfterUpdate()

    If IsNull(Me.vlr1) Then
    Me.vlr1 = Empty
    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

    Me.INDREAJ1.Value = Me.coef1 / Me.vlr1 - 1

    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.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]soma atualizar texbox

    Mensagem  Noobezinho em 14/2/2018, 18:25


    Coloque no antes do End Sub

    Experimente primeiro como o me.recalc , se não funfar, com o Requery.




    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6808
    Registrado : 05/11/2009

    Re: [Resolvido]soma atualizar texbox

    Mensagem  Alexandre Neves em 15/2/2018, 18:40

    Boa noite,
    Adeqúe o título para respeitar as normas


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]soma atualizar texbox

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

    Consegui a solução.


    abraços


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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]soma atualizar texbox

    Mensagem  Noobezinho em 16/2/2018, 18:51

    Ótimo

    Valeu o retorno!

    Boa sorte!

      Data/hora atual: 22/7/2018, 17:14