Public Function SumaKolone(polje As String, datum As Date)
Dim baza As Database
Set baza = OpenDatabase(App.Path & "\Kalkulacije.mdb")
SumaKolone = baza.OpenRecordset("SELECT SUM(" & polje & ") FROM kalkulacije1 WHERE Date = #" & datum & "#").Fields(0).Value
baza.Close
End Function
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti