10 alanlı tablonuza dayalı bir form oluşturduğunuzu varsayalım. Oluşturduğunuz 10 textboxta bu alanların verileri olacaktır. Bunlara ek olarak ilişkisiz 2 textbox ekleyip birini txt_BosAlan birini txt_DoluAlan diye adlandırırsak formun geçerli olduğu (Form_Current) olayında tanımlayacağımız

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

şeklinde bir kod bize istediğimiz sonucu verecektir. Döngünün If ctl.ControlType = acTextBox And Not IsNull(ctl.ControlSource) Then kısmı denetimleri tablo alanlarına dayanmayan ilişkisiz textboxlarımızı sayımın dışında bırakacağından kontrol sayısı tablodaki tüm alanları eklediğiniz varsayımı altında alan sayısını verecektir keza aynı şekilde illa ki 10 alanlı bir tablo olması gerekmez alan sayısını da otomatik olarak hesaplamanıza yardımcı olacaktır.