Merhaba

Tablo da bulunan verilerimi bir form üzerinde aktif arama yaparak bulabilmekteyim ve bunları bir liste üzerinde görüntülemekteyim. Sorunum ise arama yapıp görüntülediğim verileri butonlar (veya açılır bir liste yardımıyla) son 5 yıl , son 10 veya son 15 yıl olarak süzmek istemekteyim(kabul tarihi sütununda bulunan tarihleri). Bir türlü yapamadım. Yardımcı olur musunuz?

Pencereler gizlenmiş durumdadır.

Ekran Görüntüsü

Sn tyrantati; Asagidaki kodlari form VB bolumune tasinmasi ile yapilabilir.
Sub ListeKayitSQL(Sene As Long)
Me.List1.RowSource = "SELECT Search_e.* FROM Search_e WHERE (((Year([e_kabul_tarihi])) Between Year(Date())-" & Sene & " And Year(Date())))"
Me.List1.Requery
End Sub
Private Sub Komut14_Click()
Call ListeKayitSQL(5)
End Sub
Private Sub Komut15_Click()
Call ListeKayitSQL(10)
End Sub
Private Sub Komut16_Click()
Call ListeKayitSQL(15)
End Sub

Sn dsezgin83260 çok teşekkür ederim yardımlarınız için.

Elinize sağlık

(07-08-2014, 18:52)dsezgin83260 demiş ki: Sn tyrantati; Asagidaki kodlari form VB bolumune tasinmasi ile yapilabilir.
Sub ListeKayitSQL(Sene As Long)
Me.List1.RowSource = "SELECT Search_e.* FROM Search_e WHERE (((Year([e_kabul_tarihi])) Between Year(Date())-" & Sene & " And Year(Date())))"
Me.List1.Requery
End Sub
Private Sub Komut14_Click()
Call ListeKayitSQL(5)
End Sub
Private Sub Komut15_Click()
Call ListeKayitSQL(10)
End Sub
Private Sub Komut16_Click()
Call ListeKayitSQL(15)
End Sub

Tekrar merhaba

Bugün tam anlamıyla kodu test etme imkanım oldu. Şöyle bir şey fark ettim. Süzme işlemini yaparken örneğin son 5 yıl butonuna bastığımda 2009 yılından sonraki kayıtları süzüyor fakat ay ve gün bazında süzme yapmıyor. Yani 15.08.2014 tarihinden beş yıl geriye 15.08.2009 tarihine kadar olan kayıtlar yerine 01.01.2009 tarihine kadar olan kayıtları süzüyor. Acaba bunu nasıl düzeltebiliriz. Tekrar yardımcı olursanız çok sevinirim.

Sn tyrantati; Asagidaki kodlari form VB bolumune tasinmasi ile yapilabilir.
Sub ListeKayitSQL(Sene As Long)
dim OnceTrh as date
OnceTrh=format(date,"mm.dd.") & (Year(Date())-Sene)
Me.List1.RowSource = "SELECT Search_e.* FROM Search_e WHERE ((([e_kabul_tarihi]) Between #" & replace(OnceTrh,".","/") & "# And Date()))"
Me.List1.Requery
End Sub
Private Sub Komut14_Click()
Call ListeKayitSQL(5)
End Sub
Private Sub Komut15_Click()
Call ListeKayitSQL(10)
End Sub
Private Sub Komut16_Click()
Call ListeKayitSQL(15)
End Sub

(15-08-2014, 19:53)dsezgin83260 demiş ki: Sn tyrantati; Asagidaki kodlari form VB bolumune tasinmasi ile yapilabilir.
Sub ListeKayitSQL(Sene As Long)
dim OnceTrh as date
OnceTrh=format(date,"mm.dd.") & (Year(Date())-Sene)
Me.List1.RowSource = "SELECT Search_e.* FROM Search_e WHERE ((([e_kabul_tarihi]) Between #" & replace(OnceTrh,".","/") & "# And Date()))"
Me.List1.Requery
End Sub
Private Sub Komut14_Click()
Call ListeKayitSQL(5)
End Sub
Private Sub Komut15_Click()
Call ListeKayitSQL(10)
End Sub
Private Sub Komut16_Click()
Call ListeKayitSQL(15)
End Sub

Sn.dsezgin83260 bu kod da aynı şekide sadece yılı süzüyor. Başka bir yolu var mıdır.

Çok teşekkür ederim