Sumiranje istih redova u podformi u jedan red

Sumiranje istih redova u podformi u jedan red 20.09.2011. u 14:03 · pre 184 meseca #1

Javlja mi se jedan problem.
u okviru podforme unosi se spisak artikala sa kolicinama. Dozvoljen je upis istih slogova vise puta.
Potrebno mi je da, kada se isti artikal unese drugi put sa nekom kolicinom, ta kolicina sabere sa prvom kolicinom tog artikla i taj artikal prikaze samo jednom sa ukupnom kolicinom.
Unapred hvala na odgovoru!

Re: Sumiranje istih redova u podformi u jedan red 20.09.2011. u 16:21 · pre 184 meseca #2

Nemas potrebe da prilikom unosa sabiras kolicine. To ces ureaditi kad budes stampao racun, znas ono
SELECT Racun, Artikl, Cena, Kolicina = SUM(Kolicina), IZnos = SUM(Kolicina*Cena) GROUP BY Racun, Artikl, Cena

Re: Sumiranje istih redova u podformi u jedan red 21.09.2011. u 09:17 · pre 183 meseca #3

Hvala na odgovoru Zidar.

Mislim da je dobra ideja ako ne i najbolja, samo imam sada problem sa sintaksom u VBA.

Ovaj kod mi radi sada za pojedinacne artikle:

Code:
Set Rs = db.OpenRecordset("SELECT * FROM tblProdajeStavke WHERE tblProdajeStavke.ProdajaID = " & Forms![frmProdaje_glavna].[ProdajaID])

Probao sam ovo:

Code:
Set Rs = db.OpenRecordset("SELECT ProdajaID, BarKod, Naziv, sum(kolicina) as kolicina1, sum(prodajnacena * kolicina) as iznos FROM tblProdajeDetalji WHERE tblProdajeDetalji.ProdajaID = " & Forms![frmProdaje_master].[ProdajaID])

medjutim javlja mi gresku

Code:
Run - time error 3112. You tried to execute a query that does not include the specified expression "ProdajaID" as part of the aggregate function.

Problem je znaci u sintaksi!

Re: Sumiranje istih redova u podformi u jedan red 21.09.2011. u 13:15 · pre 183 meseca #4

Nedostaje ti GROUP BY. Probaj ovo

Code:

Set Rs = db.OpenRecordset("SELECT ProdajaID, BarKod, Naziv, sum(kolicina) as kolicina1, sum(prodajnacena * kolicina) as iznos FROM tblProdajeDetalji WHERE tblProdajeDetalji.ProdajaID = " & Forms![frmProdaje_master].[ProdajaID]
& " GOUP BY ProdajaID, BarKod, Naziv " )

Zasto se mucis sa rekordsetima? Da bi odstampao racun ne treba ti OpenRecordset. Moze, ali je bespotrebno komplikovano. Treba ti izvestaj koji se zove rptRacun. Za rptRacun imas record source ovako:

Code:

SELECT ProdajaID, BarKod, Naziv, sum(kolicina) as kolicina1, sum(prodajnacena * kolicina) as iznos
FROM tblProdajeDetalji
GOUP BY ProdajaID, BarKod, Naziv

Nema WHERE. Onda ti treba da pozoves taj izvestaj, ovako:

Code:

DoCmd.OpenReport reportName:= "rptRacun" _
,WHereCondition:= "ProdajaID = " & Forms![frmProdaje_master].[ProdajaID] _
, view:= acNormal

WHERE je prebaceno iz definicije rekordseta u poziv izvestaja.

Kod sa DoCmd stavis na neki dogadjaj i gotovo. Ako nista, ustedeo si trcanje kroz recordset u nekoj petlji, rekord po rekord.

Ako racun izbacujes u neki text fajl, da ga posaljes fiskalnoj kasi, imas izdvojenu temu (TOP) o tome, tu ti mozda trebaju rekordseti, ne znam, to nisam radio.

Re: Sumiranje istih redova u podformi u jedan red 21.09.2011. u 13:38 · pre 183 meseca #5

Zidar, jos jednom hvala ti na odgovoru.
Trebala mi je sintaksa sa GROUP BY. Sada mi sve radi.

Inace, mora da se radi sa recordset-ovima jer se podaci salju u tekst fajl za fiskalnu kasu. Za izvestaje vec koristim kod koji si naveo.

Forum kao aplikacija na telefonu

Srodne teme