Access – Filtriranje izveštaja

U sledećem primeru videćemo kako možete da u vlastitim Access aplikacijama ugradite mogućnost filtriranja izveštaja, pre štampanja ili prikaza na ekranu. Ovom opcijom će korisnici vaših programa moći da sami odrede šta treba da se pojavi u izveštaju, a šta ne. U stvari, aplikacija će „pitati“ korisnika za vrednost koju ćete koristiti kao filter ograničavanja slogova u izveštaju, i to pre njegovog otvaranja. Unos vrednosti filtera omogućićemo preko InputBox-a, a samu vrednost ćemo ubaciti u uslov Where. Na slici možete videti kako će izgledati forma za poziv izveštaja i InputBox. Na formi imamo samo jedno dugme kojim pokrećemo generisanje filtriranog izveštaja. Programski kod koji stoji iza ovog dugmića je sledeći:

 Private Sub Command_Click()

   Dim strRJ As String

   Dim strFilter As String

   strRJ = Inputbox („Unesite broj radne jedinice“, „Radna jedinica“)

   If strRJ = “ “ Then

         ‘   u slucaju klika korisnika na Cancel

         GoTo Izlaz_iz_programa

   End If

   strFilter = „[Radna_jedinica] = “ “ “ & strRJ & “ “ “  “

   DoCmd.OpenReport „Spisak radnih jedinica“, asViewPreview, , strFilter

 Izlaz_iz_programa:

Exit Sub

End Sub

Kao što se može videti, funkcija InputBox vraća vrednost koju korisnik unosi i zatim se ta vrednost smešta u promenljivu strRJ. Nakon ovoga, promenljiva se koristi za postavljanje uslova Where, kod metode OpenReport. Primetićete i jednu If…Then naredbu, ona služi za proveru da li je korisnik možda kliknuo na dugme Cancel (vraća string „nulte“ dužine). Promenljivoj strFilter se dodeljuje naziv polja za filtriranje i sama vrednost promenljive strRJ, čime se gradi uslov Where. Da bi uslov Where prikazao vrednost strRJ pod navodnicima, moraćete da uključite i navodnike u filter. Nakon toga uslov Where može izgledati ovako:

 Where [Radna_jedinica] = „Proizvodnja“

Ovim filterom korisnik je selektovao sve slogove gde je vrednost polja „Radna_jedinica“ – „Proizvodnja.“

Pratite Krstaricu i preko mobilne aplikacije za Android i iPhone.