TextBox Dolu Olup, Olmadığını Kontrol Etmek

[yavuz829]

Merhaba arkadaşlar

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.

Bu konuda yardımlarınıza ihtiyacım var.

 

[byfika]

Merhabalar,
alttaki kodu dener misiniz?

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
MsgBox " Textbox1 doldurun"
End If
If TextBox2.Value = "" Then
MsgBox " Textbox2 doldurun"
End If
If TextBox1.Value <> "" And TextBox2 <> "" Then
[sayfa1!a2] = TextBox1.Value
[sayfa1!b2] = TextBox2.Value
End If
End Sub

 

[yavuz829]

Hocam uyarı veriyor. Uyarıdan sonra TextBoxsu bir tanesi boş olmasına rağmen kayıt yapıyor.

 

[byfika]

Merhabalar,
alttaki gibi dener misiniz?
Private Sub CommandButton1_Click()
If TextBox1 = "" Or TextBox2 = "" Then
MsgBox "TEXTBOX'LARA VERİ GİRİNİZ!"
Exit Sub
End If
[sayfa1!a2] = TextBox1.Value
[sayfa1!b2] = TextBox2.Value
End Sub

 

[Korhan Ayhan]

İlk mesajınızda bir gariplik var.

Son cümleniz tezat gibi..

 

[yavuz829]

Çok teşekkürler Hocam ellerinize sağlık. Son yazdığınız kod çalıştı.

Hocam TextBox3, TextBox4 ve TextBox8 kayıt yapabilmemiz için bu üç TextBoxtan en azından bir tanesinin dolu olması şartı için nasıl bir kod eklememiz gerekiyor.