Textbox dan çıkınca bir önceki TextBoxa geri dönme

[yselimyilmaz]

Selam Arkadaşlar;

Ekli örnek dosyamda TextBox1 ve TextBox2 ye veri girerek ListBox oluşturup onuda sayfa1 e aktarıyorum.

TextBox2 Exit olayı içerisine ListBox oluşturma kodlarını yazdım.
Yine TextBox2 Exit olayı içerisine;
TextBox2 ye veri girdikten sonra imlecin TextBox1 e geri dönmesini sağlayan kod yazmak istiyorum.

TextBox1.SetFocus denedim ama başaramadım.

Yardımcı olmanızı bekliyorum.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox1.Value <> Empty And TextBox2.Value <> Empty Then

With ListBox1
.AddItem TextBox1.Text
.List(.ListCount - 1, 1) = TextBox2.Text
End With
Else
End If

Call TextBox1_Enter

End Sub
Private Sub TextBox1_Enter()
TextBox1.Value = Empty
TextBox2.Value = Empty
End Sub

 

[Orion1]

Buyurun.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox1.Value <> Empty And TextBox2.Value <> Empty Then
      
        With ListBox1
            .AddItem TextBox1.Text
            .List(.ListCount - 1, 1) = TextBox2.Text
        End With
    Else
End If

Call TextBox1_Enter
[B][COLOR="Red"]TextBox1.SetFocus[/COLOR][/B]

End Sub

 

[yselimyilmaz]

Sayın Orion1 ilginiz için teşekkür ederim.
Sorumdada belirttiğim gibi TextBox1.SetFocus ile yapamadım. Tekrar denedşm yine olmuyor.
Acaba sorun (ByVal Cancel As MSForms.ReturnBoolean) bu yordam damı?

 

[Orion1]

Sayın Orion1 ilginiz için teşekkür ederim.
Sorumdada belirttiğim gibi TextBox1.SetFocus ile yapamadım. Tekrar denedşm yine olmuyor.
Acaba sorun (ByVal Cancel As MSForms.ReturnBoolean) bu yordam damı?

Bende çalışıyor.
Butona basınca çalışır.
Dosya ektedir.

 

[yselimyilmaz]

Malesef gönderdiğiniz dosyadada denedim olmadı.
Seri bir şekilde Userform ile bilgi girebilmek için İmlecin enter a bastıktan sonra Texbox1 ve Texbox 2 arasında gidip gelmesini istiyorum. Textbox1 den 2 ye gidiyor ama ikiden 1 e gitmiyor.

 

[Orion1]

Malesef gönderdiğiniz dosyadada denedim olmadı.
Seri bir şekilde Userform ile bilgi girebilmek için İmlecin enter a bastıktan sonra Texbox1 ve Texbox 2 arasında gidip gelmesini istiyorum. Textbox1 den 2 ye gidiyor ama ikiden 1 e gitmiyor.

Bu durum başka.
İlk sorduğunuz bu şekilde değildi.
Ben cevapta butona basarsanız demiştim.

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox1.SetFocus
End Sub

 

[yselimyilmaz]

Kusura bakmayın, anlatım eksikliği oldu sanırım.

Son verdiğiniz kodlar ile işlem tamamdır.


Birde formda mesaj yazarken aşağıdaki gibi kod tablosunu nasıl ekliyoruz.
----------------------------------------------------------------------------------------------------
Kod: Tüm Kodu Seç (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox1.SetFocus
End Sub
-------------------------------------------------------------------------------------------------------


Tekrar teşekkürler.

 

[Orion1]

Soru sorduğunuz konu cevaplanmıştır.
Yeni soru için yeni konu açınız.

 

[yselimyilmaz]

İlk soruma ilave olarak,
Veri girerken farkında olmadan bazen tab, bazen enter tuşunu kullanıyorum. Bu koda tab tuşundan sonra da textbox1 e dönüşü nasıl ilave edebiliriz.

 

[Orion1]

İlk soruma ilave olarak,
Veri girerken farkında olmadan bazen tab, bazen enter tuşunu kullanıyorum. Bu koda tab tuşundan sonra da textbox1 e dönüşü nasıl ilave edebiliriz.

Paragraf başı yapmasını engelleyemedim.
Buyurun.

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Or KeyCode = 9 Then TextBox1.SetFocus
End Sub

 

[yselimyilmaz]

Bende code 9 kullanarak denedim ama dediğiniz gibi paragraf başına gelmiyor imleç,
Tab karakter sayısını sıfır yapabilirsek çözülür gibime geliyor.

 

[Orion1]

Bende code 9 kullanarak denedim ama dediğiniz gibi paragraf başına gelmiyor imleç,
Tab karakter sayısını sıfır yapabilirsek çözülür gibime geliyor.

Deneyiniz.