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