Excel'de barkodu eksik okuyor.

[ynsemrektk]

Merhabalar , barkod okuma ve market yönetim sistemi oluşturmaya çalışıyorum fakat büyük bir problem olduğunu farkettim. Herhangi bir ürünün barkodunu excelde boş bir yere okutmaya çalıştığımda barkod eksik okunuyor. Başka bilgisayardan aynı ürünü denediğmide doğru okunuyor fakat aynı problem başka ürünlerde de oluşabiliyor bunun sebebi nedir acaba çok teşekkür ederim şimdiden.

 

[Muzaffer Ali]

Merhaab.
Barkodlar orijinal barkod mu kendiniz mi oluşturdunuz?
Barkodu yanlış okuyan bilgisayarda NotPad'e okutun, yine aynı hatayı veriyor mu?

 

[ynsemrektk]

Merhaab.
Barkodlar orijinal barkod mu kendiniz mi oluşturdunuz?
Barkodu yanlış okuyan bilgisayarda NotPad'e okutun, yine aynı hatayı veriyor mu?

Yeni bir detay farkettim resimleri ile paylaşayım.
https://hizliresim.com/uZJXLn
burada box'ın üstüne gelip okutunca ortadaki 7 rakamı eksik

a6Ovh0.png

doğru

hizliresim.com

burada ise aynı textboxın özelliklerine girip oradan okutunca doğru okuyor

 

[Muzaffer Ali]

O zaman textboxın change ve exit gibi olaylarını kontrol etmelisiniz. Kodlara müdahale ediyor olabilir.

 

[ynsemrektk]

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub txtBarkod_Change()

End Sub

Private Sub txtBarkod_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then URUN_BUL

End Sub

Sub URUN_BUL()
Dim x As Long
Dim urunvar As Label
Dim urunyok As Label
For x = 2 To 120000
If Sheets("STOK").Range("A" & x).Value = txtBarkod.Text Then GoTo urunvar
If Sheets("STOK").Range("A" & x).Value = "" Then GoTo urunyok
Next
urunvar:
txtUrun.Value = Sheets("STOK").Range("B" & x).Value
txtFiyat.Value = Sheets("STOK").Range("D" & x).Value
Exit Sub
urunyok:
MsgBox "Aradığınız Ürün Bulunamadı. Lütfen Stok Tanımlaması Yapınız", vbOKOnly + vbInformation

End Sub

Private Sub txtBarkod_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

End Sub

O zaman textboxın change ve exit gibi olaylarını kontrol etmelisiniz. Kodlara müdahale ediyor olabilir.

yazmakta olduğum kod bu fakat barkodun okunması ile ilgili bir hata sezemiyorum

 

[ynsemrektk]

Ekstra bir ayrıntı daha keşfettim . Text box'ın içine okuturken eksik okunan rakam her zaman 7 rakamı. Hala bir sonuç bulamadım yardımlarınıza açığım

 

[Muzaffer Ali]

Not pad açıp barkodu oraya okutup deneyin.
Farklı farklı barkodları deneyin.
Barkod okuyucunuzu değiştirin. Yada başka bilgisayarda barkod okuyucunuzu test edin.

 

[ynsemrektk]

Not pad açıp barkodu oraya okutup deneyin.
Farklı farklı barkodları deneyin.
Barkod okuyucunuzu değiştirin. Yada başka bilgisayarda barkod okuyucunuzu test edin.

3 bilgisayarda test ettim hepsinde text box'ın içinde 7 rakamını okumuyor . Her yerde düzgün okuyor fakat visual basicte tasarladığım text box'ın içinde 7 rakamını okumuyor

 

[Saban Sertkaya]

Textbox'ta yazılmış bir kod veya karakter sınırlaması olabilir mi ? Hoş karakter sınırlaması olsa muhtemelen, ilk veya son rakamı yazmazdı. Textbox'a bir kod yazılmış olma olasılığı daha yüksek gibi.

 

[Muzaffer Ali]

3 bilgisayarda test ettim hepsinde text box'ın içinde 7 rakamını okumuyor . Her yerde düzgün okuyor fakat visual basicte tasarladığım text box'ın içinde 7 rakamını okumuyor

Dosyanızı ekleyin kontrol edelim.

 

[ynsemrektk]

Dosyanızı ekleyin kontrol edelim.

İndir barcode çalışma yedek

Dosyayı indir barcode çalışma yedek

dosya.co

açılan sayfada satış yap butonuna tıklayınca direkt barkod okutma ekranı geliyor oradan kontrol edebilirsiniz. Şimdiden teşekkür ederim

 

[Saban Sertkaya]

Merhabalar,
Ben bir anormallik göremedim

 

[Muzaffer Ali]

Herhangi bir sorun görünmüyor.
Bu durumda tek akla gelen barkod okuyucuda sorun olduğu.
Kodlardaki txtBarkod_KeyDown kodunu da silip deneyin. Düzelmezse barkod okuyucuda sorun var demektir.
Başka bir şey gelmiyor aklıma.

 

[ynsemrektk]

Merhabalar,
Ben bir anormallik göremedim

önceki yorumda bahsettiğim gibi barkodun içerisinde 7 rakamı varsa onu okumuyor örnekle de gösterdim aslında

 

[ynsemrektk]

Herhangi bir sorun görünmüyor.
Bu durumda tek akla gelen barkod okuyucuda sorun olduğu.
Kodlardaki txtBarkod_KeyDown kodunu da silip deneyin. Düzelmezse barkod okuyucuda sorun var demektir.
Başka bir şey gelmiyor aklıma.

bomboş yeni bir txtbox oluşturup onun içine de okuttuğumda 7 rakamı eksik geliyor.
Eğer barkod okuyucu bozuk olsaydı normalde notpadde okuttuğumda da 7 rakamının eksik olması lazım fakat notpadde hepsini doğru okuyor. Hala yardımınza muhtacım

 

[Muzaffer Ali]

İlginç bir sorun. Ben yine de okuyucuda sorun var diye düşünüyorum. Başka bir bilgisayarda okuyucuyu denediniz mi?

 

[YUSUF44]

Deneme amaçlı elle içinde 7 olan bir barkod girdiğimde kodlar düzgün çalıştı. Barkod okuyucum olmadığından o şekilde deneyemedim. Ancak barkod okuyucunun bir farkı olacağını sanmıyorum. Başka yerde doğru okuyup da userformda yanlış okuyorsa sorun barkod okuyucuda değildir diye düşünüyorum.

 

[ynsemrektk]

Deneme amaçlı elle içinde 7 olan bir barkod girdiğimde kodlar düzgün çalıştı. Barkod okuyucum olmadığından o şekilde deneyemedim. Ancak barkod okuyucunun bir farkı olacağını sanmıyorum. Başka yerde doğru okuyup da userformda yanlış okuyorsa sorun barkod okuyucuda değildir diye düşünüyorum.

manuel olarak giriş yapılınca zaten bir problem olmuyor. sanırım barkod okuyucu okuyup o textboxa yazarken bilgi kaçırıyor fakat her yerde doğru çalışıp sadece text boxa okumaması barkod okuyucudan kaynaklı olmasını imkansız kılıyor

 

[onder_09]

manuel olarak giriş yapılınca zaten bir problem olmuyor. sanırım barkod okuyucu okuyup o textboxa yazarken bilgi kaçırıyor fakat her yerde doğru çalışıp sadece text boxa okumaması barkod okuyucudan kaynaklı olmasını imkansız kılıyor

barkod okuyucusu var bende denedim ve okudu.

 

[ynsemrektk]

barkod okuyucusu var bende denedim ve okudu.

Ama çok mantıksız benim barkod okuyucunun ayarları ile mi oynanmış acaba böyle bir şey mümkün mü?