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.