AccessTr.neT

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.

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

Hocam Kodların ikisi de hata veriyor.

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" 

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

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