Dim GKriter As String
If Me.Filtrem = "0" Then
GKriter = ""
Else
GKriter = "HAVING (((Sum(Nz([PAlis], 0)) - Sum(Nz([PSatis], 0))) > 0))"
End If
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;"
kodu ekle..