Enter tuşuna buton atama

[massgrave]

TexBox'1 veri yazıldıktan sonra ENTER tuşuna basıldığında CommandButon1'i çalıştırmasını nasıl sağlarız.

 

[çıtır]

Aşağıdaki şekilde deneyiniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CommandButton1_Click
End Sub

 

[massgrave]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CommandButton1_Click
End Sub

Bu kod ile textbox'a tıklar tıklamaz boş dahi olsa boş arama yapıyor.
Ayrıca kutu boş olduğunda arama yapınca uyarı mesajı var vba'ı açınca sürekli bu uyarı ile karşılaşıyorum.

 

[metehan8001]

Alternatif:

Private Sub TextBox1_Enter()
If IsEmpty(Me.TextBox1.Text) Then Exit Sub
CommandButton1_Click
End Sub

 

[çıtır]

Textbox1 den çıkmadan işlem yapmaz.Başka kodlar neden olabilir.

 

[ragnorak]

Private Sub Textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
call CommandButton1_Click
End If
End Sub