Filtrelenen listedeki satırları saydırmak

[UFUKKURUM]

Arkadaşlar merhaba

Sorunum bir listbox a adsoyad veya no ile süzme yapıyorum ve listede kalan satırların toplamını bir kutuda görmek istiyorum ve birde listede kalanların yaş ortamalarını da bir kutuda görmek istiyorum.. bir çok deneme yaptım ama bir türlü sağlayamadım yardımlarınızı bekliyorum..
TEŞEKKÜRLER

 

[UFUKKURUM]

bununla ilgili kimsenin bir fikri yokmu

 

[necip54]

bununla ilgili kimsenin bir fikri yokmu

Listeyi oluşturduktan ve sınırlarını belirledikten sonra, veri/listele/toplam satırı na tıklarsan listenin en altında toplam satırında istediğin görüntünün toplamını görebilirsin.

excel sayfasındaki Yardım menüsünden bütün gerekli açıklamaları da bulabilirsin.

 

[beab05]

Merhaba;

Öncelikle soru Access sorusu sanırım..
DCount Fonksiyonunu inceleyin ya da örneğinizi ekleyin..

Kullanımı;

=DCount("[Alan ismi]";"[Tablo İsmi]";"[Alan İsmi] = 'elma'")

gibi...

 

[UFUKKURUM]

İLGİNİZ İÇİN TEŞEKKÜR EDERİM

Ekteki dosyada raporlar formunda bir listbox var ve bu listboxtan adsoyad veya no ile fsüzme yapıldıktan sonra listede kalan kişi sayısını bir kutuda görmek istiyorum yardımlarınızı rica ederim

 

[beab05]

Güzel soru

Formunuza bir metin kutusu koyun ismi metin1 diyelim
ve alttaki kırmızı kısmı ek olarak ekleyin..

Private Sub sql_duzenle()

    sql = " SELECT DATA.ADSOYAD, DATA.ADSOYAD, DATA.SİCİLNO, DATA.SİCİLGURUBU, DATA.CALİSTİGİBİRİM, DATA.UNVAN, DATA.İSEGİRİSTARİHİ, DATA.DAHİLİ, DATA.GSM, DATA.EVADRESİ " _
        & " FROM DATA " _
        & " WHERE 1=1 "
    If Me!txtADSOYAD <> "" Then
        sql = sql & " AND DATA.ADSOYAD like '*" & Me!txtADSOYAD & "*'"
    End If
    If Me!txtS&#304;C&#304;LNO <> "" Then
        sql = sql & " AND DATA.S&#304;C&#304;LNO like '*" & Me!txtS&#304;C&#304;LNO & "*'"
    End If
    If Me!txtCAL&#304;ST&#304;G&#304;B&#304;R&#304;M <> "" Then
        sql = sql & " AND DATA.CAL&#304;ST&#304;G&#304;B&#304;R&#304;M like '*" & Me!txtCAL&#304;ST&#304;G&#304;B&#304;R&#304;M & "*'"
    End If
    If Me!txtUNVAN <> "" Then
        sql = sql & " AND DATA.UNVAN like '*" & Me!txtUNVAN & "*'"
    End If
    If Me!txtS&#304;C&#304;LGURUBU <> "" Then
        sql = sql & " AND DATA.S&#304;C&#304;LGURUBU like '*" & Me!txtS&#304;C&#304;LGURUBU & "*'"
    End If
    sql = sql & " ORDER BY DATA.ADSOYAD "
    
    Me!Liste2.RowSource = sql
    [COLOR="Red"]Me.Metin1 = DCount("adsoyad", "data", "DATA.ADSOYAD like '*" & Me!txtADSOYAD & "*'")[/COLOR]
    
End Sub

Diğer alanlar içinde aynı şeyi yapın. Ben sadece adsoyad için yaptım..

 

[UFUKKURUM]

ÇOK TEŞEKKÜR EDERİM

bENİ BÜYÜK BİR BELADAN KURTARDIN SAĞOL

 

[UFUKKURUM]

yanlız diğer alanlara uygulayınca hesaplama olmuyor :???:

belkide ben beceremedim kontrol edebilirmisiniz

 

[UFUKKURUM]

diğer süzme seçimleri için uygulayınca çalışmıyor bir fikri olan varmı arkadaşlar

 

[beab05]

Alttaki gibi yapın, adsoyad ve sicil için yaptım gerisini siz yapın

Private Sub sql_duzenle()

    sql = " SELECT DATA.ADSOYAD, DATA.ADSOYAD, DATA.SİCİLNO, DATA.SİCİLGURUBU, DATA.CALİSTİGİBİRİM, DATA.UNVAN, DATA.İSEGİRİSTARİHİ, DATA.DAHİLİ, DATA.GSM, DATA.EVADRESİ " _
        & " FROM DATA " _
        & " WHERE 1=1 "
    If Me!txtADSOYAD <> "" Then
        sql = sql & " AND DATA.ADSOYAD like '*" & Me!txtADSOYAD & "*'"
[COLOR="Red"]Me.Metin1 = DCount("adsoyad", "data", "DATA.ADSOYAD like '*" & Me!txtADSOYAD & "*'")[/COLOR]
    End If
    If Me!txtS&#304;C&#304;LNO <> "" Then
        sql = sql & " AND DATA.S&#304;C&#304;LNO like '*" & Me!txtS&#304;C&#304;LNO & "*'"
        [COLOR="red"]Me.Metin1 = DCount("S&#304;C&#304;LNO", "data", "DATA.S&#304;C&#304;LNO like '*" & Me!txtS&#304;C&#304;LNO & "*'")[/COLOR]   
 End If
    If Me!txtCAL&#304;ST&#304;G&#304;B&#304;R&#304;M <> "" Then
        sql = sql & " AND DATA.CAL&#304;ST&#304;G&#304;B&#304;R&#304;M like '*" & Me!txtCAL&#304;ST&#304;G&#304;B&#304;R&#304;M & "*'"
    End If
    If Me!txtUNVAN <> "" Then
        sql = sql & " AND DATA.UNVAN like '*" & Me!txtUNVAN & "*'"
    End If
    If Me!txtS&#304;C&#304;LGURUBU <> "" Then
        sql = sql & " AND DATA.S&#304;C&#304;LGURUBU like '*" & Me!txtS&#304;C&#304;LGURUBU & "*'"
    End If
    sql = sql & " ORDER BY DATA.ADSOYAD "
    
    Me!Liste2.RowSource = sql
        
End Sub

 

[UFUKKURUM]

Private Sub sql_duzenle()

sql = " SELECT DATA.ADSOYAD, DATA.ADSOYAD, DATA.SİCİLNO, DATA.SİCİLGURUBU, DATA.CALİSTİGİBİRİM, DATA.UNVAN, DATA.İSEGİRİSTARİHİ, DATA.DAHİLİ, DATA.GSM, DATA.EGİTİM, DATA.EGİTİMDURUMU " _
& " FROM DATA " _
& " WHERE 1=1 "
If Me!txtADSOYAD <> "" Then
sql = sql & " AND DATA.ADSOYAD like '*" & Me!txtADSOYAD & "*'"
Me.Metin1 = DCount("ADSOYAD", "data", "DATA.ADSOYAD like '*" & Me!txtADSOYAD & "*'")
End If
If Me!txtSİCİLNO <> "" Then
sql = sql & " AND DATA.SİCİLNO like '*" & Me!txtSİCİLNO & "*'"
Me.Metin1 = DCount("SİCİLNO", "data", "DATA.SİCİLNO like '*" & Me!txtSİCİLNO & "*'")
End If
If Me!txtCALİSTİGİBİRİM <> "" Then
sql = sql & " AND DATA.CALİSTİGİBİRİM like '*" & Me!txtCALİSTİGİBİRİM & "*'"
Me.Metin1 = DCount("CALİSTİGİBİRİM", "data", "DATA.CALİSTİGİBİRİM like '*" & Me!txtCALİSTİGİBİRİM & "*'")
End If
If Me!txtUNVAN <> "" Then
sql = sql & " AND DATA.UNVAN like '*" & Me!txtUNVAN & "*'"
Me.Metin1 = DCount("UNVAN", "data", "DATA.UNVAN like '*" & Me!txtUNVAN & "*'")
End If
If Me!txtSİCİLGURUBU <> "" Then
sql = sql & " AND DATA.SİCİLGURUBU like '*" & Me!txtSİCİLGURUBU & "*'"
Me.Metin1 = DCount("SİCİLGURUBU", "data", "DATA.SİCİLGURUBU like '*" & Me!txtSİCİLGURUBU & "*'")
End If
sql = sql & " ORDER BY DATA.ADSOYAD "

Me!Liste2.RowSource = sql

End Sub

DEDİĞİNİZİ YAPTIM FAKAT ÇOKLU SÜZME YAPILINCA RAKAM DOĞRU ÇIKMIYOR
SİZİN DENEDİĞİNİZ GİBİ 2 KRİTERLİ SÜZMEDE PROBLEM YOK FAKAT DİĞERLERİNİ DE KATINCA TOPLAM RAKAM YANLIŞ VEYA HİÇ ÇIKMIYOR

 

[UFUKKURUM]

fikri olan varmı

 

[beab05]

Merhaba;
&#214;ncelikle Office 2007 de Microsoft forms activex denetimi &#231;al&#305;&#351;mamaktad&#305;r yani ben test edemiyorum. Bir de &#351;unu dener misiniz? Ayr&#305;ca yukar&#305;daki k&#305;rm&#305;z&#305; kodlar&#305; silin..

Private Sub txtADSOYAD_Updated(Code As Integer)
    Call sql_duzenle
    [COLOR="Purple"]Me.Metin1 = DCount("ADSOYAD", "data", "DATA.ADSOYAD like '*" & Me!txtADSOYAD & "*'")[/COLOR]
End Sub

Herbir alan i&#231;in tek tek gidin bakal&#305;m ne olacak??

 

[UFUKKURUM]

Private Sub txtADSOYAD_Updated(Code As Integer)
    Call sql_duzenle
    Me.Metin1 = DCount("ADSOYAD", "data", "DATA.ADSOYAD like '*" & Me!txtADSOYAD & "*'")
End Sub

Private Sub txtSİCİLNO_Updated(Code As Integer)
    Call sql_duzenle
    Me.Metin1 = DCount("SİCİLNO", "data", "DATA.SİCİLNO like '*" & Me!txtSİCİLNO & "*'")
End Sub

Private Sub txtSİCİLGURUBU_Updated(Code As Integer)
    Call sql_duzenle
    Me.Metin1 = DCount("SİCİLGURUBU", "data", "DATA.SİCİLGURUBU like '*" & Me!txtSİCİLGURUBU & "*'")

EKLEDİM FAKAT YİNE AYNI SORUN DEVAM EDİYOR
EKTE EKRAN GÖRÜNTÜSÜNÜ GÖNDERDİM BU YAPILABİLECEK BİR ŞEY OLDUĞUNU SANIYORUN AMA ARAŞTIRMALARIM SONUCU BİR SONUÇ ELDE EDEMEDİM YARDIMINIZI RİCA EDİYORUM

 

[beab05]

Bu &#351;ekilde her alan&#305; ba&#287;&#305;ms&#305;z say&#305;yor. Biraz kar&#305;&#351;&#305;k bir i&#351; gibi g&#246;r&#252;n&#252;yor ve ben deneme yapam&#305;yorum. Ayr&#305;ca &#351;u da var tablo yap&#305;n&#305;z &#231;ok yanl&#305;&#351;.

 

[UFUKKURUM]

ne önerirsiniz ?

 

[yeni54]

sql_duzenle i&#231;inde &#231;&#246;z&#252;lebilir gibi geliyor bana;

haz&#305;rlanan sql c&#252;mlesi nin bir kopyas&#305; daha olu&#351;turulur.
bu kopyada from dan sonrakileri ayn&#305; kalmak uzere select ifadesi

select count(adsoyad), count(sicilno), avg(yas),.... gibi

d&#252;zenlenirse olur kanaatimce.