Citat:
miki987: evo sta sampokusao ali negde zapinje...
Code:
Public Sub suma()
Dim dblSuma As Double
Dim dblKriterijum As Double
Dim sql As String
openconn
sql = "SELECT * FROM baza1 ORDER BY redni_broj DESC;"
Set rs = conn.Execute(sql)
If rs.EOF Then
closeconn
Exit Sub
End If
dblSuma = 0
dblKriterijum = "Urucena" 'ovo je tvoj primer, samo sabira one koji su 1
If rs.RecordCount > 0 Then rs.MoveFirst 'ides na pocetak
Do While Not rs.EOF
If rs("urucena") = dblKriterijum Then 'za neko polje pod nazivom "Polje"
dblSuma = dblSuma + dblKriterijum
End If
rs.MoveNext
Loop
dblSuma = Label9
End Sub
[Ovu poruku je menjao miki987 dana 23.08.2009. u 18:11 GMT+1]
[Ovu poruku je menjao miki987 dana 23.08.2009. u 18:11 GMT+1]
kod koji sam napisao pronasao sam negde na forumu, t.j. originalni kod koji sam preuzeo sabira sve identicne brojeve u jednoj koloni i to je ovaj, samo sam ja pokusao izmeniti isti i to je ovaj koji citiram
pitanje
Citat:
miki987: da,ali ovo opet ne radi . moze li neko da mi kazede je greska?
se odnosi na upravo taj kod koji sam okacio (znaci "moj" koji sam pokusao napraviti ali ne radi)
sto se tice pomoci od dave, taj kod zaista nisam znao iskoristiti jer ja sam pocetnik u problemu kojeg sam sam stvorio obecavsi direktoru da mogu napraviti isti...a kao sto vidite ne umem
sad vapim za pomoc kako bi zavrsio 90% gotov program a ima ih tri
prvi kako da saberem sve reci iz jedne kolone u listview-u koji vuce iz access baze
drugi kako da barkod-u kazem da posle citanja koda okine na button Command1
treci kako da pronadjeni row u listview-u pozicioniram na sredini lisview-a
eto to su moji problemi, a ako mi mozete pomoci Hvala Vam a ako ne opet Hvala na dosadasnjem trudu