Prikazi cijelu temu 26.05.2016 14:34
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: Problem Petlja
ja bi to rijesio recimo ovako:

nakon sto izaberem izmedu datuma

PreuzmiIzvorni kôd (Text):
  1. Set rst = CurrentDb.OpenRecordset("select * from Qzaperiod2  WHERE datum BETWEEN DATEVALUE('" & pocetni & "') AND DATEVALUE('" & krajnji & "')")
  2. izn = 0
  3. Suma = 0
  4. rst.MoveFirst
  5. Datum = rst!Datum
  6. Do Until rst.EOF
  7.     izn = rst!SumOfiznos
  8.     Print #1, Format(rst!Datum, "dd.mm.yyyy"); Tab(41 - Len(Format(izn, "###0.00"))); Format(izn, "###0.00")
  9.     rst.MoveNext
  10. 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):
  1. Print #1, "----------------------------------------"
  2. rst.MoveFirst
  3. Do Until rst.EOF
  4.    Suma = Suma + rst!SumOfiznos
  5.    rst.MoveNext
  6. Loop
  7. rst.MoveFirst
zivot je moja domovina.