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