Access - Континуалан број страница у више извештаја

У неким случајевима, код неких апликација, биће вам потребно да имате континуалан број страница на везаним извештајима како бисте добили један јединствен извештај. На oвај начин повезаћете више независних, одвојених, Report-а у један. На први поглед, Access не нуди овакву опцију за спајање извештаја, али ту је језик VBA, уз чију помоћ ћемо направити две функције.

Креираћемо две врло једноставне функције које ћемо сместити у General модул, а позиваћемо их из извештаја. Ево шта треба урадити да бисте дошли до жeљеног резултата:

1. Креирајте општи (general) модул, и унутар секције декларација димензионишите једну интеџер варијаблу:
   

   intPageNum as Integer
   

2. Креирајте Sub процедуру која ће иницијализовати варијаблу која чува број странице:
   

   Sub InitPageNums ()
       intPageNumbers = 0
   End Sub
   

3. Креираћемо затим функцију за враћање тренутног броја странице:
   

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

4. У првом извештају, саставном делу серије извештаја који ће бити континуално нумерисани, пошаљите позив функцији InitPageNums() унутар обраде догађаја OnOpen.
5. И на крају, унутар подножја (footer-а) сваког од извештаја, додајте невезану (unbound) текст контролу. А као извор података (особина Control Source) унесите следеће:
   

   =GetPageNum()