CommandButtona tuş atama

[puslukurt]

Merhaba;
bir userform üzerinde bulunan 2 adet textbox ve 1 adet CommandButton var. textbox1 veri girip enter tuşuna bastığımda CommandButton tuşunun çalışmasını istiyorum. ilgi ve alakanıza şimdiden teşekkür ederim.

 

[cems]

VBE kısmındayken forma sağ tıkllayın , tab order seçin . Burada sırasıyla kursorun ilerlemesini istediğiniz şekilde nesneleri sıralandırın. Bu durumda ilk nesne textbox2 ikinci nesne textbox 1 ücüncü nesne commndbutton olacaktır. Normal formda üçüncü atlanılan nesne tuş olur, son kez basınca da çalışır.

Ya da textbox1_exit olayına "call commandbutton1" yazın , textboxtan çıkarken tuşa da basılmış olur.

 

[puslukurt]

her iki yöntemi de denedim olmadı

ikinci yöntemi şu şekilde yazmıştım doğrumu acaba

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

birde textbox2 nin exit olayınıda yazdım aynı kodu hata verdi..

birde fare imlecinin devamlı textbox1 de kalması için ne yapmalıyım.

 

[PLİNT]

Merhaba
Kırmızı bölüm eksik olmuş

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call CommandButton1[COLOR="Red"]_Click[/COLOR]
End Sub

"Commandbutton1" in tab indexi "textbox1" den sonra ise;

Private Sub CommandButton1_Enter()
TextBox1.SetFocus
End Sub

Veya, eğer "Commandbutton1" kodlarını çalıştırdıktan sonra "Textbox1" boşaltılıyorsa ;

[SIZE="2"]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value = "" Then Exit Sub
Call CommandButton1_Click
TextBox1.Value = ""
TextBox1.SetFocus
Cancel = True
End Sub[/SIZE]

 

[puslukurt]

Hocam harikasınız.
evet textbox boşalması gerek ve fare imleci textbox gitse büyük kolaylık olacaktı ikinci verdiğiniz kod harika olmuş tam istediğimden de fazlası çok teşekkür ederim bilginize ve ellerinize sağlık çooook teşekkür ederim.