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