Bir Önceki TextBox'a Dönüş

[dEdE]

Merhaba Xl Dostları,

Yan yana üç TextBox'a sayısal değer giriyorum.
Amacım ilk TextBox'a yanlış değer girilmesini veya boş geçilmesini engellemek.
Bunun için kodlara eklediğim kontrolleri kullanıyorum. Kontrol komutlarında sorun yok.
Sorun kontroller sonrası yanlış değer girilmiş veya boş geçilmiş ise tekrar ilk TextBox'a dönememem.
Bir sonraki TextBox'un Enter olayına yazdığım aşağıdaki kod işe yaramadı.
Ne yapmalıyım?
Saygılar.

Private Sub txtSYazili_Enter()
If txtTBilgi.Value = "" Then
MsgBox "Temel Bilgi Sınav Sonucunu Girmediniz...", vbCritical, "D İ K K A T"
txtTBilgi.SetFocus
Exit Sub
End If
End Sub

 

[dEdE]

Demek ki çözüm yokmuş

 

[snx111]

 

[Orion1]

Private Sub txtSYazili_Enter()
If txtTBilgi.Value = "" Then
MsgBox "Temel Bilgi Sınav Sonucunu Girmediniz...", vbCritical, "D İ K K A T"
txtTBilgi.SetFocus
Exit Sub
End If
End Sub

kodları exit olayına yazın ve
txtBilgi.setfocus kodu yerine
Cancel = true kullanınız.

 

[dEdE]

Teşekkürler Sayın Orion1,

Sorun çözüldü.

Demek ki efsane doğruymuş
"Kara ve deniz geçit vermeyebilir. Sen havayı dene. Yeterki çözüm ara. Çözüm bulunur." Daedalus Efsanesi