[Resolvido]Campo calculado

Boa noite gente!

Eu tenho um campo calculado no meu formulário vendas e eu gostaria que ele não arredondasse o valor no campo total.
Por exemplo:

Quant.                Preço/KG                 Total
 
0,345 ..................15,00 ..................5,175

Ele está arredondando para...... 5,180  
Tem como acertar isso?

Desde já agradeço!

Dori, teste este exemplo.

https://www.dropbox.com/s/fg6tjqnrz91s9k7/Banco%20de%20dados1.accdb?dl=0

Não está arredondando, mas em compensação tá mostrando três casas após a vírgula!
E na soma total dos itens, também está arredondando!
             Tem alguma outra forma ?
Esse é o jeito atual que está funcionando.

         
             Quant.                Preço/KG             Total item
             0,345 ..................15,00 ..................5,175
             0,286...................18,00 ..................5,148
              ____________________________________
              Total............................................ 10,323
             
Como se trata de moeda, eu gostaria que ele ignorasse a terceira casa após a vírgula, ficando assim:

              Quant.                Preço/KG                 Total item
             0,345 ..................15,00 ........................5,17
             0,286...................18,00 ........................5,14
             ______________________________________
              Total...................................................10,31
Tem algum outro jeito?

Boa noite Dori!

Coloca num modulo:

Código:

Public Function Dec(NUM As Double)
Dim decimales As String
Dim devolver As Double

  decimales = NUM - Int(NUM)
  decimales = Mid$(Format(decimales, "0.0000"), 2, 4)

  If decimales = "" Then
    devolver = Int(NUM)
  Else
      decimales = Mid$(decimales, 1, 3)
      devolver = Int(NUM) + CDbl(decimales)
  End If
  Dec = devolver
End Function

Funciona assim: Dec(1.456) ' resultado = 1.45

Saludos

Olá Franklin!

Eu criei o módulo com esse código, como devo proceder agora?

É que eu conheço pouco o access.

valeu!

Olá Dori

Agora você só tem que chamá-lo de qualquer form assim:

Código:

Dim numero
textbox = Dec(numero) 'inserindo variavel
textBox = Dec(1.456) 'inserindo um número

Se você não consegue implementá-lo, eu vou te enviar um exemplo.

Saludos

OK
resolvido.

Faltou o Resolvido.

OK Resolvido,

Obrigado.