Private Sub Command75_Click() 
Dim strFilterSQL As String
 
strSQL = "SELECT * FROM qryNarudzbePregled"
 
    Select Case Me.optStatusBy
        
        Case 1
            strFilterSQL = strSQL
        Case 2
            strFilterSQL = "Where [StatusNarudzbe] = 'u procesu';"
        Case 3
            strFilterSQL ="Where [StatusNarudzbe] = 'placeno';"
        Case 4
            strFilterSQL = "Where [StatusNarudzbe] = 'poslano';"
        Case 5
            strFilterSQL ="Where [StatusNarudzbe] = 'dostavljeno';"
        Case 6
            strFilterSQL = "Where [StatusNarudzbe] = 'storno';"
    End Select
    
   strSQL=strSQL & " " &  strFilter

   Me.RecordSource = strSQL
 
End Sub