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]CASAS DECIMAIS OCULTAS

    avatar
    convexx
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 09/09/2014

    [Resolvido]CASAS DECIMAIS OCULTAS Empty [Resolvido]CASAS DECIMAIS OCULTAS

    Mensagem  convexx 22/7/2016, 13:10

    Bom dia pessoal, tenho alguns campos em um formulario com formato de moeda, tanto na tabela como no form, eu queria que ao clicar nesses campos todo o valor fosse selecionado e segundo que não aparecesse as casa decimais ocultas pelo formato, ex: o valor do campo é R$23,4876; pelo formato ele mostra somente os sentavos, 2 casas, ate ai esta certo; mas se clico no campo ele mostra o restante. È coisa boba, mais para dar uma aparencia melhor, mas ja ajuda.
    leicand
    leicand
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 04/01/2016

    [Resolvido]CASAS DECIMAIS OCULTAS Empty Re: [Resolvido]CASAS DECIMAIS OCULTAS

    Mensagem  leicand 22/7/2016, 13:41

    Bom dia,

    Para que todo o valor seja selecionado quando você clica no campo, coloque o seguinte código no evento Ao Clicar do campo:

    Private Sub NOMEDOCAMPO_Click()
    If Len(Me.NOMEDOCAMPO.Value) > 0 Then
    Me.NOMEDOCAMPO.SetFocus
    Me.NOMEDOCAMPO.SelStart = 0
    Me.NOMEDOCAMPO.SelLength = Len(Me.NOMEDOCAMPO)
    End If
    End Sub

    Colocando o nome do campo do seu formulário onde acima está escrito "NOMEDOCAMPO".

    Em relação às casas decimais, o tipo de dados Moeda mostra apenas os centavos mesmo. Se quiser as casas decimais dos centavos talvez fosse melhor usar o tipo de dado Duplo.

    Avise se deu certo.

    avatar
    convexx
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 09/09/2014

    [Resolvido]CASAS DECIMAIS OCULTAS Empty CASAS DECIMAIS OCULTAS

    Mensagem  convexx 22/7/2016, 15:58

    Obrigado leicand, a expressao funcionou, qto as casa decimais é o contrario, eu nao quero que elas apareçam, mas é como disse acima, o formato moeda realmente só mostra os centavos(2 casas), porem quando clico para selecionar o campo mostra mais de 2 casas. Isso acontece pq esse campo puxa o valor de outros valores que sao formulados, ou seja, passam por inumeras formulas onde o resultado nunca dara um numero certo, sempre quebrado, o sistema grava esse valor e o formato moeda que arredonda e deixa só duas casas.
    leicand
    leicand
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 04/01/2016

    [Resolvido]CASAS DECIMAIS OCULTAS Empty Re: [Resolvido]CASAS DECIMAIS OCULTAS

    Mensagem  leicand 22/7/2016, 19:21

    Provavelmente não é a opção ideal, mas para que não apareçam as casas decimais dos centavos o código poderia ser o seguinte:

    Private Sub MEUCAMPO_Click()
    If Len(Me.MEUCAMPO.Value) = 0 Then
    Me.MEUCAMPO.SetFocus
    Me.MEUCAMPO.SelStart = 0
    Me.MEUCAMPO.SelLength = Len(Me.MEUCAMPO)
    End If
    If IsNull(MEUCAMPO.Value) Or MEUCAMPO.Value = "" Or Right(MEUCAMPO.Value, 3) = "," Then Exit Sub
    MEUCAMPO.Value = "R$" & Format(MEUCAMPO.Value, ".00")
    End Sub

    Avise se deu certo.

    Espero poder ajudar.
    avatar
    convexx
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 09/09/2014

    [Resolvido]CASAS DECIMAIS OCULTAS Empty CASAS DECIMAIS OCULTAS

    Mensagem  convexx 22/7/2016, 20:52

    Perfeito leicand, era isso msm, muito obrigado.

      Data/hora atual: 6/10/2022, 09:40