İ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.
