Dim i As Byte, say As Byte

    arr = Array("TextBox5", "TextBox6")

    

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

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

    Next

    

    If say > 0 Then

        MsgBox "Devam etme iptal edildi", vbCritical, "Bilgi"

        Exit Sub

    End If

(16/05/2020, 00:42)m_demir yazdı: Çok teşekkürler Hocam ellerinize sağlık.