Function TotalX(ID As Long)
Dim Db As Database
Dim Rs As Recordset
Dim SQl As String
Dim Nalog As Integer

On Error Resume Next
Set Db = CurrentDb
SQl = "SELECT Sum(SaldoQ) AS T " _
& "FROM Q_Kumulativno " _
& "WHERE ID<=" & ID

'identifikaciono polje ID
Set Rs = Db.OpenRecordset(SQl)
TotalX = Format(Rs!T, "0.00")
Rs.Close
End Function