VBA - Ograničavanje broja podataka u izveštaju

Često se dešava da vam prilikom formiranja izveštaja u Access-u trebaju samo selektivni podaci. Jedno od rešenja je da upitom ograničite broj podataka za prikaz, u recimo nekom izveštaju (Report), ali na ovaj način ne omogućavate korisnicima da oni sami izaberu šta im treba od podataka. Jedno od rešenja je korišćenje multi-select listbox-a, i na taj način omogućavanje višestrukog izbora podataka. Na primer, postavićemo na formu jedan listbox i osobinu "Multi Select" ćemo postaviti na Simple. Pored ove liste ćemo postaviti dugme koje će pozivati izvršenje upita, a zatim je moguće i generisanje izveštaja. Kriterijumi upita će da se popunjavati uz pomoć izabranih stavki iz listbox-a. Ubacite sledeći VBA kod u događaj "Click" dugmeta:

Private Sub btn_Upit_Click()
Dim stavka As Variant
Dim strSta As String
Dim strZarez As String
Dim strSQL As String
Dim upit As QueryDef

    strSta = "":    strZarez = ","
    For Each stavka In Me!Lista.ItemsSelected
        strSta = strSta & Me!Lista.ItemData(index)
        strSta = strSta & strZarez
    Next stavka

    Me!txtCriteria = CStr(Left$(strSta, Len(strSta) - Len(strZarez)))
    Set upit = CurrentDb.QueryDefs("qryVisestrukiUpit")

    strSQL = "SELECT * "
    strSQL = strSQL & "FROM Radnik WHERE MBR"
    strSQL = strSQL & " IN (" & Me!txtCriteria & ")"

    upit.SQL = strSQL
    upit.Close
    DoCmd.OpenQuery "qryMultiSelTest"
End Sub

Šta se ovde dešava? Pa prvo formiramo kriterijum od stavki iz liste i smeštamo ga u varijablu "strSta". Potom, čisto radi informacije korisniku, u tekst polju "txtCriteria" prikazujemo šta je sve izabrano. Onda definišemo SQL upit i prosleđujemo ga na izvršenje.