Merhaba iyi akşamlar. Hazırladığım formuma bağlı tablomda bulunan tüm kayıt sayılarının toplamını  yine formum üzerine eklediğim metin kutusu içine yazdığım =Say(*) komutu ile ulaştım.Ancak form üzerinde dolu ve boş alan (hücre)  sayılarını metin32 ve metin29 kutularının içine yazdırmayı beceremedim, yardımlarınızı bekliyorum.

Örnek dosya yüklemeyi unutmuşum.

Eklemek isitiyorum; yapmak istediğim boş ve dolu alan sayma işlemi her kayıt için ayrı olmalı , tablodaki tüm boşlar ve tüm dolular için deği.,

sayın @tamer duran  form yüklendiğinde olayına aşağıdaki kodu yazar mısınız?
not düzeltme; o an hangi kayıtta isek o kayıttakileri mi

Private Sub Form_Load()

Dim db As DAO.Database

Dim rsf As DAO.Recordset

Dim fld As Field

Dim x, AlanSay, BosAlan, DoluAlan As Integer

strSQL = "Tbl_deneme"

Set db = CurrentDb

Set rsf = db.OpenRecordset(strSQL, dbOpenDynaset)

AlanSay = rsf.RecordCount

BosAlan = 0

DoluAlan = 0

While Not rsf.EOF

    For Each fld In rsf.Fields

        If IsNull(fld.Value) Then

        BosAlan = BosAlan + 1

        Else

        DoluAlan = DoluAlan + 1

        End If

    Next

    rsf.MoveNext

Wend

Me.Metin29 = BosAlan

Me.Metin32 = DoluAlan

End Sub

Aynen Hocam , hangi kayıtta isek o kayıttaki boş ve dolu alanlar. Birde ricam tarih ve saat hücrelerinide saymasın, sadece  isimlerin yazılı olduğu alanların(hücrelerin) boş yada doluğu sayılarını versin.

form geçerli olduğunda olayına aşağıdaki kodu yazın
eğer kontrol edilecek alan sadece 5-6 taneyse aşağıdaki kod yeterli ama çok daha fazla alan için pek pratik değildir

Private Sub Form_Current()

Dim bosalan, dolualan As Integer

bosalan = 0

dolualan = 0

If IsNull(Me.Kimlik) Then bosalan = bosalan + 1 Else dolualan = dolualan + 1

If IsNull(Me.bir_ad) Then bosalan = bosalan + 1 Else dolualan = dolualan + 1

If IsNull(Me.iki_ad) Then bosalan = bosalan + 1 Else dolualan = dolualan + 1

If IsNull(Me.uc_ad) Then bosalan = bosalan + 1 Else dolualan = dolualan + 1

If IsNull(Me.dort_ad) Then bosalan = bosalan + 1 Else dolualan = dolualan + 1

If IsNull(Me.bes_ad) Then bosalan = bosalan + 1 Else dolualan = dolualan + 1

Me.Metin29 = dolualan

Me.Metin32 = bosalan

End Sub