AccessTr.neT

Tam Versiyon: Basit boş kontrol örneği
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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
Paylaşım için teşekkürler, eliniz sağlık.
Bu güzel bilgi Paylaşımı için teşekkürler
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.
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.
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.
Sayfalar: 1 2 3