Private Sub OIB_BeforeUpdate(Cancel As Integer)
Dim UNOS As String
Dim stDocName As String
Dim stLinkCriteria As String
Dim stLink As String
Dim rsc As DAO.Recordset

Set rsc = Me.RecordsetClone

UNOS = Me.OIB.Value

stLinkCriteria = "[OIB]=" & "'" & UNOS & "'"
    
    ' Provjera dali u  tblPartneri ve
 postoji OIB koji se upisuje

If DCount("OIB", "tblPartneri", stLinkCriteria) > 0 Then

Me.Undo

MsgBox "Upozorenje OIB " & UNOS & " ve
 je ranije upisan." & vbCr & vbCr & "Biti ete preba
eni na taj zapis.", vbInformation

rsc.FindFirst stLinkCriteria

stDocName = "frmKupci"
stLink = "[OIB]=UNOS"
DoCmd.OpenForm stDocName, , , UNOS


'Me.Bookmark = rsc.Bookmark
End If
Set rcs = Nothing
End Sub