Vba kod ile yapılan programa barkod ekleme

[vipscorpion]

Merhabalar

Yaptığım kodlamaya göre barkod cihazıyla okuma yaptığımda textbox'a barkod verisi ekleniyor. Ancak barkoda göre ürün bilgisini diğer textboxlara getiremiyorum.

yaptığım kod aşağıdaki gibidir.

Private Sub Tb4_Barkod_Change()
If Devam = 1 Then Exit Sub
Aranan = Tb4_Barkod

Call BilgileriGetir5_Ürünler
End Sub

Sub BilgileriGetir5_Ürünler()

Call Temizle5_ÜrünBilgileri
On Error Resume Next
KayıtSatırı = WorksheetFunction.Match(Tb4_Barkod, wsStok.Range("l:l"), 0)
If Err.Number > 0 Then
Err.Number = 0
Else
'----------------------------------------------Stok Sayfasından Bilgileri Getir
Tb4_BirimFİyatı = FormatNumber(SayıKontrol(wsStok.Cells(KayıtSatırı, 4)), 2)
Tb4_Ürünadı = wsStok.Cells(KayıtSatırı, 1)
Lb4_Stok = FormatNumber(SayıKontrol(wsStok.Cells(KayıtSatırı, "G")), 0)
'------------------------------------------------Resmi Getir
ResimYolu = ThisWorkbook.Path & "\Ürünler\" & Tb4_Ürünadı & ".jpg"
On Error Resume Next
Res4_Ürün.Picture = LoadPicture(ResimYolu)
If Err.Number > 0 Then
Err.Number = 0
Res4_Ürün.Picture = LoadPicture("")
End If
End If
End Sub