[Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem

Bom dia,

Como eu posso fazer para que na minha caixa de listagem, os valores R$, aparecem com 3 casas decimais?
Na minha tabela, os valores estão configurados com 3 casas decimais, mas na caixa de listagem, o mesmo arredonda, e não fica com as 3 casas.

Obrigado se alguém puder me ajudar.

Ismael Silva

oi! vc pode usar esta função a baixo

Public Function fncAjustaCampo(varCampo) As String
Dim j As Byte
varCampo = Format(varCampo, "#,##0.00")
j = Len(Replace(varCampo, ",", "") & "")
fncAjustaCampo = Space(11 - j) & varCampo
End Function


e personalize ao seu gosto e na consulta que vc esta usando no campo do total vc assim fncAjustaCampo(seucampo)

espero ter lhe ajudado

Bom dia,

Não sei o que estou fazendo de errado, mas não está dando certo, veja:

Public Function fncAjustaCampo(Val_Unit) As String

Dim j As Byte

Val_Unit = Format(Val_Unit, "#,##0.00")
j = Len(Replace(Val_Unit, ",", "") & "")
fncAjustaCampo = Space(11 - j) & Val_Unit

E na consulta, coloque assim, conforme disse:

fncAjustaCampo([Val_Unit])

Mas não está dando certo, diz que Função Indefinida na Expressão.

Onde está o meu erro?

Obrigado Ismael


End Function

boa tarde!!

a função tem que estar assim

Public Function fncAjustaCampo(varCampo) As String
Dim j As Byte
varCampo = Format(varCampo, "#,##0.00")
j = Len(Replace(varCampo, ",", "") & "")
fncAjustaCampo = Space(11 - j) & varCampo
End Function

salvo como um modulo

na sua consulta e que vai ficar assim
fncAjustaCampo(Val_Unit)

entendeu?

Agora sim. Eu não estava colocando no módulo.

Resolvido. Muito Obrigado!

por nada!! precisando estamos aqui!!!

um abraço!!

Obrigado!