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

Private Function FormHasSections(frm As Form) As Boolean

'Возвращает True если указанная в аргументе форма имеет Секции (Заголовок | Примечание)

'--------------------------------------------------------------------

Dim b As Boolean

'--------------------------------------------------------------------

On Error GoTo FormHasSections_Err

b = frm.Section(acHeader).Visible

FormHasSections = True

Exit Function

FormHasSections_Err:

FormHasSections = False 'Error 2462

Err.Clear

End Function