Merhaba Hocalarım size iki tane sorum olacak.
1- TextBox5 ve TextBox6 Bu iki TextBoxtan bir dolu, bir boş olduğu zaman kayıt yapmamıza izin vermesin. Uyarı versin TextBoxların ikisi de boş olduğu zaman kayıt yapmamıza izin versin.
2- TextBox2, TextBox3, TextBox4 Kayıt Yapabilmem için bu TextBox lardan en azından 1 tanesi dolu olması lazım.
Bu konuda yardımlarınıza ihtiyacım var.
Boş Textboxların Kontrolü
If TextBox5.value<>"" or TextBox6.value<>"" then exit sub
Yukardaki gibi yapabilirsiniz mantığı
Yada alttaki gibi
If TextBox5.value<> empty or TextBox6.value<> empty then exit sub
If TextBox5.value<> empty or TextBox6.value<> empty then exit sub
Hocam Kodların ikisi de hata veriyor.
aşağıdaki kodları dener misiniz
1 - 1'i boşken yazmaması için
1 - 1'i boşken yazmaması için
If IsNull(TextBox5) + IsNull(TextBox6) = -1 Then msgbox "kutulardan biri boş"
2 - en az biri doluysa if len(TextBox2 & TextBox3 & TextBox4 & "")>0 then msgbox "en az biri dolu"
Hocam TextBoxlardan biri boş olmasına rağmen kayıt yapıyor.
TextBoxların hepsi boş olmasına rağmen kayıt yapıyor.
Kod:
If IsNull(TextBox5) + IsNull(TextBox6) = -1 Then msgbox "kutulardan biri boş"
Kod:
if len(TextBox2 & TextBox3 & TextBox4 & "")>0 then msgbox "en az biri dolu"
Konuyu Okuyanlar: 1 Ziyaretçi