Ne, nego ja nisam naveo ime funkcije kad sam ti pisao kod.Izvinjavam se.Treba ovako
Code:
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
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
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-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
-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