Dim AlanSay As Integer, DoluAlan As Integer, BosAlan As Integer
    Dim ctl As Control
    
    AlanSay = 0
    DoluAlan = 0
    BosAlan = 0
    
    For Each ctl In Me.Controls    'Tüm kontroller döngüye sokularak
        If ctl.ControlType = acTextBox And Not IsNull(ctl.ControlSource) Then   'burada denetim kaynağı olmayanlar hariç textboxlar tanımlı ancak sayımı net yapmak için alan isimlendirmelerine göre kriter eklenebilir
            AlanSay = AlanSay + 1   'formdaki kontrollere göre alan sayısı belirlenir
            If Nz(ctl.Value, "") <> "" Then    'Kontrolde herhangi bir değer mevcut mu kontol edilir
                DoluAlan = DoluAlan + 1    'Mevcut ise dolu alan sayısı 1 arttırılır
            Else
                BosAlan = BosAlan + 1    'Değilse boş alan sayısı 1 arttırılır
            End If
        End If
    Next ctl
    
    Me.txtDoluAlan.Value = DoluAlan    'Sonuçlar ilgili alanlara yazıdırılır
    Me.txtBosAlan.Value = AlanSay - DoluAlan    'Burada işlem ile de yazılabilir =BosAlan denilerek doğrudan sonuç da işlenebilir