<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 Sifra_BeforeUpdate(Cancel As Integer)

Dim UNOS As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset

Set rsc = Me.RecordsetClone

UNOS = Me.Sifra.Value

stLinkCriteria = "[Sifra]=" & "'" & UNOS & "'"
    
    ' Provjera dali u  tblMaterijal ve postoji šifra koja se upisuje

If DCount("Sifra", "tblProdajaStavke", stLinkCriteria) > 0 Then

Me.Undo

MsgBox "Upozorenje Sifra broj " & UNOS & " ve je ranije upisana." & vbCr & vbC