Skip to main content

AccessTr.neT


Formda Boş Ve Dolu Alanların Sayılması

Formda Boş Ve Dolu Alanların Sayılması

Çözüldü #1
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.
Cevapla
#2
Örnek dosya yüklemeyi unutmuşum.
.rar dolualansay.rar (Dosya Boyutu: 27,25 KB | İndirme Sayısı: 3)
Cevapla
#3
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.,
Cevapla
#4
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
Cevapla
#5
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.
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task