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