Access - Слање параметара извештајима коришћењем програмског кода (II део)

За подешавање низа параметара који ће бити прослеђени приликом формирања извештаја урадите следеће:

• Креирајте нови програмски модул општег типа, и унутар секције декларација дефинишите низ типа variant. Ми ћемо у примеру користити низ од 10 елемената, али он може бити било које величине. Мањи низови ефикасније користе меморију. Користићемо variant тип низа, пошто нам је потребно да чувамо било који тип података.
  

    Dim nizParametri(10)
  

• Креирајте нову Sub процедуру која ће вам омогућити да подесите вредности елемената низа:
  

  Public Sub SetParam(ByVal InputVal, ByVal ParamID)
  
      nizParametri(ParamID) = InputVal
  
  End Sub
  

  Овде InputVal представља вредност параметра, а ID је број параметра који ће бити подешен.

• Креирајте сличну функцију за враћање вредности параметара из низа:
  

  Public Function GetParam(ByVal ParamID)
  
      GetParam = nizParametri(ParamID)
  
  End Function
  

• Потом, унутар упита везаног за извештај, где иначе подешавате параметре унутар секције критеријума (Criteria), једноставно додајте позив функције којом добијате унете параметре:
  

    =GetParam(X)
  

  где X = 1 или 2 или 3 и тако даље представља редни број параметра у упиту.

• Затим у VBA коду, пре отварања извештаја, једноставно позовите SetParam потпроцедуру за сваки параметар извештаја са вредностима параметара које желите да користите у извештају. Као на пример:
  

   Public Sub Stampaj_Registracija
   
  (PocDatum, KrajnjiDatum)
  
      Call SetParam(PocDatum, 1)
      Call SetParam(KrajnjiDatum, 2)
  
      DoCmd.OpenReport "Registracija", A_Normal
  
  End Sub