[ mich07 @ 20.09.2011. 13:03 ] @
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!
[ Zidar @ 20.09.2011. 15:21 ] @
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
[ mich07 @ 21.09.2011. 08:17 ] @
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!
[ Zidar @ 21.09.2011. 12:15 ] @
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.

[ mich07 @ 21.09.2011. 12:38 ] @
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.