Sayın ozanakkaya size ve zaman ayıran tüm forum arkadaşlarıma teşekkür ederim. Sayenizde sorun çözüldü. Herkese mutlu ve sağlıklı seneler dilerim, saygılarımla.

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

Sayın ozanakkaya, onay kutuları için kullanamadım bunun için de bir kontrol var mı?

Onay kutusu için herhangi bir kontrol yok. eklediğiniz onay kutusunun "im" özelliğine bosmu, Denetim ipucu metnine de istediğiniz metni yazarak kullanabilirsiniz.

sayın ertans,

EK'te;

Alıntı:...onay kutuları için kullanamadım bunun için de bir kontrol var mı? ...

bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.