Hola que tal...
Si trabajan con Access, tienen que ver como crearon el campo correspondiente a lo que estan cargando, y verificando (me refiero al precio).
Si lo crearon como Entero, obviamente les va a redondear sin decimales... Tienen que manejarlo con Currency (lo mismo desde vb)...
Aca les dejo una funcion que cree hace tiempo para Redondear un precio y dejarlo siempre en 2 decimales. Espero que les sirva....
PD: Mantengan los derechos de autor por favor.
'----------------------------
'Creado por: CULD
'E-mail:
[email protected]
'----------------------------
Public Function Redondear(valor As String) As String
Dim dblvalor As Double
Dim totalLen As Long
Dim decimalLen As Long
If Val(valor) <> 0 Then
dblvalor = Format(Val(valor), "###,###,##0.##")
Else
dblvalor = Format(0, "###,###,##0.##")
End If
Redondear = Trim(Str(dblvalor))
If InStr(Redondear, ".") = 0 Then
Redondear = Redondear & ".00"
Else
totalLen = Len(Redondear)
decimalLen = InStr(Redondear, ".")
If totalLen - decimalLen = 1 Then
Redondear = Redondear & "0"
End If
If decimalLen = 1 Then
Redondear = "0" & Redondear
End If
End If
End Function