Prikazi cijelu temu
13.10.2013 14:04
13.10.2013 14:04
Predmet:Re: Izveštaj na osnovu crosstab upita sa parametrima!
Kako napraviti periodični parametarski izveštaj na osnovu Crosstab query-ja?
Zaboravi vizarde.
Pošto Crosstab query može da se zasniva samo na jednoj tabeli, pokušaj to ovako:
1. Napraviš jednu novu tabelu „tblPrivremena“.
2. Na formi gde postoje dva datumska polja za period dodaš dugme i parče VBA koda na događaj On Click. VBA kod prvo briše privremenu, potom pokreće parametarski query i potom akcioni query.
3. Parametarski query referenciran je na datumska polja forme.
4. Akcioni query na osnovu parametarskog qyery-ja kao izvora podataka puni tabelu „tblPrivremena” .
5. Crosstab Query zasnuješ na privremenoj tabeli kao izvoru podataka.
6. Automatizacija je u VBA kodu ispod dugmeta koje sam pominjao izgleda ovako:
CurrentDb.Execute "DELETE * FROM [tblPrivremena]" ' prazni tabelu tblPrivremena
DoCmd.OpenQuery "qry_appendPrivremena" ' puni tabelu na osnovu parametarskog query-ja
DoCmd.OpenQuery "CrosstabQuery", acPreview
' Kad napravis izveštaj kakav želiš na osnovu qry_Crosstab query-ja, umesto prethodnog reda napiši:
' DoCmd. OpenReport "PeriodicniIzvestaj", acPreview
Na ovaj način Crosstab query-ju, kojem u principu ne mogu da se proslede parametri sa forme zadaješ period. Izveštaj koji napraviš na osnou Crosstab query-ja pokreni umesto njega u VBA kodu, gde sam napomenuo.
Kako napraviti periodični parametarski izveštaj na osnovu Crosstab query-ja?
Zaboravi vizarde.
Pošto Crosstab query može da se zasniva samo na jednoj tabeli, pokušaj to ovako:
1. Napraviš jednu novu tabelu „tblPrivremena“.
2. Na formi gde postoje dva datumska polja za period dodaš dugme i parče VBA koda na događaj On Click. VBA kod prvo briše privremenu, potom pokreće parametarski query i potom akcioni query.
3. Parametarski query referenciran je na datumska polja forme.
4. Akcioni query na osnovu parametarskog qyery-ja kao izvora podataka puni tabelu „tblPrivremena” .
5. Crosstab Query zasnuješ na privremenoj tabeli kao izvoru podataka.
6. Automatizacija je u VBA kodu ispod dugmeta koje sam pominjao izgleda ovako:
CurrentDb.Execute "DELETE * FROM [tblPrivremena]" ' prazni tabelu tblPrivremena
DoCmd.OpenQuery "qry_appendPrivremena" ' puni tabelu na osnovu parametarskog query-ja
DoCmd.OpenQuery "CrosstabQuery", acPreview
' Kad napravis izveštaj kakav želiš na osnovu qry_Crosstab query-ja, umesto prethodnog reda napiši:
' DoCmd. OpenReport "PeriodicniIzvestaj", acPreview
Na ovaj način Crosstab query-ju, kojem u principu ne mogu da se proslede parametri sa forme zadaješ period. Izveštaj koji napraviš na osnou Crosstab query-ja pokreni umesto njega u VBA kodu, gde sam napomenuo.
Ovaj post je ureden 2
puta. Posljednja izmjena 13.10.2013 14:07 od strane Getsbi.