AccessTr.neT

arkadaşlar çok ilginç bir durumla karşı karşıyayım, dosya ekte... ekle butonuna basınca "form denetimleri boş" uyarısı vermesine rağmen, resmen boş satır ekliyor, yardımcı olabilir misiniz?

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 = ""

çok teşekkürler, söylediğiniz şekilde çalıştı, kolay gelsin

Rica ederim.
Eğer döngü ile ejlediğimi kullandıysanız mobilden tekrar koda bakınca Combo için eklenmediğinin farkuna vardım.
Alttaki kodu en alttaki gibi yaparsanız combo içinde çalışır.
Bu kodun iyiliği hem kısa hemde hangisi boşsa ona odaklanır ve nesnenin adını verir mesaj olarak.
Kolay gelsin.

If TypeName(xx) = "TextBox" Then

If TypeName(xx) = "TextBox" or  TypeName(xx) = "ComboBox"  Then