AccessTr.neT

Sağolun Hocam istediğim gibi oldu. Pratik olmaz derken Hocam çalıştı ama bilginiz olsun.

bu haliyle çalışır da benim kast ettiğim 40-50 alanı kontrol etmek isterseniz bu kodları 40-50 defa yazmak pratik olmaz

Yazarım ben Hocam çok sağolun.

Formun geçerli olduğunda olayına

Dim bosalan, dolualan As Integer

bosalan = 0

dolualan = 0



Dim ctrl As Control



For Each ctrl In Me



    If ctrl.Tag = "1" Then

    

        If Len(Nz(Controls(ctrl.Name).Value, "")) = 0 Then

            bosalan = bosalan + 1

        Else

            dolualan = dolualan + 1

        End If

        

    End If







Next ctrl



Me.Metin29 = dolualan

Me.Metin32 = bosalan

kodunu kullanabilirsiniz. Sayım yapılacak metin kutusunun im özelliğine 1 yazılması yeterli.

Ozanakkaya bey mesajınızı yeni gördüm ve uyguladım . Sizin örneğiniz de  Haliliyas Beyin cevabı gibi çok işime yaradı , sağolun. Çok teşekkür ederim.