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
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.
Son Düzenleme: 28/08/2015, 16:30, Düzenleyen: Mecnun24.