Option Compare Database
Const Baslama As Long = 13       '******** Başlama Gün *********
Public Function Grupla(Trh As Date) As String
Dim CevTrh As Date
Gn = IIf((Month(Trh) - IIf(Day(Trh) < Baslama, 1, 0)) = 1, Day(Trh), 13)
If Day(Trh) < Baslama Then
        CevTrh = DateSerial(Year(Trh), Month(Trh) - 1, Gn)
Else
        CevTrh = DateSerial(Year(Trh), Month(Trh), Gn)
End If
Grupla = Month(Trh) - IIf(Day(Trh) < Gn, 1, 0) & "-" & Format(CevTrh, "dd mmmm yyyy dddd")
End Function

SELECT Grupla([islem tarihi]) AS Grp, [GELİR/GİDER].[islem tarihi], [GELİR/GİDER].adi, [GELİR/GİDER].barkod, [GELİR/GİDER].Kimlik, [GELİR/GİDER].bolum, [GELİR/GİDER].tutari, [GELİR/GİDER].onayi, [GELİR/GİDER].grup, [GELİR/GİDER].hesap, [GELİR/GİDER].aciklama, [GELİR/GİDER].althesap, [GELİR/GİDER].[islem katagorisi], [GELİR/GİDER].[hesap Id]
FROM [GELİR/GİDER]
WHERE ((([GELİR/GİDER].onayi)="ödenmedi") AND (([GELİR/GİDER].grup)="Taksit"))
ORDER BY [GELİR/GİDER].[islem tarihi], [GELİR/GİDER].onayi;