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]Inserir um valor negativo

    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 06/06/2017

    [Resolvido]Inserir um valor negativo Empty [Resolvido]Inserir um valor negativo

    Mensagem  josé waldick 9/8/2017, 21:27

    Como faço para inserir um valor negativo?
    Código:
    Dim dblValor As Double
    On Error Resume Next
    dblValor = Replace(Replace(Me!saldoanterior.Text, ".", ""), ",", "")
    Me!saldoanterior = Format(dblValor / 100, "R$ #,##0.00")
    Me!saldoanterior.SelStart = Len(Me!saldoanterior)


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Inserir um valor negativo Empty Inserir um valor negativo

    Mensagem  good guy 15/8/2017, 16:53

    Olá José,

    Veja se é o que pretende com a função Abs.

    Código:

    Dim dblValor As Double
    On Error Resume Next
    dblValor = Replace(Replace(Me!saldoanterior.Text, ".", ""), ",", "")
    Me!saldoanterior = Abs(Format(dblValor / 100, "R$ #,##0.00"))
    Me!saldoanterior.SelStart = Len(Me!saldoanterior)
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 06/06/2017

    [Resolvido]Inserir um valor negativo Empty Re: [Resolvido]Inserir um valor negativo

    Mensagem  josé waldick 15/8/2017, 20:37

    Ok!


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Inserir um valor negativo Empty Inserir um valor negativo

    Mensagem  good guy 15/8/2017, 21:38

    Olá José,

    Estude outras funções correlatas aqui:

    https://www.techonthenet.com/access/functions/numeric/abs.php
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 06/06/2017

    [Resolvido]Inserir um valor negativo Empty Re: [Resolvido]Inserir um valor negativo

    Mensagem  josé waldick 15/8/2017, 21:40

    Obrigado, meu amigo!


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)

    Conteúdo patrocinado


    [Resolvido]Inserir um valor negativo Empty Re: [Resolvido]Inserir um valor negativo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:21