Pazi problem je u tome sto u Accessu 97 ne postoji uopste funkcija ROUND.
Ima neka RND ali nisam siguran da je to ta...
TO znachi da bi trebalo ispisati neku ROUND funkciju a to sam nasao na netu i glasi:
Public Function Round( _
ByVal Number As Variant, NumDigits As Long, _
Optional UseBankersRounding As Boolean = False) As Double
'
' ---------------------------------------------------
' From "Visual Basic Language Developer's Handbook"
' by Ken Getz and Mike Gilbert
' Copyright 2000; Sybex, Inc. All rights reserved.
' ---------------------------------------------------
'
Dim dblPower As Double
Dim varTemp As Variant
Dim intSgn As Integer
If Not IsNumeric(Number) Then
' Raise an error indicating that
' you've supplied an invalid parameter.
Err.Raise 5
End If
dblPower = 10 ^ NumDigits
' Is this a negative number, or not?
' intSgn will contain -1, 0, or 1.
intSgn = Sgn(Number)
Number = Abs(Number)
' Do the major calculation.
varTemp = CDec(Number) * dblPower + 0.5
' Now round to nearest even, if necessary.
If UseBankersRounding Then
If Int(varTemp) = varTemp Then
' You could also use:
' varTemp = varTemp + (varTemp Mod 2 = 1)
' instead of the next If ...Then statement,
' but I hate counting on TRue == -1 in code.
If varTemp Mod 2 = 1 Then
varTemp = varTemp - 1
End If
End If
End If
' Finish the calculation.
Round = intSgn * Int(varTemp) / dblPower
End Function
Sad pomocju ove funkcije mogu da napishem =round([suma],2) i automatski dobijam zaokruzenu vrednost na 2 decimale ali kad kliknem na text box i dalje se pojave preostale 3 decimale i dalje mi rachuna sa svih 5 decimala.
Evo sada sam obrisao taj modul kao da ne postoji i stavio sam sve kako si napisao, medjutim necje nikako u text boxu mi prijavi #Name?
Meni ovo treba da stoji u izvestaju, tj. to kalkulisanje.
Nadam se da sam sada bio malo precizniji....
Nikako ne mogu da isechem broj na 2 decimale.....
