Option Compare Database
Option Explicit

Private Sub Report_Open(Cancel As Integer)
Dim Kosul As String
Kosul = IIf(Forms.KTM.GnAy = -1, " And ", Null) & IIf(Format(Forms.KTM.txttarih1, "yyyymmdd") <> Format(Forms.KTM.txttarih2, "yyyymmdd"), "(([Tarih]) Between #" & Format(Forms.KTM.txttarih1, "dd\/mm\/yyyy") & "# And #" & Format(Forms.KTM.txttarih2, "dd\/mm\/yyyy") & "#)", "((Format([Tarih],'yyyymm'))=" & Format(Forms.KTM.txttarih1, "yyyymm") & ")")
If Forms.KTM.GnAy = 0 Then
Me.RecordSource = "SELECT [Tarih] As ATarih, " & _
"Nz([CumBsk], 0)As  ACumBsk, " & _
"Nz([MSB], 0)As  AMSB, " & _
"Nz([Generali], 0)As  AGeneral, " & _
"Nz([Subay], 0)As  ASubay, " & _
"Nz([AsSubay], 0)As  AAsSubay, " & _
"Nz([UzmÇvþ], 0)As  AUzmÇvþ, " & _
"Nz([EGenerali], 0)As  AEGeneral, " & _
"Nz([ESubay], 0)As  AESubay, " & _
"Nz([EAsSubay], 0)As  AEAsSubay, " & _
"Nz([EUzmÇvþ], 0)As  AEUzmÇvþ, " & _
"Nz([Aile], 0)As  AAile, " & _
"Nz([Maiyet], 0)As  AMaiyet, " & _
"Nz([YbncHyt], 0) As AYbncHyt, " & _
"Nz([CumBsk],0) + Nz([MSB],0) + Nz([Generali],0) + Nz([Subay],0) + Nz([AsSubay],0) + Nz([UzmÇvþ],0) + Nz([EGenerali],0) + Nz([ESubay],0) + Nz([EAsSubay],0) + Nz([EUzmÇvþ],0) + Nz([Aile],0) + Nz([Maiyet],0) + Nz([YbncHyt],0) AS Toplam, " & _
"Nz([Pln], 0) As APln, " & _
"Nz([UcsYp], 0) As AUcsYp, " & _
"Nz([UcsYpm], 0) As AUcsYpm, " & _
"Nz([Msfr], 0) As AMsfr " & _
"FROM Gunluk WHERE (" & Kosul & ") Order By [Tarih] DESC"
Else
Me.RecordSource = "SELECT Format([Tarih], 'yyyymm') As BTarih, Format([Tarih], 'mmmm yyyy') As ATarih, " & _
"Sum(Nz([CumBsk], 0)) As ACumBsk, " & _
"Sum(Nz([MSB], 0)) As AMSB, " & _
"Sum(Nz([Generali], 0)) As AGeneral, " & _
"Sum(Nz([Subay], 0)) As ASubay, " & _
"Sum(Nz([AsSubay], 0)) As AAsSubay, " & _
"Sum(Nz([UzmÇvþ], 0)) As AUzmÇvþ, " & _
"Sum(Nz([EGenerali], 0)) As AEGeneral, " & _
"Sum(Nz([ESubay], 0)) As AESubay, " & _
"Sum(Nz([EAsSubay], 0)) As AEAsSubay, " & _
"Sum(Nz([EUzmÇvþ], 0)) As AEUzmÇvþ, " & _
"Sum(Nz([Aile], 0)) As AAile, " & _
"Sum(Nz([Maiyet], 0)) As AMaiyet, " & _
"Sum(Nz([YbncHyt], 0)) As AYbncHyt, " & _
"Nz([ACumBsk],0) + Nz([AMSB],0) + Nz([AGeneral],0) + Nz([ASubay],0) + Nz([AAsSubay],0) + Nz([AUzmÇvþ],0) + Nz([AEGeneral],0) + Nz([AESubay],0) + Nz([AEAsSubay],0) + Nz([AEUzmÇvþ],0) + Nz([AAile],0)+Nz([AMaiyet],0) + Nz([AYbncHyt],0) AS Toplam,  " & _
"Sum(Nz([Pln], 0)) As APln, " & _
"Sum(Nz([UcsYp], 0)) As AUcsYp, " & _
"Sum(Nz([UcsYpm], 0)) As AUcsYpm, " & _
"Sum(Nz([Msfr], 0)) As AMsfr " & _
"FROM Gunluk WHERE (((Year(Tarih))=" & Year(Forms.KTM.txttarih1) & ")" & Kosul & ") GROUP BY Format([Tarih],'yyyymm'), Format([Tarih],'mmmm yyyy') Order By Format([Tarih],'yyyymm') DESC"
End If
End Sub