AccessTr.neT
İlk Basıldığında Boş Satır Ekleyen "ekle" Kodu???? - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: İlk Basıldığında Boş Satır Ekleyen "ekle" Kodu???? (/konu-ilk-basildiginda-bos-satir-ekleyen-ekle-kodu.html)



İlk Basıldığında Boş Satır Ekleyen "ekle" Kodu???? - tarkanaykın - 22/10/2020

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?


Re: İlk Basıldığında Boş Satır Ekleyen "ekle" Kodu???? - feraz - 22/10/2020

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

[Resim: do.php?img=10535]


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



RE: İlk Basıldığında Boş Satır Ekleyen "ekle" Kodu???? - tarkanaykın - 23/10/2020

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


RE: İlk Basıldığında Boş Satır Ekleyen "ekle" Kodu???? - feraz - 23/10/2020

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