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

    Vírgula automática nos centavos

    avatar
    Crônico
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 29/03/2013

    Vírgula automática nos centavos Empty Vírgula automática nos centavos

    Mensagem  Crônico 29/3/2013, 19:21

    João postou uma questão como esta em 2011, eu sei; mas não fiquei totalmente satisfeito com as soluções apresentadas. ('Sad')

    Por quê?

    Para alocar um valor inteiro, pela solução apresentada teríamos de lembrar de digitá-lo com dois zeros no final. Por exemplo, se quisermos alocar o inteiro 41 teremos de digitar 4100. Além de contra-intuitivo (se quero 41, minha intuição pede para digitar 41 e não 4100), pode conduzir a erros caso o digitador se esqueça de digitar os dois zeros finais, o que levaria o formulário a alocar o número 0,41 (indesejado!).

    Os sistemas bancários utilizam um algoritmo que evitaria o esquecimento citado. Vejamos como funcionaria para o exemplo do valor 41:
    Passo 1: inicia com 0,00 no visor;
    Passo 2: quando usuário digita 4 aparece 0,04;
    Passo 3: quando usuário digita 1, aparece 0,41;
    Passo 4: este número fracionário (0,41) força o usuário a digitar mais um zero, fazendo aparecer 4,10;
    Passo 5: e finalmente o usuário vendo que o número que surgiu ainda é fracionário (4,10), digita mais um zero e ao digitá-lo aparecerá o número 41,00 que é o número desejado.

    Pergunto quais os códigos e eventos capazes de realizar este algoritmo?

    Agradeço antecipado.
    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

    Vírgula automática nos centavos Empty Re: Vírgula automática nos centavos

    Mensagem  Alexandre Neves 29/3/2013, 19:53

    Boa noite, Crônico, e bem-vindo ao fórum
    Pretende mostrar o valor nalgum controlo? Onde pretende utilizar o código?


    .................................................................................
    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
    avatar
    Crônico
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 29/03/2013

    Vírgula automática nos centavos Empty Olá Alexandre

    Mensagem  Crônico 8/3/2014, 18:29

    Respondendo sua indagação, pode ser um controle Caixa de Texto de um formulário de entrada de dados, por exemplo.
    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

    Vírgula automática nos centavos Empty Re: Vírgula automática nos centavos

    Mensagem  Alexandre Neves 8/3/2014, 20:35

    Boa noite,
    Quase há um ano!
    Tenha um rótulo para utilizar como visor. No acontecimento AoAlterar da caixa de texto, passe o valor para o rótulo com a formatação das duas casa decimais.
    Se pretende que o valor introduzido não seja inferior a um, coloque no acontecimento AoSair da caixa de texto: If Val(NomeCaixaTexto)<1 Then NomeCaixaTexto.Setfocus


    .................................................................................
    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

    Conteúdo patrocinado


    Vírgula automática nos centavos Empty Re: Vírgula automática nos centavos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 21:47