Case 1 'Barkod pole
ArtikalID = ""
'Barkod
ArtikalID = DLookup("ID_Artikal", "tblArtikli", "Artikal_BarKod='" & gridStavki_Smetka.Columns(1).Text & "'")
If IsNull(ArtikalID) Or ArtikalID = "" Then
' MsgBox "nema barkod"
'Sifra
ArtikalID = DLookup("ID_Artikal", "tblArtikli", "Artikal_Sifra='" & gridStavki_Smetka.Columns(1).Text & "'")
If IsNull(ArtikalID) Or ArtikalID = "" Then
' MsgBox "nema sifra"
frmNajdi_Artikal.Show
frmNajdi_Artikal.pret.Text = gridStavki_Smetka.Columns(1).Text
' Naziv
End If