Access - Kontinualan broj stranica u više izveštaja

U nekim slučajevima, kod nekih aplikacija, biće vam potrebno da imate kontinualan broj stranica na vezanim izveštajima kako biste dobili jedan jedinstven izveštaj. Na ovaj način povezaćete više nezavisnih, odvojenih, Report-a u jedan. Na prvi pogled, Access ne nudi ovakvu opciju za spajanje izveštaja, ali tu je jezik VBA, uz čiju pomoć ćemo napraviti dve funkcije.

Kreiraćemo dve vrlo jednostavne funkcije koje ćemo smestiti u General modul, a pozivaćemo ih iz izveštaja. Evo šta treba uraditi da biste došli do željenog rezultata:

1. Kreirajte opšti (general) modul, i unutar sekcije deklaracija dimenzionišite jednu intedžer varijablu:
   

   intPageNum as Integer
   

2. Kreirajte Sub proceduru koja će inicijalizovati varijablu koja čuva broj stranice:
   

   Sub InitPageNums ()
       intPageNumbers = 0
   End Sub
   

3. Kreiraćemo zatim funkciju za vraćanje trenutnog broja stranice:
   

   Function GetPageNum () as Integer
       intPageNum = intPageNum + 1
       GetPageNum = intPageNum
   End Function
   

4. U prvom izveštaju, sastavnom delu serije izveštaja koji će biti kontinualno numerisani, pošaljite poziv funkciji InitPageNums() unutar obrade događaja OnOpen.
5. I na kraju, unutar podnožja (footer-a) svakog od izveštaja, dodajte nevezanu (unbound) tekst kontrolu. A kao izvor podataka (osobina Control Source) unesite sledeće:
   

   =GetPageNum()