Merhaba.
Private Sub ekle_Click() burdaki kodun altına alttaki kodu ekleyin sonra diğerlerini ayarlayın.
Kodlar çok dağınık yazılmış.

Dim xx As Control

For Each xx In Me.Controls

    If TypeName(xx) = "TextBox" Then

        If IsNull(xx) Or xx = "" Then

            MsgBox "lütfen alanları tam doldurun Bos olan alan altta.." & vbNewLine & "-----------------------" & vbNewLine & xx.Name

            xx.SetFocus

            Exit Sub

        End If

    End If

Next

---

Yada alttaki gibi değiştirin

If Me.il = "" burdaki Me.il = ""  olanları IsNull(Me.il) gibi ayarlayın diğerlerinide

---

Yada iligili yerieri alttaki gibidüzenleyin

If IsNull(Me.il) Or Me.il = ""