Private Sub UposleniciFilter_Click()
     Me.FilterOn = False
     Me.Filter = ""
 Select Case UposleniciFilter.Value
        Case 1
          Me.Filter = "[Prezime] Like ""A*"""
        Case 2
          Me.Filter = "[Prezime] Like ""B*"""
        Case 3
          Me.Filter = "[Prezime] Like ""C*"""
        ' Dodas redom za sva slova
        Case 28
          Me.Filter = ""
          
 End Select
          Me.FilterOn = True
          Me.Requery
End Sub