(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

Kodu Seç

Kodu Kopyala

ş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,