Prikazi cijelu temu 03.03.2015 12:00
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Kumulativni zbir u Access 2007
MIslim da mu to ne pase.
Ovo bi se moralo kodom uraditi ili staviti jedan if u sql sto bas i nije neko rjesenje.
Evo kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function TotalX(ID As Integer)
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim SQl As String
  5. Dim Zbir As Single
  6.  
  7. 'On Error Resume Next
  8.  
  9. Set Db = CurrentDb()
  10.  
  11. SQl = "SELECT TOP 2 Brojcanik " _
  12.  & "FROM Tabela " _
  13.  & "WHERE ID_Podatok <= " & ID _
  14.  & " ORDER BY ID_Podatok DESC"
  15. Set Rs = Db.OpenRecordset(SQl)
  16.  Rs.MoveLast
  17.  Rs.MoveFirst
  18.     If Rs.RecordCount = 1 Then
  19.     TotalX = 0
  20.     GoTo Kraj
  21.     End If
  22. Zbir = Rs!Brojcanik
  23. Rs.MoveNext
  24. Zbir = Zbir - Rs!Brojcanik
  25. Rs.Close
  26. TotalX = Zbir
  27. Kraj:
  28. End Function

evo sql i tabela se zove Tabela.
PreuzmiIzvorni kôd (SQL):
  1. SELECT Tabela.ID_Podatok, Tabela.DATA, Tabela.Brojcanik, TotalX([ID_Podatok]) AS Razlika
  2. FROM Tabela
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.