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