Metin kutularının "im" ve "Denetim İpucu Metni" özellikleri kullanılarak yapılan örnek uygulama ektedir.

Denetim sayısı fazla ise kullanılabilir.

Dim MetinKutum As Control



For Each MetinKutum In Me



    If MetinKutum.Tag = "bosmu" Then

    

        If MetinKutum.Value = "" Or IsNull(MetinKutum.Value) Then

        

            MsgBox (MetinKutum.ControlTipText & " Alanı Boş Bırakılamaz")

            MetinKutum.SetFocus

            Exit Sub

        End If

    End If



Next MetinKutum

           

    MsgBox ("Tüm Alanlar Dolu") 'Tüm alanlar Doluysa yapılacak işlem