Проверка - Имеет ли форма секции (Заголовок | Примечание)

Private Function FormHasSections(frm As Form) As Boolean
'Возвращает True если указанная в аргументе форма имеет Секции (Заголовок | Примечание)
'----------------------------------------------------------------------------------------
Dim bVal As Boolean
'----------------------------------------------------------------------------------------
On Error GoTo FormHasSections_Err
    bVal = frm.Section(acHeader).Visible
    FormHasSections = True
    Exit Function

FormHasSections_Err:
    FormHasSections = False 'Error 2462
    Err.Clear
End Function