Listview de Verileri saydırmak

[omeryılmaz]

Listview de İşletmelere ait TextBox1 deki tarihe eşit ve küçük M sütununda "Var" yazan tarihler ve toplam sayısı

Örn: Tarih :16.02.2012 İşletmeci Adı:Kemal ZEYTÜNLÜ

Sayısı = 2 -> Olmalı
Var Tarihleri : 06.09.2011 - 01.12.2011 -> olmalı


Sayfada ve UserFormda açıklama mevcut



Private Sub CommandButton3_Click()
' Veri Sayısı Bulmak-----------------------------------------------------

say = 0
TextBox3 = ""
TextBox4 = ""
With ListView1
For c = 1 To .ListItems.Count - 1
If Format(TextBox1, "ddmmyyyy") >= Format(.ListSubItems(c, 2), "ddmmyyyy") _
And TextBox2.Text = .ListSubItems(c, 5) _
And .ListSubItems(c, 12) = "Var" Then
tarih = tarih & " -" & Format(.ListSubItems(c, 2), "dd.mm.yyyy")
say = say + 1
End If
Next
End With
TextBox3 = say
TextBox4 = Mid(tarih, 3)
End Sub



veya



Private Sub CommandButton3_Click()
' Veri Sayısı Bulmak-----------------------------------------------------

say = 0
TextBox3 = ""
TextBox4 = ""
With ListView1
For c = 1 To .ListItems.Count
If Format(TextBox1, "ddmmyyyy") >= Format(.ListSubItems(3).Text, "ddmmyyyy") _
And TextBox2.Text = .ListSubItems(6).Text _
And .ListSubItems(13).Text = "Var" Then
tarih = tarih & " -" & Format(.ListSubItems(3).Text, "dd.mm.yyyy")
say = say + 1
End If
Next
End With
TextBox3 = say
TextBox4 = Mid(tarih, 3)
End Sub


Uygulayamadım


Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Husgvarna]

Listview de İşletmelere ait TextBox1 deki tarihe eşit ve küçük M sütununda "Var" yazan tarihler ve toplam sayısı

Örn: Tarih :16.02.2012 İşletmeci Adı:Kemal ZEYTÜNLÜ Sayısı = 2 -> Olmalı Var Tarihleri : 06.09.2011 - 01.12.2011 -> olmalı
Sayfada ve UserFormda açıklama mevcut

Merhaba.
Aşağıdaki gibi deneyin.

 Private Sub CommandButton3_Click()
say = 0
TextBox3 = ""
TextBox4 = ""
With ListView1
For c = 1 To .ListItems.Count
If Format(TextBox1, "dd.mm.yyyy") >= Format(.ListItems(c).ListSubItems(3), "dd.mm.yyyy") And _
TextBox2.Text = .ListItems(c).ListSubItems(6) And _
.ListItems(c).ListSubItems(13) = "Var" Then
tarih = tarih & " -" & Format(ListView1.ListItems(c).ListSubItems(3), "dd.mm.yyyy")
say = say + 1
End If
Next
End With
TextBox3 = say
TextBox4 = Mid(tarih, 3)
End Sub

 

[Husgvarna]

Listview de İşletmelere ait TextBox1 deki tarihe eşit ve küçük M
06.09.2011 - 01.12.2011 -> olmalı

O zaman textbox1 in gereği niçin.

 

[omeryılmaz]

O zaman textbox1 in gereği niçin.

Hocam Tüm verileri alıyor.

Listviewden seçim yapılıp düzeltme uygulanırsa diye TextBox1 e gerek var

Onun için

TextBox1 deki tarihten küçük olanlar için

Format(TextBox1, "dd.mm.yyyy") >= Format(.ListItems(c).ListSubItems(3), "dd.mm.yyyy")

>= işlev yapmadı


Ben tarihi sayısal veriye dönüştürerek işlemi yapmak istedim onun için "ddmmyyyy") diye düşündüm...



Yinede ilginiz için şükranlarımı sunuyorum... Sağolun

 

[Husgvarna]

Hocam Tüm verileri alıyor.


Ben tarihi sayısal veriye dönüştürerek ilmemi yapmak istedim onun için "ddmmyyyy") diye düşündüm...

"ddmmyyyy" yanlış "dd.mm.yyyy"

Cdbl(cdate(Textbox1))

gibi olabilir.

 

[omeryılmaz]

"ddmmyyyy" yanlış "dd.mm.yyyy"

Cdbl(cdate(Textbox1))

gibi olabilir.

Teşekkürler çözüldü..

eline yüreğine sağlık sağol.....