[Resolvido]CASAS DECIMAIS OCULTAS

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.

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.

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.

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.

Perfeito leicand, era isso msm, muito obrigado.