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