Ama mantığı kapmış olmalısınız. Kodun aşağıdaki kısmını deneme yanılma yöntemi ile geliştirebilirsiniz.. Kolay gelsin.
DoCmd.GoToRecord , , acNewRec
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindLast "[URUNADI] = '" & Me![URUNADI] & "'"
If Not rs.EOF Then Me.URUNADI = rs.URUNADI