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

2 participantes

    [Resolvido]Campos não somam corretamente

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 802
    Registrado : 11/12/2017

    [Resolvido]Campos não somam corretamente Empty [Resolvido]Campos não somam corretamente

    Mensagem  Ismael Silva 20/3/2022, 19:39

    Boa tarde,

    Estou com uma dúvida, não estou conseguindo trazer para um campo o resultado da soma de outros dois.

    Por exemplo, quero que no campo Resultado apareça a soma dos dois valores que inseri no campo N1 e N2, mas o que está ocorrendo que ao invês de somar, está trazendo o mesmo valor dos dois campos juntos. Exemplo, se coloco 10 no N1 e 10 no N2, a soma deveria ser 20, mas da forma que estou fazendo, no campo Resultado está ficando 1010.





    Private Sub N1_AfterUpdate()

    If N1 <> Null Or N1 <> "" And N2 <> Null Or N2 <> "" Then

     Me.Resultado = Nz(N1, 0) + Nz(N2, 0)
    End If
    End Sub

    Private Sub N2_AfterUpdate()

       
    If N1 <> Null And N1 <> "" Or N2 <> Null Or N2 <> "" Then

     Me.Resultado = Nz(N1, 0) + Nz(N2, 0)
     
    End If
    End Sub
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Campos não somam corretamente Empty Re: [Resolvido]Campos não somam corretamente

    Mensagem  Alexandre Fim 20/3/2022, 21:10

    Ismael,

    O Access está entendendo que vc está tentando somar 2 campos textos, e neste caso, ele não soma, e sim concatena (junta).
    No modo estrutura, nas propriedades do campo, verifique o "Formato" dele e  altere para "Número geral".

    OU

    Você pode converter o valor do campo para inteiro, usando a função "CInt", conforme abaixo:

    Código:

    Private Sub N2_AfterUpdate()
     
        If Not IsNull(CInt(N1)) Or Not IsNull(CInt(N2)) Then
            Me.Resultado = Nz(CInt(N1), 0) + Nz(CInt(N2), 0)
        End If
     
    End Sub




    É isso.

    []'s

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Campos não somam corretamente Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 802
    Registrado : 11/12/2017

    [Resolvido]Campos não somam corretamente Empty Re: [Resolvido]Campos não somam corretamente

    Mensagem  Ismael Silva 20/3/2022, 22:07

    Obrigado pela dica Alexandre, de fato não tinha me atentado pra esse grande detalhe.

    Obrigado.

    Resolvido.

      Data/hora atual: 6/10/2022, 07:33