Private Sub gridStavki_Smetka_AfterColUpdate(ByVal ColIndex As Integer)

    Select Case ColIndex
           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
            Else
                 gridStavki_Smetka.Columns(0).Value = gridStavki_Smetka.ApproxCount
                 gridStavki_Smetka.Columns(2).Value = ArtikalID
                 gridStavki_Smetka.Columns(3).Value = DLookup("Ed_Mera", "tblArtikli", "ID_Artikal=" & ArtikalID)
                 gridStavki_Smetka.Columns(4).Value = 1
                 gridStavki_Smetka.Columns(5).Value = DLookup("Artikal_Prodazna_Cena", "tblArtikli", "ID_Artikal=" & ArtikalID)
                 gridStavki_Smetka.Columns(6).Value = DLookup("Artikal_DDV", "tblArtikli", "ID_Artikal=" & ArtikalID)
                ' gridStavki_Smetka.Col = 4
                 SendKeys "{RIGHT}"
                 SendKeys "{RIGHT}"
                 SendKeys "{RIGHT}"
             End If
            Case 2  ' Stavka pole
             ArtikalID = ""
             'Barkod
                 ArtikalID = gridStavki_Smetka.Columns(2).Value
                 If IsNull(gridStavki_Smetka.Columns(0).Value) Or gridStavki_Smetka.Columns(0).Value = "" Then
                    gridStavki_Smetka.Columns(0).Value = gridStavki_Smetka.ApproxCount
                 Else
                    gridStavki_Smetka.Columns(0).Value = gridStavki_Smetka.Columns(0).Value
                 End If
                 gridStavki_Smetka.Columns(0).Value = gridStavki_Smetka.ApproxCount
                 gridStavki_Smetka.Columns(1).Value = DLookup("Artikal_BarKod", "tblArtikli", "ID_Artikal=" & ArtikalID)
                 gridStavki_Smetka.Columns(2).Value = ArtikalID
                 gridStavki_Smetka.Columns(3).Value = DLookup("Ed_Mera", "tblArtikli", "ID_Artikal=" & ArtikalID)
                 gridStavki_Smetka.Columns(4).Value = 1
                 gridStavki_Smetka.Columns(5).Value = DLookup("Artikal_Prodazna_Cena", "tblArtikli", "ID_Artikal=" & ArtikalID)
                 gridStavki_Smetka.Columns(6).Value = DLookup("Artikal_DDV", "tblArtikli", "ID_Artikal=" & ArtikalID)
                 SendKeys "{RIGHT}"
                 SendKeys "{RIGHT}"
            Case 4  'kolicina pole
                If gridStavki_Smetka.Columns(4).Value <= 0 Then
                   gridStavki_Smetka.Columns(4).Value = 1
                   gridStavki_Smetka.Columns(4).RefreshCell
                End If
                  
            Case Else
         
     End Select

End Sub