Public Function strTS(nameRPT As String, nameFLD As String) As Integer
Dim objRPT As AccessObject
Dim objFLD As AccessObject
Set objRPT = CurrentProject.AllReports(nameRPT)
Set objFLD = objRPT.Controls(nameFLD)
    strTS = objFLD.FontSize
Set objRPT = Nothing
Set objFLD = Nothing
End Function

Set objFLD = objRPT.Controls(nameFLD)

Public Function strTS(nameRPT As String, nameFLD As String) As Integer
Dim objRPT As Report
Dim objFLD As Control
Set objRPT = Application.Reports(nameRPT)
Set objFLD = objRPT.Controls(nameFLD)
    strTS = objFLD.FontSize
Set objRPT = Nothing
Set objFLD = Nothing
End Function