İki Tarih Arası veri Listeleme

[fehdur]

Ekli dosyada sayfa 5 deki veriler userformda bulunan Textbox 1 ve 2 ye girilen tarih aralıklarında süzülerek listbox1 de listelenecektir.Yardımcı olacak arkadaşa Teşekkür ederim

 

[Erdem Akdemir]

Merhaba,

Listbox kolon ayarlarını yaptıktan sonra aşağıdaki kodu commandbutton'lardan birinin click özelliğini ekleyin.

Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select * from[sayfa5$] where [SÖZ#TARİHİ] between " & CLng(CDate(TextBox1.Value)) & " and " & CLng(CDate(TextBox2.Value)) & " "
Set rs = con.Execute(sorgu)

ListBox1.Column = rs.getrows

rs.Close
Set rs = Nothing
Set con = Nothing

 

[fehdur]

ListBox1.ColumnCount = 8
kolon ayarları olarak yukardaki kodu ilave ettim ancak çalışmadı.--------Set rs = con.Execute(sorgu)--------satırı hata verdi.

 

[byfika]

Merhabalar,
Dener misiniz?

 

[fehdur]

Tamamdır.Çok Teşekkür ederim.Arşiv için güzel bir örnek oldu.

 

[byfika]

Rica ederim. iyi çalışmalar...

 

[Erdem Akdemir]

Ben hata almadım. Kodda sorun yok.