Private Sub Command75_Click()

Dim strFilterSQL As String

strSQL = "qryNarudzbePregled"

    Select Case Me.optStatusBy
        
        Case 1
            strFilterSQL = strSQL
        Case 2
            strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'u procesu';"
        Case 3
            strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'placeno';"
        Case 4
            strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'poslano';"
        Case 5
            strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'dostavljeno';"
        Case 6
            strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'storno';"
    End Select
    
    Me.RecordSource = strFilterSQL
    Me.Requery

End Sub