AccessTr.neT
Boş Textboxların Kontrolü - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Boş Textboxların Kontrolü (/konu-bos-textboxlarin-kontrolu.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12

RE: Boş Textboxların Kontrolü - feraz - 14/05/2020

(14/05/2020, 20:47)m_demir yazdı: Hocam Kodların ikisi de hata veriyor.
Kodlar siteye tam olarak yüklenemiyor yeni temadan heralde.Bu iki kodda çalışır.Mobilden yazdım birde if yerine If olarak deneyin.Yada if kelimesini manuel girin silip koddan.

Not:kodlardaki if teki i yi değiştirdim deneyebilirsiniz Tr karakter olayı heralde.

RE: Boş Textboxların Kontrolü - m_demir - 14/05/2020

If TextBox5 = "" Or TextBox6 = "" Then
MsgBox "TEXTBOX'LARA VERİ GİRİNİZ!"
Exit Sub
End If


Bu şekilde hal ettim.

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.

RE: Boş Textboxların Kontrolü - berduş - 14/05/2020 

If Len(TextBox2 & TextBox3 & TextBox4 & "") > 0 Then Debug.Print "en az biri dolu"
bu kodu kontrol ettim çalışıyor 1 bile doluysa işlemi yapıyor hepsi boşsa işlem yapmıyor

RE: Boş Textboxların Kontrolü - m_demir - 14/05/2020

Hocam herhalde yanlış yere eklemiştim. Şimdi tekrar denedim çalışıyor.
Diğer sorunumu aşağıdaki şekilde çözmeye çalıştım olmadı. 

If TextBox5 = "" Or TextBox6 = "" Then
MsgBox "TEXTBOX'LARA VERİ GİRİNİZ!"
Exit Sub
End If
Hocam aşağıdaki kodu tekrar denedim çalışmıyor.

If TextBox5.Value <> Empty Or TextBox6.Value <> Empty Then Exit Sub

RE: Boş Textboxların Kontrolü - feraz - 14/05/2020

(14/05/2020, 21:33)m_demir yazdı: Hocam herhalde yanlış yere eklemiştim. Şimdi tekrar denedim çalışıyor.
Diğer sorunumu aşağıdaki şekilde çözmeye çalıştım olmadı. 

If TextBox5 = "" Or TextBox6 = "" Then
MsgBox "TEXTBOX'LARA VERİ GİRİNİZ!"
Exit Sub
End If
Hocam aşağıdaki kodu tekrar denedim çalışmıyor.

If TextBox5.Value <> Empty Or TextBox6.Value <> Empty Then Exit Sub
Tamam abey empty olarakta çalışıyor biliyordum daha doğrusu kendi bazı dosyalarımda kullanıyorum.Belki yanlışlık yapmışımdır denemeden.Empty boş demek biliyorum.Genel kullanım zaten ilk koddaki gibi.Sadece ilk kodu şöyle deneyin merak kalmasın klavyedeki boşluk tuşuyla herhangi bir tectboxa yazın boçmu dolumu algılayacak.Yeni aklıma geldi.

RE: Boş Textboxların Kontrolü - m_demir - 14/05/2020

Hocam aşağıdaki kod TextBoxların birtanesi dolu olduğu zaman çalışıyor güzel. Ama hepsi boş olduğu zaman da çalışıyor. Çalışabilmesi için en azından bir textboxsun dolu olması lazım.

If Len(TextBox3 & TextBox4 & TextBox8 & "") > 0 Then Debug.Print "en az biri dolu"