AccessTr.neT

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.