<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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