böyle yazınca çalışıyor ama iş uzatılmış oluyor)

Dim y, x As Integer

If Len(Trim(TextBox2 & TextBox3 & TextBox4 & "")) = 0 Then MsgBox "hepsi boş" 



y = IIf(Len(Trim(TextBox5 & "")) > 0, 1, 0)

x = IIf(Len(Trim(TextBox6 & "")) > 0, 1, 0)

If x + y = 1 Then MsgBox "kutulardan biri boş"

Hocam aşağıdaki kod kutulardan biri boş uyarısı veriyor. Ama kod durmuyor. Metin kutusunun birtanesi boş olmasına rağmen kayıt yapıyor.

If textbox5="" and textbox6<>"" then
Mesaj
Exit sub
End if

If textbox5<>"" and textbox6="" then
Mesaj
Exit sub
End if


Yukardaki gibi deneyin bir şart daha ekleyebilirsiniz gerekirse.

---

If textbox5="" and textbox6="" then
Mesaj
Exit sub
End if


Yukarıdaki gibi ikiside boşsa ayarlayın gerekli yeri

61. mesajdaki kodları diyorsanız o kodlar sadece bilgi verme amaçlı kodlar. Kayıt etmeyi engellemek için yapı değişmeli
mesela
If Len(Trim(TextBox2 & TextBox3 & TextBox4 & "")) = 0 Then MsgBox "hepsi boş"  bu kodu düşünün

If Len(Trim(TextBox2 & TextBox3 & TextBox4 & "")) = 0 Then 

         MsgBox "hepsi boş kayıt eklenemez" 

         Exit Sub

else

         buraya kayıt ekleme kodları

end if

eğer 2 kontrolde aynı kod bloğunda olacaksa
Not : aşağıdaki kodlar Kaydetme kodundan önce yazılacak

Dim y, x As Integer

If Len(Trim(TextBox2 & TextBox3 & TextBox4 & "")) = 0 Then 

         MsgBox "hepsi boş kayıt eklenemez" 

         Exit Sub

end if



y = IIf(Len(Trim(TextBox5 & "")) > 0, 1, 0)

x = IIf(Len(Trim(TextBox6 & "")) > 0, 1, 0)

If x + y = 1 Then 

         MsgBox "kutulardan biri boş" 

         Exit Sub

end if

'buraya da kaydetme işlemleri eklenecek

Çok teşekkürler Hocam ellerinize sağlık. Tam istediğim gibi olmuş. 
Hocalarım kusura bakmayın ikinizi de çok yordum. 

Konuyu taşıyabilirsiniz. Saygılarımla.

sorun yorulmak değil, elimde olsa 24 saat bilgisayarla uğraşırım çok da sorun olmaz ama amacımız öğretmeye çalışmak ve bu arada çözerken öğrenmek ve bir problemi çözmenin verdiği mutluluğu yaşamak. Ama problemlerini çözmeye çalıştığımız kişinin amacı öğrenmek olmadığı zaman bir süre sonra hep aynı tarzda, cevabı daha önce defalarca verilmiş sorular sormaya başlıyor. o zaman da en motive eden unsur, farklı bir sorunu çözmenin verdiği mutluluğu yaşayamıyorsunuz, dolayısıyla cevap verme istediği de kalmıyor. kimse her gün aynı soruların sorulduğu bulmacayı çözmeyi sevmez, değil mi?
iyi çalışmalar
kolay gelsin.