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
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 06/06/2017
    • Mensagem nº1

    [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)
    • Ir para o topo
    good guy
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010
    • Mensagem nº2

    [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)
    • Ir para o topo
    josé waldick
    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
    • Mensagem nº3

    [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)
    • Ir para o topo
    good guy
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010
    • Mensagem nº4

    [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
    • Ir para o topo
    josé waldick
    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
    • Mensagem nº5

    [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)
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 7/11/2024, 22:02