Combobox'a yanlış veri girince SetFocus olayı

[Usyk]

Merhaba,

Aşağıdaki kod ile UserForm üzerinde bulunan Combobox1'e yanlış veri girilince mesaj veriyor ve bir sonraki nesneye gidiyor.
İmleç ComboBox1'e gitmiyor.

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Combobox1.ListIndex = -1 Then
Combobox1.Text = ""
MsgBox "Kitap seçiniz!", vbExclamation, "Uyarı"
Combobox1.SetFocus
Exit Sub
End If
End Sub

 

[muratboz06]

Combobox1 den sonra Textbox1 nesnesine gittiğini varsayarsak;

Private Sub TextBox1_Enter()
If ComboBox1.Text = "" Then
ComboBox1.SetFocus
End If
End Sub

 

[Usyk]

Combobox1 den sonra Textbox1 nesnesine gittiğini varsayarsak;

Private Sub TextBox1_Enter()
If ComboBox1.Text = "" Then
ComboBox1.SetFocus
End If
End Sub

Sayın Muratboz06
Denedim ancak 2 sefer MsgBox çıkıyor ve TexBox1 den sonraki nesneye gidiyor.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit
Dim Kontrol As Boolean

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Kontrol = True Then Exit Sub
    If ComboBox1.ListIndex = -1 Then
        ComboBox1.Text = ""
        MsgBox "Kitap seçiniz!", vbExclamation, "Uyarı"
        Cancel = True
        Exit Sub
    End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Kontrol = True
End Sub

 

[Usyk]

Deneyiniz.

Option Explicit
Dim Kontrol As Boolean

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Kontrol = True Then Exit Sub
    If ComboBox1.ListIndex = -1 Then
        ComboBox1.Text = ""
        MsgBox "Kitap seçiniz!", vbExclamation, "Uyarı"
        Cancel = True
        Exit Sub
    End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Kontrol = True
End Sub

Korhan bey denedim ancak öncekinden farklı olarak imleç herhangi bir nesneye gitmiyor.
ComboBox'a yanlış veri girişi yapıldığında ComboBox temizleniyor, uyarı mesajı geliyor. Buraya kadar aynı.
Sonrasında imlecin aynı ComboBox'a gitmesi gerekiyor.

 

[Usyk]

Korhan bey bir de sayfamdaki diğer ComandButton'ları (Çıkış vs) tıkladığımda hep bu MsgBox çıkıyor.

 

[Korhan Ayhan]

Ben nesnenin UserForm üzerinde olduğunu düşünerek cevap vermiştim.

 

[Usyk]

Ben nesnenin UserForm üzerinde olduğunu düşünerek cevap vermiştim.

Doğru, tamamen UserForm üzerinde çalışıyor.

 

[Korhan Ayhan]

Yanlış veri girişi yapıldığında nesneyi terk etmemek için Exit olayında Cancel = True kullanılır. Bu komut nesneye fokuslanmanızı sağlar.

Fakat bu nesne aktif durumdayken formu kapatmak istediğinizde nesnenin Exit olayı devreye gireceği için yazdığınız kodlar tekrar çalışacaktır.

Bunu engellemek adına ben genellikle "Kontrol" adında bir boolean değişken tanımlayıp bunu çıkış butonlarında ve form kapanma olaylarında kullanıyorum.

Sizin içinde aynısını uyguladım. Dikkat ederseniz formunuzun kapanma olayına da kod yazdım.

 

[Usyk]

Yanlış veri girişi yapıldığında nesneyi terk etmemek için Exit olayında Cancel = True kullanılır. Bu komut nesneye fokuslanmanızı sağlar.

Fakat bu nesne aktif durumdayken formu kapatmak istediğinizde nesnenin Exit olayı devreye gireceği için yazdığınız kodlar tekrar çalışacaktır.

Bunu engellemek adına ben genellikle "Kontrol" adında bir boolean değişken tanımlayıp bunu çıkış butonlarında ve form kapanma olaylarında kullanıyorum.

Sizin içinde aynısını uyguladım. Dikkat ederseniz formunuzun kapanma olayına da kod yazdım.

Gördüm Korhan bey, ben de yazdığınız kodun tamamını ilgili yerlere yazdım.
Yalnızca Option Explicit ifadesini nereye yazacağımı bulamadım. Formun initialize olayına yazdım, hata verdi. Bu hariç tüm kodları ilgili yerlere yazdım.

 

[Korhan Ayhan]

Option Explicit satırı "Dim" başlayan tanımlamaları zorunlu kılmak için kullanılır. Siz değişkenlerinizi yazarken tanımlama kullanmıyorsanız bu satırı silebilirsiniz.

 

[Usyk]

Option Explicit satırı "Dim" başlayan tanımlamaları zorunlu kılmak için kullanılır. Siz değişkenlerinizi yazarken tanımlama kullanmıyorsanız bu satırı silebilirsiniz.

Ben de araştırmıştım konuyu, değişken tanımlarını genel olarak yapıyorum ancak yapmadıklarımda olabilir. Silmiştim ama yazdığım gibi sonuç alamadım. İlginize teşekkür ederim.

 

[Korhan Ayhan]

Örnek dosyanızı paylaşırsanız yardımcı olabiliriz.

 

[Usyk]

Örnek dosya eklenmiştir. UserForm1 üzerindeki "Kitap" isimli ComboBox için deneyebiliriz.

Ornek1.xlsm dosyasını indir - download

Ornek1.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc