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 = Stavka.Column(3)
   DoCmd.RunCommand acCmdSaveRecord
   DoCmd.GoToRecord , , acNewRec
   SendKeys "{LEFT}"
   Me.Kolicina.SetFocus

End If
End Sub