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

Podatak = Trim(Me.OIB)
Provjera = ProvjeriOIB(Podatak)
If Provjera = False Then
MsgBox " Neispravan OIB"
Me.Undo
Exit Sub
End If
If Provjera = True Then
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
End If
Kraj:
End Sub