Private Sub SifraArt_AfterUpdate()
Me.JM = Me.SifraArt.Column(2)
Me.NCena = Me.SifraArt.Column(3)
End Sub