[ sagram @ 01.12.2005. 23:17 ] @
modul nazvati fnrunsum()

Option Compare Database

Public RuningSum As Double


Public dat1knj As Date


Public Function fnRunSum(MyVal As Double, datknj As Date) As Double


If dat1knj > datknj Then
RuningSum = 0
End If
dat1knj = datknj
RuningSum = RuningSum + Nz(MyVal, 0)
fnRunSum = RuningSum

End Function

funkciju pozivate fnrunsum(polje koje se racuna, datknj-datum nemora biti po redu)

ps zakljucajte polja inace funkcija se non stop osvjezava
[ branimir.ts @ 02.12.2005. 08:45 ] @
Mozes li da mi pojasnis malo ovu fn?

Pozdrav
[ sagram @ 02.12.2005. 21:11 ] @
ukratko
imas tri polja
datum cifra1 cifra2 u cetvtom polju ( cifra4) oces da imas tekucu sumu ( np cifra1-cifra2) sve ovo u formi naravno. - control surce( za cifru4)=fnrunsum(cifra1-cifra2). korisna funkcija ako imas nedje finansisku karticu u formi i oces da vidis tekuci saldo..
bolje nego dsum ako se dobro sjecam