listview'deki verileri saydırmak

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; ekli dosyamda Bul tuşu ile verileri bulunca kaç tane bulduğunu TextBox18'e yazmasını istiyorum, yardımlarınız için teşekkürler.

Userform üzerinde bulunan Aranan kayıt sayısının karşısındaki kutucuk.
Herkese teşekkürler. Dua ile kalın.

 

[mancubus]

merhaba.
ilk değeri bulan ve bulma işlemini yapmaya devaman döngünün içine sayaç koyarak yapılabilir.

        .....
        .....
        .....
        If Not Bul Is Nothing Then
            Adres = Bul.Address
            Sayac = 1
            Do
               .....
               .....
               .....
               .....
               Sayac = Sayac + 1
            Loop While Not Bul Is Nothing And Bul.Address <> Adres
            TextBox18.Value = Sayac
            .....
            .....
        End If

 

[halit3]

Alternatif olarak kodun en sonuna aşağıdaki ilaveyi yaparak denermisiniz.

TextBox18.Value = ListView1.ListItems.Count

 

[Hacı Bayram ÖZKAN]

Sayın Mancubus ve halit bey her ikinizede teşekkür ederim dua ile kalın.