Soru MsgBox uyarı hatası

[sirkülasyon]

If ComboBox1.Value = "" Then:  CheckBox1.Value = False: MsgBox ("...............!.."): ComboBox1.SetFocus: Exit Sub

Yukarıda ki kod ile MsgBox iki kere geliyor.Gelmemesi için nasıl düzenlenmeli ki MsgBox iki kere gelmesin. Rica etsem yardımcı olabilir misiniz?

 

[Ömer]

Merhaba,

Örnek olmadığı için tahmini yazıyorum. Deneyiniz.

If ComboBox1.Value = "" Then: CheckBox1.Value = False: ComboBox1.SetFocus: MsgBox ("...............!.."): Exit Sub

 

[Muzaffer Ali]

Merhaba.
Muhtemelen bu kodlar CheckBox_Change olayı içerisinde bulunuyor, CheckBox değeri değiştirildiği için bir kez daha çalışıyor.
doğru cevap verebilmek için kodların tamamını paylaşın.

 

[sirkülasyon]

Private Sub CheckBox1_Click()
If ComboBox2.Value = "" Then: CheckBox1.Value = False: MsgBox ("..................Seçiniz!.."): ComboBox2.SetFocus: Exit Sub
If ComboBox1.Value = "" Then: CheckBox1.Value = False: ComboBox1.SetFocus: MsgBox (".................. Seçiniz!.."): Exit Sub

If CheckBox1.Value = True Then
TextBox14.Visible = True
Label19.Visible = True
Else
TextBox14.Visible = False
Label19.Visible = False
End If
End Sub

 

[Muzaffer Ali]

Combobox1 yada Combobox2 boşsa CheckBox1 seçili olmasın istiyorsanız mesaj vermek yerine enable özelliğini kapatabilirsiniz.
CheckBox1 enable özelliğini False yapın
Aşağıdaki kodları formun kod kısmına ekleyin.

Private Sub ComboBox2_Change()
    Kontrol
End Sub

Private Sub ComboBox1_Change()
    Kontrol
End Sub

Sub Kontrol()
    If ComboBox1.Value = "" Or ComboBox2.Value = "" Then
        CheckBox1.Enabled = False
    Else
        CheckBox1.Enabled = True
    End If
End Sub

Combobox1 yada Combobox2 boşsa CheckBox1 tıklanamaz.

 

[sirkülasyon]

Teşekkür ederim. Allah razı olsun

 

[Muzaffer Ali]

Rica ederim. Allah hepimizden razı olsun.