Private Sub OIB_BeforeUpdate(Cancel As Integer)
Dim Rs As DAO.Recordset
Dim Podatak

Podatak = Trim(Me.OIB)
If Format$(Podatak) <> "" Then
Set Rs = Me.Form.RecordsetClone
Rs.FindFirst "[OIB] ='" & Podatak & "'"
If Rs.NoMatch Then GoTo Kraj
Me.Undo
Me.Bookmark = Rs.Bookmark
End If
Kraj:
End Sub