Takođe, ako imaš više polja koje želiš da sabiraš, bilo bi dobro napraviti funkciju za to i to iz sledećih razloga.Preglednije je, lakše za upotrebu, a i ne petljaš sa otvorenom objektom koji ti služi za pregled (mada ovo i nije toliko bitno).Znači ovako
Code:
Public Function SumaKolone(polje As String)
Dim baza As Database
Set baza = OpenDatabase([putanja do baze])
SumaKolone = baza.OpenRecordset("SELECT SUM(" & polje & ") FROM tblNeka").Fields(0).Value
baza.Close
End Function
to staviš recimo u modul i onda bilo gde iz tvog programa pozivaš sumu sa
Code:
Text1.Text = SumaKolone([ime polja za sabrati])
-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