(11/10/2024, 17:08)atoykan yazdı: 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.

Hocam bahsetmiş olduğunuz kodlar formda kullanılacak galiba;
ben tablo yada sorgu üzerinde yapmak için sormuştum
teşekkürler,