Merhaba, kodu aşağıdaki ile değiştirerek dener misin?

Dim db As DAO.Database

Set db = CurrentDb

Dim qdf As DAO.QueryDef

Dim newSQL As String

    

DoCmd.DeleteObject acQuery, "SrgPortfoy"

    

Dim GKriter As String

If Me.Filtrem = "0" Then



GKriter = ""



Else



GKriter = "HAVING (((Sum(Nz([PAlis], 0)) - Sum(Nz([PSatis], 0))) > 0))"



End If



newSQL = "SELECT Portfoy.PHisse, Portfoy.PGrup, Sum(Nz([PAlis],0))-Sum(Nz([PSatis],0)) AS Kalan, Nz([FIYAT],0) AS Fiyat, Sum(Portfoy.PAlis) AS AAdet, Sum(Portfoy.PSatis) AS SAdet, Sum(Nz([PaTutar]+[PKomisyon],0)) AS Alis, Sum(Nz([PSTutar]-[PsKomisyon],0)) AS Satis, Round(Nz([alis]/[aadet],0),4) AS Maliyet, CDbl(Nz([Kalan]*[Fiyat],0)) AS Tutar, Round((Nz([satis],0)+Nz([tutar],0))-Nz([alis],0),2) AS Kar FROM HisseVtGun INNER JOIN (Hisseler INNER JOIN Portfoy ON Hisseler.ID = Portfoy.PHisse) ON HisseVtGun.HISSE = Hisseler.KOD GROUP BY Portfoy.PHisse, Portfoy.PGrup, Nz([FIYAT],0) " & GKriter & " ORDER BY Sum(Nz([PAlis],0))-Sum(Nz([PSatis],0)) DESC;"

Set qdf = db.CreateQueryDef("SrgPortfoy", newSQL)



Forms![Portfoyüm]![PortfoyümAlt].Form.RecordSource = "SELECT Portfoy.PHisse, Portfoy.PGrup, Sum(Nz([PAlis],0))-Sum(Nz([PSatis],0)) AS Kalan, Nz([FIYAT],0) AS Fiyat, Sum(Portfoy.PAlis) AS AAdet, Sum(Portfoy.PSatis) AS SAdet, Sum(Nz([PaTutar]+[PKomisyon],0)) AS Alis, Sum(Nz([PSTutar]-[PsKomisyon],0)) AS Satis, Round(Nz([alis]/[aadet],0),4) AS Maliyet, CDbl(Nz([Kalan]*[Fiyat],0)) AS Tutar, Round((Nz([satis],0)+Nz([tutar],0))-Nz([alis],0),2) AS Kar FROM HisseVtGun INNER JOIN (Hisseler INNER JOIN Portfoy ON Hisseler.ID = Portfoy.PHisse) ON HisseVtGun.HISSE = Hisseler.KOD GROUP BY Portfoy.PHisse, Portfoy.PGrup, Nz([FIYAT],0) " & GKriter & " ORDER BY Sum(Nz([PAlis],0))-Sum(Nz([PSatis],0)) DESC;"