Predmet:Re: Problem Petlja
ja bi to rijesio recimo ovako:
nakon sto izaberem izmedu datuma
PreuzmiIzvorni kôd (Text):Set rst = CurrentDb.OpenRecordset("select * from Qzaperiod2 WHERE datum BETWEEN DATEVALUE('" & pocetni & "') AND DATEVALUE('" & krajnji & "')")
izn = 0
Suma = 0
rst.MoveFirst
Datum = rst!Datum
Do Until rst.EOF
izn = rst!SumOfiznos
Print #1, Format(rst!Datum, "dd.mm.yyyy"); Tab(41 - Len(Format(izn, "###0.00"))); Format(izn, "###0.00")
rst.MoveNext
Loop
onda bi ponovo stavio
Set rst = CurrentDb.OpenRecordset("
SELECT * from Qzaperiod2
WHERE datum = E SADA BI OVDJE STAVIO DA MI IZBACI ZA MJESEC OD DATUMA IZ GORNJEG UPITA ,TO CE TI POMOCI NETKO TKO ZNA SQL JEZIK
i onda zbroji sumu svih dana toga mjeseca
PreuzmiIzvorni kôd (Text):Print #1, "----------------------------------------"
rst.MoveFirst
Do Until rst.EOF
Suma = Suma + rst!SumOfiznos
rst.MoveNext
Loop
rst.MoveFirst
zivot je moja domovina.