Here is the query that is the source of the report:
CODE
SELECT DISTINCT
Sites.SiteName,
Sites.KindegartenEntrants,
Sites.OutOfStateXfers,
Mandates.ProgramID,
Mandates.ProgramName,
Mandates.Chapter,
Mandates.StatuteYear,
Mandates.Appropriations,
Mandates.EducCodes,
Mandates.LongProgramName,
Mandates.DetailFormName,
Mandates.SummaryFormName,
Mandates.ClaimFormName,
Districts.*,
DistrictInfo.Abbreviation,
DistrictInfo.IndirectRate,
DistrictInfo.SiteSize,
DistrictInfo.[#Truants],
DistrictInfo.[#Screened],
DistrictInfo.[#ReScreened],
DistrictInfo.Medical,
tblUnitRates.Factor,
tblUnitRates.YearID,
tblClaims.EstimatedClaim,
tblClaims.ReimbursementClaim
FROM
(
(
Districts
INNER JOIN
DistrictInfo
ON
Districts.DistrictID = DistrictInfo.DistrictID
)
INNER JOIN
Sites
ON
Districts.DistrictID = Sites.DistrictID
)
INNER JOIN
(
(
tblUnitRates
INNER JOIN
tblClaims
ON
(tblClaims.MandateID = tblUnitRates.ProgramID)
AND
(tblUnitRates.YearID = tblClaims.ProgramYearID)
)
INNER JOIN
Mandates
ON
tblClaims.MandateID = Mandates.ProgramID
)
ON
Districts.DistrictID = tblClaims.DistrictID
WHERE
(
(
(Mandates.ProgramID)=[forms]![PrintMenuFRM]![chooseProgramID]
)
AND
(
(Districts.DistrictID)=[forms]![PrintMenuFRM]![chooseDistrictBox]
)
AND
(
(DistrictInfo.YearID)=[forms]![PrintMenuFRM]![chooseProgramYearID]
)
AND
(
(Sites.DistrictID)=[forms]![PrintMenuFRM]![chooseDistrictBox]
)
AND
(
(tblClaims.ProgramYearID)=[forms]![PrintMenuFRM]![chooseProgramYearID]
)
)
ORDER BY
Sites.SiteName;
and here is the entire visual basic code for this report:
CODE
Option Compare Database
Option Explicit
Public Function SetTotalClaimed()
On Error GoTo HandleErrors
Me![13] = dblTotalClaimed + dblTotalClaimed2
'frm![TotalClaimed] = dblTotalClaimed
Exit Function
HandleErrors:
MsgBox "Error was encountered... Proceeding with errors." & vbCrLf & vbCrLf & "Please note the District and Program being printed for tech support.", vbInformation
Resume Next
End Function
Private Sub Report_NoData(Cancel As Integer)
If ContinueReportGeneration(Me.Name) = True Then
Cancel = False
Else
Cancel = True
End If
End Sub
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
I did do a search on the "SetTotalClaimed" function, and I can't find anywhere in the code that it is called, although it appears in the code-behind of several reports.
Also, none of the fields in the report have "SetTotalClaimed" as the Control Source. (Anyway, even though it's a function, it acts more like a Sub since nothing is returned.)