+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formda Boş Ve Dolu Alanların Sayılması (/konu-formda-bos-ve-dolu-alanlarin-sayilmasi.html)
Sayfalar:
1
2
Formda Boş Ve Dolu Alanların Sayılması - tamer duran - 06/01/2019
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.
Cvp: Formda Boş Ve Dolu Alanların Sayılması - tamer duran - 06/01/2019
Örnek dosya yüklemeyi unutmuşum.
Cvp: Formda Boş Ve Dolu Alanların Sayılması - tamer duran - 06/01/2019
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.,
Cvp: Formda Boş Ve Dolu Alanların Sayılması - berduş - 06/01/2019
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 SubCvp: Formda Boş Ve Dolu Alanların Sayılması - tamer duran - 06/01/2019
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.
Cvp: Formda Boş Ve Dolu Alanların Sayılması - berduş - 06/01/2019
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