Skip to main content

AccessTr.neT


İlk Basıldığında Boş Satır Ekleyen "ekle" Kodu????

İlk Basıldığında Boş Satır Ekleyen "ekle" Kodu????

Çözüldü #1
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?
.zip uses - Kopya.zip (Dosya Boyutu: 119,1 KB | İndirme Sayısı: 3)
Cevapla
#2
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 = ""
Cevapla
#3
çok teşekkürler, söylediğiniz şekilde çalıştı, kolay gelsin
Cevapla
#4
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da