Prikazi cijelu temu 07.02.2015 16:33
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Kumulativni zbir u Access 2007
Moze se rijesiti Query-em ali ako imas puno podataka to poprilicno sporo radi.
Primjer imas ovdje:
http://www.icentar.ba/...umulativno
Ako se to kodom napravi onda radi mnogo brze:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function TotalX(ID As Long)
  2. '*******************************************
  3. 'Ime:      TotalX   (Function)
  4. 'Sadržaj:  Funkcija vezana za Upit Q_Promet
  5. 'Autor:     ZXZ
  6. 'Datum:      listopad 03, 2007, 04:36:51
  7. 'Adresa: Tuzla BiH
  8. 'Email:     izonic@inet.ba
  9. 'Ulazni parametri:Å ifra
  10. 'Izlazni parametri:Težina
  11. '*******************************************
  12.  
  13. Dim Rs As Recordset
  14. Dim SQl As String
  15. Dim Nalog As Integer
  16.  
  17. 'On Error Resume Next
  18. SQl = "SELECT Sum(ImePoljaKumulative) AS T " _
  19.       & "FROM Promet " _
  20.       & "WHERE ImeIDPolja<=" & ID
  21. 'identifikaciono polje ID
  22. Set Rs = Util.db.OpenRecordset(SQl)
  23. TotalX = Format(Rs!T, "0.00")
  24. Rs.Close
  25. End Function

E sad sta je sta i kako se poziva.
Ova precedura se kaci na Query odnosno SQL.
Pretpostavimo da se tvoje tabela zove promet i da ima polje(Identifikaciono) PrometID autonumber. i ostala ova polja koja si naveo:
SQL bi izgledao ovako:
PreuzmiIzvorni kôd (SQL):
  1. SELECT PrometID,datum,Duguje,Potrazuje,Saldo,TotalX([PrometID]) AS Kumulativno
  2. FROM PROMET
  3. WHERE PrometID=ID

Ako ne bude islo zakaci svoj primjer.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 07.02.2015 16:37 od strane zxz.