Function TotalX(ID As Long)
'*******************************************
'Ime:      TotalX   (Function)
'Sadržaj:  Funkcija vezana za Upit Q_Promet
'Autor:     ZXZ
'Datum:      listopad 03, 2007, 04:36:51
'Adresa: Tuzla BiH
'Email:     izonic@inet.ba
'Ulazni parametri:Šifra 
'Izlazni parametri:Težina
'*******************************************

Dim Rs As Recordset
Dim SQl As String
Dim Nalog As Integer

'On Error Resume Next
SQl = "SELECT Sum(ImePoljaKumulative) AS T " _
      & "FROM Promet " _
      & "WHERE ImeIDPolja<=" & ID 
'identifikaciono polje ID
Set Rs = Util.db.OpenRecordset(SQl)
TotalX = Format(Rs!T, "0.00")
Rs.Close
End Function