Selamlar,

Bir Ana Formum var, Bu forma bağlı veri sayfası şeklinde alt formum var. Ana formda Alt formu filtreleyecek süzgeçler koydum. Ama VB.de bunu nasıl yapacağımı bilmiyorum.
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

Bu sorduğunuz şey başlıbaşına programın kendisi zaten) Bunula ilgili sitemizde bolca örnekler var. İncelemenizi öneririm.

Sn mehmetdemiral,

birtane örnek var ama onda da ADO felan var, onuda ben anlamıyorum. acaba daha kolay anlayabileceğim CASE & SELECK deyimleriyle olmazmı.Sadece ikitane süzgeçin örneğini görsem gerisini ben yapabilirim. Aslında sorgu ve makrolarla yapabilirim ama ben vB.le yapmak istiyorum. Hem Öğrenmek hemde daha kısa yol olduğu için. Çünkü birden fazla süzgeç kullanmak istiyorum. Sorgularla yaparsam çok fazla sorgu yapmam gerek.

Sayın Estapan;
İstediğiniz Ekte Yapılmıştır... Kolay Gelsin.

Option Compare Database



' Kodlar Kur@l Tarafından Yazılmıştır.



Private Sub Süzgeç_AfterUpdate()

On Error Resume Next



Dim sql, nerede, sira As String

 

 Sql = "SELECT Taksit.[NO], Taksit.SıraNO, Taksit.Vadesi, Taksit.Tutar, Taksit.Giriştarihi, Taksit.Ödendimi, Taksit.TahsilatNO," _

& "Taksit.TahsilatTarihi , Taksit.TahsilTutar, Taksit.Açıklama, Taksit.EvrakNO, Taksit.CariNO, Taksit.ReferansNO, " _

& "Taksit.İşlemTürü , Taksit.BordroNO, Taksit.Kaynak   FROM Taksit "







Select Case Me.Süzgeç.Value

Case "Vadesi Geçen Taksitler"

nerede = "where Taksit.Vadesi<#" & Format(Date, "mm/dd/yyyy") & "# order by Taksit.Vadesi"

' bu kısımda ödenmişler vadesi geçmiş olarak gelmemeli



Case "Ödenmiş Taksitler"

nerede = "where Taksit.Ödendimi=-1"



Case "Bu Haftanın Taksitleri"



nerede = "where format(Taksit.Vadesi,'WW') =" & Format(Date, "ww") & " order by Taksit.Vadesi"



Case "Bu Ayın Taksitleri"

nerede = "where format(Taksit.Vadesi,'mm') =" & Format(Date, "mm") & " order by Taksit.Vadesi"



Case "İki Tarih Arası Taksitler"

Dim tar1, tar2 As String

tar1 = InputBox("İlk Tarihi Giriniz")

tar2 = InputBox("İkinci Tarihi Giriniz")



nerede = "where Taksit.Vadesi between # " & Format(tar1, "mm/dd/yyyy") & "#  and #" & Format(tar2, "mm/dd/yyyy") & "#order by Taksit.Vadesi"



Case "Ödenmemiş Taksitler"

nerede = "where Taksit.Ödendimi=0"



Case "Tüm Taksitler"

 nerede = " "



End Select



Me.Taksit_alt_formu1.Form.RecordSource = Sql & nerede

Me.Taksit_alt_formu1.Requery

 





End Sub

Bu kodun düzgün çalışması için Tarih Ayracının "/" olması gerekmektedir. Ozan Hocamın Tarih Ayracı Değiştirme Örneğini İndirip tarih ayracını "/" işareti olarak ayarlayınız.Tekrar Kolay Gelsin.

sn Kural,

yaptığınız örnek çalışıyor.Problem çözülmüştür.Teşekkürler. + REP

Sayın Kural ve estepan;

Katkı ve emek için teşekkürler..

Sevgiler