DTPicker ile Tarih aralığında rapor

[teksen]

Arkadaşlar merhaba,

Kapalı access dosyasından aşağıdaki kodlarla detaylı arama yaptırabiliyorum.

Bu kodlara ilave olarak 2 adet DTPİcker1 ve DTPicker2 nesnesi ekleyerek başlangıç ve bitiş tarihlerine görede aramayı eklemek istiyorum.

Tarihler access dosyasında 'tarih' isimli sütunda kayıtlı





Private Sub kasa_ara_Click()
Dim tx1, tx2, tx3, tx4, tx5 As String

On Error Resume Next
Set adoCN = CreateObject("ADODB.Connection")
DatabasePath = "C:\ERTEKS\TestDB5.mdb"
If Dir(DatabasePath) = "" Then
MsgBox DatabasePath & " bulunamadı, programdan çıkılacak !", vbCritical, "ERTEKS"
Unload Me
Exit Sub
End If
adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
adoCN.ConnectionString = DatabasePath
adoCN.Open

tx1 = cari_adi_2.Text
tx2 = cari_hareketi_2.Text
tx3 = kasa_adi_2.Text
tx4 = irsaliye_no_2.Text
tx5 = odeme_sekli_2.Text


Set RS = CreateObject("ADODB.recordset")

STRSQL = "SELECT * FROM [Popline_YTL] where (unvani like '%" & tx1 & "%'" & _
"and islem_tipi like '" & tx2 & "%' and islem_yapilan_kasa like '" & tx3 & "%' and irsaliye_no like '" & tx4 & "%' and odeme_sekli like '" & tx5 & "%')"

-------------------------------------------------------------------------
-------------Yukarıdaki "STRSQL =" kısmına eklemeye çalıştım fakat olmadı.Hatırladığım kadarıyla 'between' şeklinde bir kod yapabiliyorduk-----------------------------------------------------------------------------------


RS.Open STRSQL, adoCN, 1, 3
RS.MoveFirst
ListBox1.Clear
Do While Not RS.EOF
ListBox1.AddItem
ListBox1.Column(0, X) = RS("tarih")
ListBox1.Column(1, X) = RS("unvani")
ListBox1.Column(2, X) = RS("islem_tipi")
ListBox1.Column(3, X) = RS("islem_yapilan_kasa")
ListBox1.Column(4, X) = RS("irsaliye_no")
ListBox1.Column(5, X) = RS("odeme_sekli")
ListBox1.Column(6, X) = RS("borc")
ListBox1.Column(7, X) = RS("alacak")
ListBox1.Column(8, X) = RS("bakiye")

RS.MoveNext
X = X + 1
Loop



End Sub

 

[teksen]

Arkadaşlar bu konuda bir fikri olan varmı acaba?

 

[BG]

Merhaba

size iki tarih aralığını between komutu ile süzen bir örnek aktarayım, umarım probleminiz için referans olur

SELECT [urunler tablosu].[urun adi], [satis tablosu].tarih
FROM [urunler tablosu] INNER JOIN [satis tablosu] ON [urunler tablosu].[urun numarasi] = [satis tablosu].[urun numarasi]
WHERE ((([urunler tablosu].[urun adi])="faks") AND (([satis tablosu].tarih) Between #10/1/2003# And #12/12/2003#));