<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 SifraArtikla_BeforeUpdate(Cancel As Integer)
 
 Dim UPIS As String

    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset

    Set rsc = Me.RecordsetClone

    UPIS = Me.SifraArtikla.Value
   
    stLinkCriteria = "[SifraArtikla]=" & "'" & UPIS & "'"

    If DCount("SifraArtikla", "Q_Transakcije", _
              stLinkCriteria) > 0 Then
       
        Me.Undo
        
        MsgBox "Pažnja arikl sa šifrom " _
             & UPIS & " ve je upisan." _
             & vbCr & vbCr & "Kursor e se prebaciti na taj podatak.", _
               vbInf