• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Filtrelenen listedeki satırları saydırmak

U

UFUKKURUM

Katılım
19 Kasım 2007
Mesajlar
18
Excel Vers. ve Dili
excel
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' Alıntı:
bununla ilgili kimsenin bir fikri yokmu
Genişletmek için tıkla ...

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.
 
Merhaba;

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

Kullanımı;

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

gibi...
 
İ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
 
Güzel soru ;)

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

Kod: 
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&#287;er alanlar i&#231;inde ayn&#305; &#351;eyi yap&#305;n. Ben sadece adsoyad i&#231;in yapt&#305;m..
 
yanlız diğer alanlara uygulayınca hesaplama olmuyor :???:

belkide ben beceremedim kontrol edebilirmisiniz
 
diğer süzme seçimleri için uygulayınca çalışmıyor bir fikri olan varmı arkadaşlar
 
Alttaki gibi yap&#305;n, adsoyad ve sicil i&#231;in yapt&#305;m gerisini siz yap&#305;n

Kod: 
Private Sub sql_duzenle()

    sql = " SELECT DATA.ADSOYAD, DATA.ADSOYAD, DATA.S&#304;C&#304;LNO, DATA.S&#304;C&#304;LGURUBU, DATA.CAL&#304;ST&#304;G&#304;B&#304;R&#304;M, DATA.UNVAN, DATA.&#304;SEG&#304;R&#304;STAR&#304;H&#304;, DATA.DAH&#304;L&#304;, DATA.GSM, DATA.EVADRES&#304; " _
        & " 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
 
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
Genişletmek için tıkla ...

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
 
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..
Kod: 
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??
 
Kod: 
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
 
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;.
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst