<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 Barkod_AfterUpdate()
On Error Resume Next
Dim BarCod As String

BarCod = Me.Barkod
Artikalce = DLookup("ID_Artikal", "tblArtikli", "Artikal_BarKod='" & BarCod & "'")
If IsNull(Artikalce) Or Artikalce = "" Then
'MsgBox "Не постои таков артикал "
   DoCmd.OpenForm "frmNajdi_Artikal", acNormal
 
 
Me.Undo
Exit Sub
Else
   Me.Smetka_Br = Forms![frmKasa]![ID_Smetka]
   Me.Stavka = Artikalce
   Me.DDV = Stavka.Column(2)
   Me.Ed_Cena = Stavka.Column(3)
   Me.Barkod = Stavka.Column(6)
   Me.Posledna_Prod_Cena = St