TopPicLogo TopPicText

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

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

Назад ToTop
L.E. 04.08.2015
Рейтинг@Mail.ru