(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