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

    [Resolvido]Alterar valor para negativo

    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 27/08/2010

    [Resolvido]Alterar valor para negativo Empty [Resolvido]Alterar valor para negativo

    Mensagem  lindomar.silva 8/4/2021, 22:54

    Olá Very Happy

    Fiz várias pesquisas aqui no Forum e não encontrei nenhum tópico relacionado a minha duvida.

    Preciso de uma ajuda para resolver um problema.

    No meu formulário eu tenho uma combox chamada Categoria que tem duas valores:

    Entrada
    Saída

    Tenho também um campo chamado Valor.

    Usando VBA (if), gostaria que quando eu escolhesse a opção Saída, o número que for digitado campo Valor ficasse no formato negativo, não só visualmente com o formato negativo, mas que ficasse salvo na tabela no formato negativo.

    Alguma sugestão?

    Agradeço desde já!
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Alterar valor para negativo Empty Re: [Resolvido]Alterar valor para negativo

    Mensagem  Assis 8/4/2021, 23:30

    Boa noite

    Para começar deveria alterar o campo com o nome " Valor " para outro nome por exemplo txtvalor. Isto porque "Valor" é um nome reservado do Access.


              If Me.categoria = "Saida" Then
               Me.txtvalor = Me.txtValor * -1
               Else
               Me.txtValor = Me.txtValor
               End If


    .................................................................................
    *** Só sei que nada sei ***

    lindomar.silva gosta desta mensagem

    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 27/08/2010

    [Resolvido]Alterar valor para negativo Empty Re: [Resolvido]Alterar valor para negativo

    Mensagem  lindomar.silva 9/4/2021, 01:00

    Prezado Assis,

    Fiz exatamente conforme a sua orientação e funcionou perfeitamente.

    Muito obrigado pela rápida e preciosa ajuda!

    Um abraço!
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Alterar valor para negativo Empty Re: [Resolvido]Alterar valor para negativo

    Mensagem  Assis 9/4/2021, 02:37


    Obrigado pelo retorno.


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 13/6/2021, 00:19