Haklısınız Hocam.

On Error Resume Next gibi hata denetleme yada atlama kodlarini projeniz bittiktwn sonra ekleyin o satiri siler yada pasif yaparsaniz nerlerde hata verdigini gorursunuz

Gifi izleyin.Trim olmazsa boşlukta dolu sayılıyor.

If Trim(TextBox1.Value) <> "" Or Trim(TextBox2.Value) <> "" Then

        MsgBox "Textboxlardan biri dolu"

    Else

        MsgBox "Hepsi bos"

    End If

---

Buda empty ile çalışan gif.

Çok teşekkürler Hocam Çektiğiniz video için.

Hocam eklediğiniz kodlar çalışıyor. TextBox boş uyarısı veriyor uyarıdan sonra durmuyor. Kayıt yapıyor.  Benim istediğim TextBoxların birtanesi boş ise kayıt işlemi yapmasın dursun.

(14/05/2020, 23:05)m_demir yazdı: Çok teşekkürler Hocam Çektiğiniz video için.

Hocam eklediğiniz kodlar çalışıyor. TextBox boş uyarısı veriyor uyarıdan sonra durmuyor. Kayıt yapıyor.  Benim istediğim TextBoxların birtanesi boş ise kayıt işlemi yapmasın dursun.

Exit sub ekleyiniz!!!!!!!!!!!
Buda array ile

Dim arr, i As Byte, say As Byte

    

    arr = Array("TextBox1", "TextBox2")

    

    For i = LBound(arr) To UBound(arr)

        If Me.Controls(arr(i)) <> "" Then say = say + 1

    Next

    

    If say > 0 Then

        MsgBox "Textboxlardan biri dolu"

        Exit Sub

    Else

        MsgBox "Hepsi bos"

    End If

    

    Erase arr

Sayin @m_demir exceli öğrenmek istiyorsanız kodları incelemeniz ve anlamaya çalışmanız şart. Yoksa öğrenemezsiniz önceki mesajlarımda size zaten yazılan kodun çalışması için ne yapmanız gerektiğini belirtmiştim. Lütfen öğrenmek için çaba harcayın, anlamaya çalışın yoksa ayninsorulari defalarca sorarsiniz ve artık bizlerde "Ogrenmek icin degil isi bize yaptirmak icin soruyor" kanısı oluşmaya başlar, sonrasında ise cevap alabilme ihtimaliniz azalır.