boşken uyarı veren textbox'a uyarıdan sonra otomatik geri dönme

[İhsan Tank]

selam arkadaşlar bir çalışmamda böyle bir ihtiyacım var umarım yardımcı olursunuz .
benim istediğim örneğin textbox1'i boş geçtik ve kayıt yaparken hata verdi boş diye ben imleci hata veren textbox'a geri dönmesini istiyorum. umarım anlatabilmişimdir.
örnek dosya ektedir.

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = Empty Then
    Cancel = True
    MsgBox "Textbox1'i Boş Geçtiniz.", , "İhsan Tank"
    Exit Sub
End If
End Sub

 

[İhsan Tank]

Dosyanız ektedir.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = Empty Then
    Cancel = True
    MsgBox "Textbox1'i Boş Geçtiniz.", , "İhsan Tank"
    Exit Sub
End If
End Sub

evren hocam öncelikle teşekkür ederim. yalnız bu nu textbox ikide iken nasıl textbox1 e döneceğim sanırım orayı yanlış yapmışım

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = Empty Then
Cancel = True
MsgBox "Textbox1'i Boş Geçtiniz.", , "İhsan Tank"
Exit Sub
End If
End Sub

bu şekilde değiştirdim
sadece textbox2'de hata ile karşılaşıyorum ama textbox1'e geri dönüş yapmıyor

 

[Orion1]

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2.Text = Empty Then
Cancel = True
MsgBox "Textbox2'i Boş Geçtiniz.", , "İhsan Tank"
Exit Sub
End If
End Sub

 

[İhsan Tank]

hocam ben sanırım anlatamadım ben textbox1'e geri dönmesini istiyorum.
örneğin ben textbox1'i boş geçtim textbox2'ye veri girdim ama textbox1 boş olduğu için hata verdi. hatayı onayladıktan sonra textbox1'e geri dönmesini istiyorum. yani userform'da 20 tane textbox'ta olsa arada boş bıraktığım hangisi var ise onudoldurmak için o textbox'a geri dönemk istiyorum.
sanırım bu sefer anlatabildim. kusura bakmayın hocam uğraştırıyorum

 

[Orion1]

hocam ben sanırım anlatamadım ben textbox1'e geri dönmesini istiyorum.
örneğin ben textbox1'i boş geçtim textbox2'ye veri girdim ama textbox1 boş olduğu için hata verdi. hatayı onayladıktan sonra textbox1'e geri dönmesini istiyorum. yani userform'da 20 tane textbox'ta olsa arada boş bıraktığım hangisi var ise onudoldurmak için o textbox'a geri dönemk istiyorum.
sanırım bu sefer anlatabildim. kusura bakmayın hocam uğraştırıyorum

Bunun için kullanılacak yöntem;
Ya o textboxın exit olayına yazdığım kodu yazacaksınız.
Yada buton ile kayıt esnasında kontrol edip hangi textbox boşsa veya şartınız neyse,uymuyorsa şarta o textboxa set focus yapı prosedürden çıkacaksınız.
Diğer yöntemler boş işlerdir.

 

[İhsan Tank]

Bunun için kullanılacak yöntem;
Ya o textboxın exit olayına yazdığım kodu yazacaksınız.
Yada buton ile kayıt esnasında kontrol edip hangi textbox boşsa veya şartınız neyse,uymuyorsa şarta o textboxa set focus yapı prosedürden çıkacaksınız.
Diğer yöntemler boş işlerdir.

hocam teşekkür ederim ben bir proje için böyle bir koda ihtiyaçım vardı bende exit olayına bu kodu yazarak çözerim sanırım teşekkür ederim hocam tekrardan kendinize iyi bakın

 

[Orion1]

hocam teşekkür ederim ben bir proje için böyle bir koda ihtiyaçım vardı bende exit olayına bu kodu yazarak çözerim sanırım teşekkür ederim hocam tekrardan kendinize iyi bakın

Ben genellikle bu durum için exit olayını kullanmıyorum.
Butonda kontrol ediyorum.
Eğer şarta uymayan combo veya textbox varsa oraya set focus yapıyorum.
prosedürden çıkıyorum.
Tabii tercih meselesi.
Exit olayınada yazabilrisiniz.
Kolay gelsin.

 

[zaruri]

Kıymetli Hocalarım, Değerli arkadaşlar, Boş geçilen TextBox hangisi ise imleç ona geri gelsin mause ile TextBox aramayalım diye örnekleri denedim
Cancel = True ekledim yine de imleç boş olan TextBox da görünmedi.
Yanlış veya eksik konusunda yardım ederseniz sevinirim.

If TextBox51.Value = "" Then
MsgBox "TARİHİNİ GİRİNİZ", vbExclamation
Exit Sub
End If

If TextBox86.Value = "" Then
MsgBox "TUTAR GİRİNİZ", vbInformation
Exit Sub
End If

If ComboBox22 = "" Then
MsgBox "ADEDİNİ GİRİNİZ", vbCritical
Exit Sub
End If

 

[ÖmerFaruk]

Mouse hangisine gitsin istiyorsanız, mesela

TextBox1.SetFocus

 

[zaruri]

ÖmerFaruk Hocam; Tek atış ve Hedef 12.

Bütün TextBox ve ComboBox lar kontrol altında.

Çok Teşekkür ederiz.