Hi ranman,
I did as you suggested, but this didn't work as my queries had calculated fields within them.
I have managed to find a work around for this using some VBA code to perform the calculations I wanted in the final report.
My new issue is creating a loop for these reports, updating each report with its calculated figure - so far it is only showing the value from the first record calculation in each report.
This is my code:
Code:
Private Sub Report_Load()
For i = 1 To Recordset("tblAssociates").RecordCount
If rptAssociateRolesSpecSub.Report!txtrevisercount = 0 Then
'Debug.Print "No Revisers"
Me!txtFinalFee = rptComponentFeesByRolesSub.Report!txtItemWriteFee + rptComponentFeesByRolesSub.Report!txtReviserCompFee + rptComponentFeesByRolesSub.Report!txtScrutFee + rptComponentFeesByRolesSub.Report!txtLAWFee
'Debug.Print rptComponentFeesByRolesSub.Report!txtItemWriteFee + rptComponentFeesByRolesSub.Report!txtReviserCompFee + rptComponentFeesByRolesSub.Report!txtScrutFee + rptComponentFeesByRolesSub.Report!txtLAWFee
Else
'Debug.Print rptAssociateRolesSpecSub.Report!txtrevisercount
Me!txtFinalFee = rptComponentFeesByRolesSub.Report!txtItemWriteFee + rptComponentFeesByRolesSub.Report!txtReviserCompFee + rptComponentFeesByRolesSub.Report!txtScrutFee + rptComponentFeesByRolesSub.Report!txtLAWFee + rptSpecReviserFeesSub.Report!txtSpecRevisionFee
'Debug.Print rptComponentFeesByRolesSub.Report!txtItemWriteFee + rptComponentFeesByRolesSub.Report!txtReviserCompFee + rptComponentFeesByRolesSub.Report!txtScrutFee + rptComponentFeesByRolesSub.Report!txtLAWFee + rptSpecReviserFeesSub.Report!txtSpecRevisionFee
End If
MoveNext
Next i
End Sub
Thanks,
Sarith