setfocus çalıştıramıyorum.

[beza]

Merhaba,
Private Sub TextBox1_AfterUpdate() altına yazdığım;

Private Sub TextBox1_AfterUpdate()
Dim urunf, tutar As Long
On Error GoTo yok

bul = TextBox1
Range("a:a").Find(bul, lookat:=xlWhole).Select
barkod = ActiveCell
urun = ActiveCell.Offset(0, 1).Value
urunf = ActiveCell.Offset(0, 2).Value
adet = TextBox5
tutar = adet * urunf
TextBox3.Text = FormatNumber(tutar, 2) & " TL"
TextBox2.Text = barkod & " - " & urun
TextBox6.Text = FormatNumber(urunf, 2) & " TL"

ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = barkod
ListBox1.List(ListBox1.ListCount - 1, 1) = urun
ListBox1.List(ListBox1.ListCount - 1, 2) = FormatNumber(urunf, 2)
ListBox1.List(ListBox1.ListCount - 1, 3) = adet
ListBox1.List(ListBox1.ListCount - 1, 4) = FormatNumber(tutar, 2)

For i = 0 To ListBox1.ListCount - 1
topla4 = CDbl(Val(ListBox1.List(i, 4))) + CDbl(Val(topla4))
Next i

TextBox4.Text = FormatNumber(topla4, 2) & " TL"

TextBox1 = ""
TextBox5 = 1
Exit Sub
yok: MsgBox "Ürün Kayıtlı Değil."
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox5 = ""
TextBox6 = ""
TextBox1.SetFocus
End Sub

kodlama sonucu textbox1.setfocus çalışmıyor. Değişik satırlara yazarakta denedim. Yani ENTER tuşuna bastığımda kayıt bulunuyor, Listbox1 e geliyor. Testbox1 temizleniyor. Ancak imleç textbox1 e gelmiyor.
Hatamı bulamıyorum. Şimdiden teşekkür ederim.

 

[Haluk]

Kodları CommandButton'a bağlı olarak çalıştırıp, deneyin bence...

.

 

[beza]

Haluk Bey, butona bağlandığında sorun yok. Textbox1 e barkod okuyucu ile giriş yapılıp otomatik enter leniyor. Butona basmaya gerek olmadan giriş yapabilmek adına bu şekilde.