Setfocus..

[acolkesen1]

Merhaba,
Ekli dosyada açılan userformda barkod kutusuna rakam olmayan bir giriş yapıldığında mesajdan sonra imlecin tekrar barkod kutusuna gelmesini istiyorum. Bu amaçla Setfocus komutunu kullandım ama imleç bir sonraki textboxa gidiyor.Bunu sağlamak için nasıl bir kod veya yol kullanmalıyım? İlgilenen arkadaşlara teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox15_Change()
If Not IsNumeric(TextBox15.Value) Then
MsgBox "BARKOD OLARAK SADECE RAKAM KULLANABİLİRSİNİZ!"
TextBox15.SetFocus
TextBox15.SelStart = 1
TextBox15.SelLength = Len(TextBox15.Text)
End If
End Sub

Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox15.Value) Then
MsgBox "BARKOD OLARAK SADECE RAKAM KULLANABİLİRSİNİZ!"
TextBox15.SetFocus
TextBox15.SelStart = 1
TextBox15.SelLength = Len(TextBox15.Text)
Cancel = True
Exit Sub
End If
If TextBox15 <> "" Then
TextBox2.Enabled = True
End If
If WorksheetFunction.CountIf([STOK!B:B], TextBox15 * 1) >= 1 Then
Unload Me
MsgBox "BU BARKOD NUMARASI İLE DAHA ÖNCE KAYIT YAPILMIŞ..", vbCritical, "MTM"
UserForm42.Show
TextBox15 = Empty
TextBox2.Enabled = False
TextBox15.SetFocus
Exit Sub
End If
End Sub

 

[acolkesen1]

Merhaba Sayın Evren Gilen,
Biraz geç oldu ama kusura bakmayın..Malum dün pazardı, bağ bahçe işleri falan..Cevabınız için teşekkür ederim. Esenkalın..

 

[Orion1]

Merhaba Sayın Evren Gilen,
Biraz geç oldu ama kusura bakmayın..Malum dün pazardı, bağ bahçe işleri falan..Cevabınız için teşekkür ederim. Esenkalın..

Rica ederim.,
İyi çalışmalar.