Skip to main content

AccessTr.neT


Basit boş kontrol örneği

Basit boş kontrol örneği

#1
Eminim forumda daha gelişmiş örnekler mevcuttur. Ancak kendi kullandığım boş kontrol kodlarını paylaşmak istedim. Kod tüm form elemanlarını dolaşıyor ve tagı boş olmayan kontrol aynı zamanda veri içermiyorsa, kullanıcıya mesaj verip boş olan kontrole odaklanıyor. Boş bırakılmasını istemediğiniz form kontrolünü sağ tıklayıp özellikler / diğer sekmesinden im bölümünü doldurmalısınız. Ancak buraya yazdığınız veri mesajda görüneceği için anlamlı bir veri girmelisiniz.örnek ektedir.



dim i as integer
For i = 1 To Me.Controls.Count - 1

   If Not (Controls(i).Tag) = "" And IsNull(Controls(i)) Then
   MsgBox (Controls(i).Tag) & " boş bırakmayınız", vbOKOnly + vbInformation, "Boş Kontrol"
   Controls(i).SetFocus
   Exit Sub
   End If
Next
.rar boş kontrol.rar (Dosya Boyutu: 64,36 KB | İndirme Sayısı: 93)
Son Düzenleme: 28/08/2015, 16:30, Düzenleyen: Mecnun24.
Cevapla
#2
Paylaşım için teşekkürler, eliniz sağlık.
Cevapla
#3
Bu güzel bilgi Paylaşımı için teşekkürler
Cevapla
#4
Sayın Mecnun24,

Örnek uygulamanız incelendiğinde,
sizin de bahsettiğiniz üzere benzer konuda örnekler ve kodlamalar söz konusu olsa da,
alternatif bir kullanım imkanına zemin hazırladığınız için paylaşımınızdan dolayı teşekkürler.

saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
Sayın Mecnun bey,
Şüphesiz çok güzel bir uygulama,kendi çalışmama uyarlamaya çalıştım,defalarca denedim şoyle bir hata uyarısı veriyor,tabiki ne anlama geldiğini bilmediğim için en doğrusu ustasına sormak gerek dedim.
Hata uyarısı"Variable not defined" ayrıca kod sayfasında ise for i ile başlayan "i" harfinin üzeri mavi renkle kaplı.
Saygılarımla.
Cevapla
#6
Estağfurullah, forum üstadları daha iyi anlar ama, sanıyorumki değişken tanımlı olmadığı için o hatayı veriyor. for i satırından önce     Dim i As Integer kodunu eklersen sanırım sorun çözülecektir.
saygı bizden.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task