Şartlı Kayıt Yapmak

[yavuz829]

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- TextBox3, TextBox4, TextBox8 Kayıt Yapabilmem için bu TextBox lardan en azından 1 tanesi dolu olması lazım.

 

[muratboz06]

1)
if TextBox5.value ="" And TextBox6.Value="" then

        msgbox "devam et"
  

else
        msgbox "Textbox 5 ve Textbox6 boş olmalıdır.

       exit sub

end if


2)
if TextBox3.valule <> ""  or TextBox4.value<>"" or  TextBox8.value <>"" then

    msgbox "devam et"

else

    msgbox "TextBox3, TextBox4, TextBox8 ten en az biri dolu olmalıdır"

    exit sub

end if

 

[yavuz829]

Hocam çok teşekkürler ellerinize sağlık.

Hocam 2. kod tamam.

1. Kod benim istediğim
TextBox5 ve TextBox6 bu iki TextBoxtan biri dolu, biri boş ise uyarı versin. Kayıt yapmasın. İkisi birden boş ise kayıt yapsın.

 

[muratboz06]

if (TextBox5.value <>"" And TextBox6.Value="") or (TextBox5.value = "" And TextBox6.Value<>"") then

     msgbox "Textbox5, Textbox6 boş olmalıdır"
 

else
     msgbox "devam et"

       exit sub

end if

 

[yavuz829]

Hocam TextBox lardan biri boş ise Textbox5, Textbox6 boş olmalıdır uyarısını veriyor. Uyarıdan sonra durmuyor. TextBox lardan biri boş olmasına rağmen kayıt yapıyor.

 

[muratboz06]

Exit sub ın yerini değiştirmemişim. Deneyiniz.

if (TextBox5.value <>"" And TextBox6.Value="") or (TextBox5.value = "" And TextBox6.Value<>"") then

     msgbox "Textbox5, Textbox6 boş olmalıdır"
  exit sub

else
     msgbox "devam et"

      

end if

 

[yavuz829]

Hocam sorunuz aşağıdaki kodlarla hal ettim. Yardımlarınız için teşekkürler.

If TextBox5 = "" And TextBox6 <> "" Then
MsgBox "SAAT TOPLAMI VE SAAT ÜCRETİNİ GİRİNİZ"
Exit Sub
End If

If TextBox5 <> "" And TextBox6 = "" Then
MsgBox "SAAT TOPLAMI VE SAAT ÜCRETİNİ GİRİNİZ"
Exit Sub
End If