MyTetra Share
Делитесь знаниями!
Проверка - Имеет ли форма секции (Заголовок | Примечание)
19.07.2018
06:51
Раздел: VBA - Access - msa.polarcom.ru - 05 Формы


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

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




Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования