Private Sub cmdPrikazi_Click()
    Dim RS As Object

    Set RS = Forms!frmUnosOsnovnihPodatakaOKorisniku.Recordset.Clone
    RS.FindFirst "[rednibrojkorisnika] = " & Me.txtRedniBrojKorisnika
    If Not RS.EOF Then Forms!frmUnosOsnovnihPodatakaOKorisniku.Bookmark = RS.Bookmark
    DoCmd.Close
End Sub