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