Kako napravit report kad u sql izkazu sumiramo neko polje I odredimo mu novo ime!

Ovako stvari stoje .Ovaj način od darka79 da u nekom modulu definiram globalnu promenljiv SQL izraz- što je naveden u prvom primjeru radi ko urica.Hvala skuzio sam.Kako taj način funkcionira.Puno si mi pomogao!
Ovaj drugi sto je zidar objasnio a nije dovrsio isto radi ali samo onaj dio koji je objasnio.
Napravio sam query i nazvao ga "qryReportArtikli".Odredio ga kao recordsource za report "repArtikli".
Code: "qryReportArtikli"SELECT Elementi.Sifra_artikla, Sum(Elementi.kolicina) AS Total, ulazniRacuni.Datum_racuna, Sum(Elementi.Vrijednost) AS GRANDFROM ulazniRacuni INNER JOIN Elementi ON ulazniRacuni.ID = Elementi.IDGROUP BY Elementi.Sifra_artikla, ulazniRacuni.Datum_racunaORDER BY Elementi.Sifra_artikla;
Također sam ukucao i onaj kod za pozivanje reporta,a i napravio sam formu za pozivanje reporta i ukucavanje datuma (u ovom slučaju kriterij za izvještaj)!

Sub cmddOpenReport_Click()
Dim strWhere as string
strWere ="Datum_racuna Between " & DateToStr(me!txtdatum_OD) & " AND " & DateToStr(me!txtDatum_Do)

DoCmd.OpenReport ReportName:=repArtikli,WhereCriteria:=strWere ,View:=acViewPreview

End Sub
[\code]


Rezultat je sljedeći :u reportu sam dobio jedan rekord po datumu za svaku sifru artikla.
Međutim meni za izvještaj treba podatak koliko je za određenu sifru_artikla u navedenom periodu(kriterij (me!txtdatum_OD do (me!txtdatum_DO))ušlo na skladište količinski I vrijednonosno to jest total I grand za svaki Artikal-znači treba maknut ovo da grupira po datumima.

Citiram zidara
Tvoj report ce prikazati jedan rekord po datumu za svaku sifru artikla. Ako hoces grand total, onda ti treba jos jedan korak, ali o tome sutra. Ako ti treba jedan rekord po Sifri_Artikla, to mozemo da napravimo, u sledecem koraku. I o tome sutra.


Kako ????
Ono s wizardom dalo je nekih rezultata ali nemogu baš sve posložit kako trteba.
Zidar je obećao nastavak!A ja ga s nestrpljenjem očekujem.
Pozdrav I hvala svima još jednom na trudu.Bez ovog foruma moje znanje accesa bilo bi puno manje.
Kad završim objavit ću kompletan code tako da i drugima bude od pomoći!

Potpis

romano

Ovako: ono sto ti je Darko rekao jeste laksi nacin da se resi jedan deo problema. Razumeo sam da tvoj report treba da izgleda otprilike ovako:
Report A:
Artikal Ukupno_Komada Ukupno_Novca
-----------------------------------------
Kruske 57 2,500
Jabuke 128 3,700
Breskve 25 5,600
-----------------------------------------

Ukupno_Komada je suma kolicina iz nekoliko racuna, isto tako i Ukupno_Novca je suma nekoliko racuna u zadatom periodu.

Ono sto sam ja predlozio za sada daje nesto kao:
Report B:
Artikal Racun_BR Datum_Racune Komada Novca
-------------------------------------------------------
Jabuke 11 10 Sep 04 5 100
Jabuke 17 15 oct 04 12 240
Jabuke 96 27 Nov 04 100 2000
Kruske 23 19 Oct 04 45 1700
Kruske 36 1 Dec 04 7 250
Breskve 17 15 oct 04 56 400
Breskve 23 19 oct 04 100 700
Breskve 107 20 dec 04 50 40
------------------------------------------------------

Report A (tvoj) ne moze da se otvori preko DoCmd i WhereCondition. Jedini put jeste da se promeni SQL statement koji daje podatke za report. To je ono sto ti je Darko pokazao. U principu dobro, ali malo konfuzno.

Evo jedno manje elegantno ali mnogo jednostavnije resenje. Predlazem da napravis snimljen kveri qryReportA, koji daje record source za tvoj report_A. On bi izgledao nekako ovako:

SELECT Artikl, SUM(Kolicina) AS Ukupno_Komada, SUM(Novac) AS Ukupno_Novca
FROM Dupla
WHERE DatumRacuna BETWEEN [PocetniDatum] AND [KrajnjiDatum]
GROUP BY Artikl

Posto se DatumRacuna ne pojavljuje u SELECT listi, ne moze se upotrebiti DoCMD.. WhereCondition metod. Uoci da su Pocetnidatum i KrajnjiDatum u uglastim zagradama. To znaci da su ono parametri kverija. Kad startujes kveri, dobices nesto kao input box za oba parametra. Ako otvoris report baziran na ovom kveriju, dobices iste input boxove za unos datuma.

Ovo moze da se modifikuje tako sto se umesto parametara modifikuje SQL statement za kveri. Napravis funkciju otprilike ovako:

Functio SetReportSQl()
DIM DB AS DAO.Database 'ovo ne moze sa ADO, samo sa DAO
Dim qdef as QueryDef
SEt db=currentdb
Set qdef=db.querydefs("imetvogkverija")
qdef.SQL="SELECT ..........." 'onako kako
Set db=nothing
End Function

Funkciju cuvas u form modulu forme koja gradi kriterijum za report, tako da mozes da ukazujes na polja na formi (me!txtDatum1 i me!txtDatum2). kad hoces da otvoris report, prvo otvoris formu. Onda na neki click, proveris da li su ti uneseni svi podaci za kriterijum i onda startujes ovu funkciju. Funkcija promeni SQL tvog snimljenog kverija. Onda kazes DoCmd.openReport "imetvogreporta". U principu isto kao sto ti je darko kazao, samo nema Global varijabli i nema koda na reportu, sve se nalazi na formi koja kontrolise gradjenje input parametara. Nekad je bolje ovo resenje, nekad Darkovo, zavisi od situacije, potreba i umeca. Hteo sam da skrenem paznju na korisceje objekta QueryDef.

Moje resenje, Report B pretpostavlja da se prvo sagradi detaljni report (koji nisi trazio, ali moze da zatreba). Ako dods Grouping na reportu koji sam predlozio, ispod svakog artikla mozes da dobijes sume po kolonama. To moze wizard da uradi za tebe, dok se malo ne izvestis. Imaces dakle report koji izgleda ovako:

Report B_GRouped:
Artikal Racun_BR Datum_Racune Komada Novca
-------------------------------------------------------
Jabuke 11 10 Sep 04 5 100
Jabuke 17 15 oct 04 12 240
Jabuke 96 27 Nov 04 100 2000
-------------------------------------------------------
Jabuke: 128 2340

Kruske 23 19 Oct 04 45 1700
Kruske 36 1 Dec 04 7 250
-------------------------------------------------------
Kruske: 52 1950

Breskve 17 15 oct 04 56 400
Breskve 23 19 oct 04 100 700
Breskve 107 20 dec 04 50 40
--------------------------------------------------------
Breskve: 206 1140

Ako od ovoga reporta odbacis linije sa detaljima, ostace ti linije sa subtotalima, to jest ono sto si trazio na pocetku.
To se postize lako - za sekciju Detail na reportu, postavis da je Visible=No i detalji ce da nestanu, ostace samo subtotali. Prednost je sto nema potrebe za promenom SQL izkaza za tvoj kveri. Stavise, nema ni WHERE u kveriju, nema ni GROUP BY, nema nista. Najobicniji

SELECT Artikal , Racun_BR, Datum_Racune , Komada, Novca
FROM TvojaTabela

GRupisanje i sortiranje obavlja report. Sumiranje se obavlja na reportu takodje. Imas i detalj i subtotal. U tom slucaju DoCmd.OpenReport moze da koristi WHERE condition. Cak i ako ne zelis da prikazes na primer Datum ili BrRacuna, mozes ta polja da na reportu napravis Visible=FALSE. WhereCondition od oCmd ce da radi bez problema.

Kako prikazati nekada samo subtotale a nekada sve zajedno? Mozes da ima dva reporta, koji se razlikuju samo u tome sto jedn od njih ima Detai section Visible=FALSE. Ovo moze da prodje ali nije dobro, imas dva reporta da odrzavas. Bolje je mozda da imas jedan report, pa ga otvaras sa ili bez detalja, po zelji. Mozes da sa forme posaljes neki parametar pa na OnOpen za report ili OnFormat (ne znam, probaj) da sakrijes Detail section. cini mi se da u access 2002 i report ima OpenArgs parameter, pa prouci help i vidi mozda nesto moze da se uradi.

:-)

Imam ovakav problem:
Radim program za ulaz –izlaz robe s skladista.
Imam formu u kojoj unosim podatke po racunima (primkama),gdje sve unosim u bazu ulaznih racuna-tablice su pod 1.,također na isti princip unosim podatke za izlazne racune(po uzdatnicama),funkcionira super.Elementi su povezani sifrarnikom za artikle.Nadam se da je ovo otprilike jasno .Nisam naveo sva polja koje koristim radi lakseg prezentiranja problema.

Ali to izgleda otprilike ovako:

1.Tablice ulaza: "ulazniRacuni" [ulazniRacuni].[Datum_racuna] i " Elementi" s poljima Sifra_artikla i Kolicina.
Veza 1:mnogo , PK je ID

Tablice ulaza:" tblizlaznielementi" polje Datum_izlaza i " tblizlaznielementi" s poljima IZ_Sartikla i IZ_Kolicina.
Veza 1:mnogo ;

Gdje su IZ_Sartikla i Sifra_artikla polja u koje unosim sifru artikla iz sifrarnika.Znaci polja koja su sifrirana iz istog sifrarnika.
Jer za svaki artikl imam ulaz i izlaz s skladista.

MORAM DOBITI OVAKAV REPORT(IZVJESTAJ):

Sifra Artiklal UL_TOTAL IZ_TOTAL
1 Cipele 100 20
2 tenisice 200 10
3. papuče 50 20
4…….………….

Artikl se vuče s dlookup("artikal","sifrarnik_artikla",rb=reports!…..)

U modulu definiram :
Public SQL_Report As String
Za report odredim:
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = SQL_Report
End Sub
A u formi imam kod u kojem izvrsavam upit:
txtdatum_Od i txtdatum_DO su unbound polja u formi koja mi sluze za unos datumskih kriterija.

Ovo je sql s kojim dobivam rezultat za izlazne racune(izlaz):

SQL_Report= " SELECT [tblizlaznielementi].[IZ_SArtikla], SUM([tblizlaznielementi].[IZ_Kolicina]) AS IZ_TOTAL "
SQL_Report=SQL_Report & " FROM tblizlazniracuni INNER JOIN tblizlaznielementi ON [tblizlazniracuni].[ID]=[tblizlaznielementi].[ID] "
SQL_Report=SQL_Report & " WHERE [tblizlazniracuni].[Datum_izlaza] BETWEEN " & DateToStr(Me!txtdatum_OD) & " AND " & DateToStr(Me!txtdatum_DO) SQL_Report=SQL_Report & " GROUP BY [tblizlaznielementi].[IZ_SArtikla] "
SQL_Report=SQL_Report & " ORDER BY [tblizlaznielementi].[IZ_SArtikla];"

Rezultat:

Sifra Artiklal IZ_TOTAL
1 Cipele 20
2 tenisice 10
3. papuče 20
4…….………….


Ovo je query s kojim dobivam rezultate ua ulazne racune(ulaz).

SQL_Report =" SELECT [Elementi].[Sifra_artikla], sum([Elementi].[Kolicina]) AS UL_TOTAL"
SQL_Report =V & " FROM ulazniRacuni INNER JOIN Elementi ON [ulazniRacuni].[ID]=[Elementi].[ID]"
SQL_Report = SQL_Report & " WHERE [ulazniRacuni].[Datum_racuna] BETWEEN " & DateToStr(Me!txtdatum_OD) & " AND " & DateToStr(Me!txtdatum_DO) "
SQL_Report = SQL_Report & " GROUP BY [Sifra_artikla] "
SQL_Report = SQL_Report & " ORDER BY [Sifra_artikla];"

Rezultat:

Sifra Artiklal UL_TOTAL
1 Cipele 100
2 tenisice 200
3. papuče 50
4…….………….
Kako napravit sql izraz iz ova dva da bi dobio kompletni izvještaj(ulaz i izlaz po artiklu).
Znači ove dvije tablice moraju biti povezane preko sifre artikla.

Potpis

romano