(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.

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.

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

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

(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.

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"