Listbox içerisinde Dcount

[tamer42]

Merhabalar;
Bir tek sütunlu Listbox' ta ; belirlenen değerlerden kaç adet var sayılabilir mi?

Listbox adı:List12

Sayılacak değerler bir combobox' tan Combo12 seçillecek olursa:

Dcount(List12; ;Combo12 like 'List12' )

gibi bir foksiyon yazmak yazılabilirmi?

İyi Pazarlar, İyi Akşamlar....

 

[beab05]

Merhaba;
Sonuçta listbox ta verileri tablodan almıyor mı?

=DCount("[ürün_ismi]"; "tablo_ismi"; "[ürün_ismi] = 'kereviz'")

Gibi kulanabilirsiniz..
ya da

=DCount("[alan_ismi]"; "tablo_ismi"; "[ürün_ismi] = " & forms!form_ismi!açılan_kutu_ismi)

olarak kullanabilirsiniz..

 

[modalı]

Sayın tamer42,

Herhalde liste kutunuzda verileri bir sorgudan veya bir tablodan alıyordur. Neden tablo veya sorguda saymıyorsunuz verilerinizi?

İyi çalışmalar

 

[tamer42]

Sayın tamer42,

Herhalde liste kutunuzda verileri bir sorgudan veya bir tablodan alıyordur. Neden tablo veya sorguda saymıyorsunuz verilerinizi?

Sn Modalı Listbox' a sadece belirlediğim verileri alıyorum.

........

a=Me.[ANA İŞ]
me.list12.AddItem a

......

AddItem yoluyla alıyorum.

İyi Çalışmalar.

 

[beab05]

Bir örnek koymak çok mu zor??

 

[tamer42]

Sn beab05;

örnek ektedir..


Ekli dosyada Table1 adlı form üzerinde;
Command22 butonuna tıklayınca alttaki listbox' a ekliyor.

Daha sonra (cobobox yardımıyla) bu listbox ta sayım yapmak istiyorum...

İyi Çalışmalar.

 

[tamer42]

Merhablar;

Private Sub Combo12_Change()
Dim i, s As Variant

s = 0

    c = Me.[Combo12].Value

            If Not IsNull(Me.[Combo12]) Then
        
                    For i = 0 To Me.List12.ListCount - 1
 

                            If c = Me.List12.Column(0, i) Then
 
                                s = s + 1

                            End If



                    Next i

            End If


    Me.Text20 = s

End Sub

bu şekilde bir kodla işi çözdüm ama sizce daha pratik bir yolu yok mudur?

İyi Çalışmalar.

 

[beab05]

Bence gayet güzel bir çözüm olmuş..