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.