Prikazi cijelu temu 27.02.2015 13:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Kumulativni zbir u Access 2007
U ovom slucaju bi to izgledalo ovako:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function TotalX(Datum As Date)
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim SQl As String
  5. Dim Nalog As Integer
  6. Dim DatumStr As String
  7.  
  8. On Error Resume Next
  9.  
  10. Set Db = CurrentDb()
  11. DatumStr = "#" & Format(Datum, "mm-dd-yyyy") & "#"
  12. SQl = "SELECT sum([Prihod]-[Rashod]) as K " _
  13.  & "FROM Table1 WHERE datum<=" & DatumStr
  14. Set Rs = Db.OpenRecordset(SQl)
  15. TotalX = Format(Rs!K, "0.00")
  16. Rs.Close
  17. End Function

Ovo je sve zbog datuma jer datum u sql-u mora biti mm/dd/yy i mora biti ogradjen tarabama
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.