Textbox içerisine Barkod okutma

[Raufemir]

Herkese selamlar,

Ekteki dosyam içerisinde çalıştığım yere ait kırtasiye stoğumuz var.

UPC (Textbox11) içerisine barkod ile malzemenin barkod numarısını okuttuğumda, barkod numarasını sıkıntısız okuyor ve butonlarla bu datayı diğer sayfalara kaydedip, işlem yapabiliyorum.

Takıldığım nokta şudur.

İşlemi kaydetme ve diğer sayfalara datayı aktarma işlemini butonlara ihtiyaç duymadan otomatik yapmak istediğimde, barkod numarasının sadece ilk iki numarasını okuyor. Ve bu da datanın doğru transferine izin vermiyor.

Yazdığım kod aşağıdadır.

Private Sub TextBox11_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        
 If TextBox11 = "" Then
                TextBox4.Value = -1
            Else
                CommandButton1_Click
                CommandButton3_Click
                MsgBox "Adet/Miktar girmeniz gerekiyor.
            End If
 End Sub

Bu konuyla alakalı yardımlarınızı rica edeceğim.

 

[EmrExcel16]

Merhaba
Eger barkod okuyucunuz enter özelligi var ise ki vardir ,ozaman kodlarinizi enter dan sonrasina gore revize etmeniz gerekebilir.

Private Sub TextBox11_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
'Kod...enter yapildiginda yapilmak istenen
End if
End Sub

 

[Raufemir]

Merhaba
Eger barkod okuyucunuz enter özelligi var ise ki vardir ,ozaman kodlarinizi enter dan sonrasina gore revize etmeniz gerekebilir.

Private Sub TextBox11_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
'Kod...enter yapildiginda yapilmak istenen
End if
End Sub

Çok teşekkür ederim.
Yardımınız sayesinde şu an istediğimiz sonucu aldık.

Okuyan herkese de selamlar.

 

[Raufemir]

Barkodu taratıp veriyi aktardıktan sonra form içindeki textbox 'un imlecinin seri taratım için yine aynı textbox içerisinde görünmesi ile alakalı bir bilgisi olan var mıdır?

Bir kere tarattıktan sonra imleç kayboluyor maalesef...

 

[EmrExcel16]

Rica ederim ne demek yardimci olabildiysem ne mutlu ,diğer sorunuz ise kodlarinizin uygun yerine bunu siz belirleyebilirsiniz aşagidaki kodu ekleyiniz

TextBox11.SetFocus

 

[Zeki Gürsoy]

Diğer kontrollerin "TabStop" özelliğini "False" olarak ayarlayın. İmleç başka bir nesneye odaklanamaz.