Private Sub cmdPrikazi1_Click()
Dim RS As Object, strFilter As String
strFilter = "[rednibrojkorisnika] = " & Me.txtRedniBrojKorisnika
Set RS = Forms!frmUnosOsnovnihPodatakaOKorisniku.Recordset.Clone
RS.FindFirst strFilter
If Not RS.EOF Then Forms!frmUnosOsnovnihPodatakaOKorisniku.Bookmark = RS.Bookmark
Set RS = Nothing
DoCmd.Close acForm, Me.Name
End Sub