Veliki broj izveštaja sadrži podatke koji su sortirani po grupama (grupisani). Često ćete u izveštajima, kao što su na primer fakture, želeti da restartujete broj stranice na "1" za svaku grupu, za razliku od default podešavanja Access-a, gde broj stranica teče kontinualno. Ovo podešavanje vrlo lako možete da izvedete ubacivanjem programskog koda unutar modula izveštaja. Evo kako ćete doći do cilja:
- Unutar sekcije deklaracija programskog modula izveštaja, dimenzionisaćemo varijablu koja će koristiti kao indikator startovanja nove grupe podataka:
Dim Grupa as Integer 'mozete koristiti Boolean tip varijable - Unutar obrade događaja OnPrint sekcije Group Header, dodajte naredni programski kod koji će prepoznavati početak svake nove grupe:
Grupa= -1 'true - Unutar obrade događaja OnPrint sekcije Group Footer dodajete naredni programski kod, kojim obeležavamo završetak grupe:
Grupa= 0 'false - Kreirajte nevezano (unbound) tekst polje unutar footer-a izveštaja, i nazovite ga recimo "BRSTR".
- Unutar obrađivača događaja OnPrint PageFooter-a, dodajte sledeći programski kod:
Static GrupniBRSTR as Integer If Grupa = 0 Then ' Zavrsetak poslednje grupe GrupniBRSTR = 1 ' prvi broj stranice za grupu Else ' i dalje smo u istoj grupi, sve dok je Grupa=-1 GrupniBRSTR = GrupniBRSTR +1 'uvecanje broja stranice End If Me!BRSTR = GrupniBRSTR 'dodela generisanog broja stranice kontroli
Pratite Krstaricu na www.krstarica.com