Boş Textboxların Kontrolü - Baskı Önizleme

Boş Textboxların Kontrolü - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Boş Textboxların Kontrolü (/konu-bos-textboxlarin-kontrolu.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12

Boş Textboxların Kontrolü - m_demir - 14/05/2020

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.

RE: Boş Textboxların Kontrolü - feraz - 14/05/2020

If TextBox5.value<>"" or TextBox6.value<>"" then exit sub

Yukardaki gibi yapabilirsiniz mantığı

RE: Boş Textboxların Kontrolü - feraz - 14/05/2020

Yada alttaki gibi

If TextBox5.value<> empty or TextBox6.value<> empty then exit sub

RE: Boş Textboxların Kontrolü - m_demir - 14/05/2020

Hocam Kodların ikisi de hata veriyor.

RE: Boş Textboxların Kontrolü - berduş - 14/05/2020

aşağıdaki kodları dener misiniz
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"

RE: Boş Textboxların Kontrolü - m_demir - 14/05/2020

Hocam TextBoxlardan biri boş olmasına rağmen kayıt yapıyor.

Kod:

If IsNull(TextBox5) + IsNull(TextBox6) = -1 Then msgbox "kutulardan biri boş"

TextBoxların hepsi boş olmasına rağmen kayıt yapıyor.

Kod:

if len(TextBox2 & TextBox3 & TextBox4 & "")>0 then msgbox "en az biri dolu"