Народ, доброго всем времени суток! Давно не садился уже за АКС, даже не могу сообразить где это на F1 искать. В общем, нужна функция (вызывается при форматировании отчета), которая возвращает размер шрифта в определенном поле. Имя этого поля и имя самого отчета в виде стринга передается в эту функцию при форматировании отчета... Я просто разучился манипулировать объектами Аксесса и написал вот эту ересь:

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)

вылазиет вот это: Object doesn't support this property or method (Error 438)

Поправьте, а? Пожалуйста...

http://www.sql.ru/forum/1281055/funkciya-vozvrashhaushhaya-razmer-shrifta-v-pole-otcheta