MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]soma atualizar texbox

    maguim
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013
    • Mensagem nº1

    [Resolvido]soma atualizar texbox Empty [Resolvido]soma atualizar texbox

    Mensagem  maguim 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 ?! Surprised
    • Ir para o topo
    Noobezinho
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012
    • Mensagem nº2

    [Resolvido]soma atualizar texbox Empty Re: [Resolvido]soma atualizar texbox

    Mensagem  Noobezinho 14/2/2018, 09:26

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

    Me.Recalc

    ou

    Me.requery

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...

    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    • Ir para o topo
    maguim
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013
    • Mensagem nº3

    [Resolvido]soma atualizar texbox Empty Re: [Resolvido]soma atualizar texbox

    Mensagem  maguim 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 ?! Surprised
    • Ir para o topo
    Noobezinho
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012
    • Mensagem nº4

    [Resolvido]soma atualizar texbox Empty Re: [Resolvido]soma atualizar texbox

    Mensagem  Noobezinho 14/2/2018, 18:25


    Coloque no antes do End Sub

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






    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...

    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009
    • Mensagem nº5

    [Resolvido]soma atualizar texbox Empty Re: [Resolvido]soma atualizar texbox

    Mensagem  Alexandre Neves 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
    • Ir para o topo
    maguim
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013
    • Mensagem nº6

    [Resolvido]soma atualizar texbox Empty Re: [Resolvido]soma atualizar texbox

    Mensagem  maguim 16/2/2018, 17:34

    Consegui a solução.


    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    • Ir para o topo
    Noobezinho
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012
    • Mensagem nº7

    [Resolvido]soma atualizar texbox Empty Re: [Resolvido]soma atualizar texbox

    Mensagem  Noobezinho 16/2/2018, 18:51

    Ótimo

    Valeu o retorno!

    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...

    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº8

    [Resolvido]soma atualizar texbox Empty Re: [Resolvido]soma atualizar texbox

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 8/11/2024, 05:54