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