Seçili Combobox veya Textboxlar da uyarı

[Kemal Demir]

Hepinizi İyi Tatiller,
Arkadaslar yolladım dosyada Ã?rneğin combobox1,combobox2,Textbox1 veya Textbox2 bunlardan herhangibiri Boş bırakıldığında Sayfaya Aktarması yapılmasın Girilen diğer değerler Silinsin
Dosyamada kucukbir Form var yardımcı olursanız sevinirim
SaygıLar

 

[cako]

Ekle butonunuzun kodlarının en başına aşağıdaki kodu ekleyin

If (ComboBox1.Value = "") Or (ComboBox2.Value = "") Or (TextBox1.Value = "") Or (TextBox2.Value = "") Then
MsgBox "Boş Alan Bıraktınız", vbCritical
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
Exit Sub
End If

Ama ben olsam böyle değil boş olanı kontrol edip sadece ona yönlendirirdim. Yani hepsini silmezdim.

 

[Kemal Demir]

Cevap için saolun
Mesela Combobox1de nasıl değiştiriecez

 

[cako]

Combobox1 için
If Combobox1.value="" then
MsgBox "Boş Alan Bırakmayın", vbcritical
combobox1.setfocus
Exit sub
End if

Diğerleri de bunun gibi olacak.Bunlar kodlarınızın en başında olacak. Eğer hiçbiri boş değilse sizin kodlarınız işleyecek.

 

[Kemal Demir]

SAOL