enter'a basılınca herhangi bir yere gitmesin

[red_lion_72]

selam

userformda da textbox ta enter'a basılınca command1 butonunu çalıştırıp tekrar textbox'a focus olmasını istiyorum.

kod şu ama olmuyor(yada yanlış var)

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
CommandButton1_Click
TextBox1.SetFocus
Else
End If
End Sub

cursor ısrarla butonun üzerine focus oluyor.

kolay gelsin

 

[isakarakus]

merhaba ,
keydown olayına yazmayı dene


Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
CommandButton1_Click
KeyCode = 0 'enteri iptal ediyor
Else
End If
End Sub

 

[red_lion_72]

çok çok teşekkürler :dua: ilginize sorunum çözüldü :hihoho:

kolay gelsin.