zaokrąglanie liczb w Access 97

[ms]

Pytanie banalne , ale nie mogę sobie z tym poradzić . Mam formularz , w
którym część pól to obiekty niezwiązane . Wartość do nich jest pisywanan
przy pomocy VBA tzn. Recordset coś tam pobiera , oblicza , mnoży , dzieli i
na końcu wpisuje wartość w pole niezwiązane formularza . Problem w tym , że
obliczone w ten sposób wartości mają ileś tam miejsc po przecinku , a ja
chciałabym zaokrąglić to do jednego miejsca po przecinku . Niestety ,
ustawianie właćiwości pola formularza nie działa (zaznaczam 1 ,ale i tak nie
ma efeku) .Próbowałam też skorzystać z NazwaPola.DecimalPlaces=1 w kodzie i
też nic ....
Czy ktos może mi pomóc ?
* * * * * * * * * * * * * *
Marzena
GG 3987951
ICQ 151577589

--
Archiwum grupy: http://niusy.onet.pl/pl.comp.bazy-danych.msaccess

[s.c.o.r.p.i.o]

taka funkcja zaokragla, trzeba umiescic ja w module

Public Function Round(Kwota As Variant) As Double
'Zwraca wartość zaokrągloną do 0.01
Dim x1000, x100 As Double

If IsNull(Kwota) Then
Round = 0
Else
x1000 = Kwota * 1000
x100 = Kwota * 100
If Fix(x1000) - (Fix(x100) * 10) >= 5 Then
Round = (Fix(x100)) / 100
Else
Round = Fix(x100) / 100
End If
End If
End Function

wywolanie jej

round([twoje pole])

pozdrawiam
scorpio

Użytkownik "ms" <szul...@poczta.onet.pl> napisał w wiadomości
news:000d01c4c49b$f0b58760$c78e1953@VOBIS...