AccessTr.neT
Kaç Adet Kayıt Olduğunu Bulma - Baskı Önizleme

+- 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ığı: Kaç Adet Kayıt Olduğunu Bulma (/konu-kac-adet-kayit-oldugunu-bulma.html)

Sayfalar: 1 2


Kaç Adet Kayıt Olduğunu Bulma - alikagan - 15/06/2022

hayırlı akşamlar arkadaşlar,
aşağıdaki formda metin kutularından bazıları dolu
dolu olan kayıtların kaç tane olduğu kod ile nasıl bulunabilir acaba?
[img][Resim: do.php?img=12004][/img]


RE: Kaç Adet Kayıt Olduğunu Bulma - berduş - 15/06/2022

bu tür durumlarda genelde 2 farklı yöntem kullanılır
1 - ilgili metin kutularına seri numaralı isimler verirsiniz ve for döngüsüyle denetlersiniz bir önceki konunuzda kullanılan yöntem
2 - ilgili metin kutularına belli bir im/tag verirsiniz ve
For Each ctl In Me.Controls
If ctl.Tag = "birşey" Then t = t + 1
Next ctl
benzeri kodlarla işlem yapabilirsiniz


RE: Kaç Adet Kayıt Olduğunu Bulma - alikagan - 15/06/2022

im değeri verdim,
4 metin kutusu dolu olduğu halde 6  sonucu verdi ama


RE: Kaç Adet Kayıt Olduğunu Bulma - berduş - 16/06/2022

benim yazdığım kod sadece örnekti o kod zaten im değeri olanları sayar sizin ayrıca ilgili kutu dolu mu onu da kontrol etmeniz gerek


RE: Kaç Adet Kayıt Olduğunu Bulma - alikagan - 16/06/2022

merhaba,
tag değerini 
aşağıdaki gibi kontrol ettirmeye çalıştım ama olmadı, yine tüm tag alanlarının toplam sayısını verdi,  
kontrolüm yanlış mı?

For Each ctl In Me.Controls
If ctl.Tag = "birşey" And Not IsNull(ctl.Tag) Then T = T + 1
Next ctl



RE: Kaç Adet Kayıt Olduğunu Bulma - berduş - 16/06/2022

(16/06/2022, 11:09)alikagan yazdı: Not IsNull(ctl.Tag)
bu kod tag degeri boş değilse anlamına gelir sizin nesnenin değerini kontrol etmeniz gerekiyor

For Each ctl In Me.Controls
If ctl.Tag = "birşey" Then If Len(ctl & "") > 0 Then T = T + 1
Next ctl
kodu işinize yarayabilir ama bence tag/Im yerine ilgili metin kutularına sıralı isim vermeniz daha verimli olur

For Each ctl In Me.Controls ile formdaki tüm nesneler(sekmeler, etiketler, çerçeveler, düğmeler......) kontrol edilir oysa sıralı isimlendirmede sadece kontrol edilmesi gerekenler