Свойство Form.SubdatasheetExpanded (Access)

Используйте свойство SubdatasheetExpanded , чтобы указать или определить сохраненное состояние всех подданных в таблице или запросе. Для чтения и записи, Boolean.

Синтаксис

expression. Таблица подданныхExpanded

выражение: переменная, представляющая объект Form.

Замечания

Значение по умолчанию — False.

Чтобы задать свойство SubdatasheetExpanded с помощью Visual Basic, сначала необходимо создать свойство с помощью метода DAO CreateProperty .

Свойства SubdatasheetExpanded и SubdatasheetHeight действуют в элементе управления подчиненной формы, когда форма находится в режиме таблицы.

Пример

В следующем примере расширение подтаблицы включается или отключается для формы "Заказы на покупку ".

Чтобы попробовать этот пример самостоятельно, откройте форму (содержащую подчиненную форму) в режиме конструктора, нажмите кнопку построителя рядом с полем свойства On Load в окне свойств формы, вставьте этот код в событие Form_Load формы (удалив ссылку на форму Заказы на покупку ), а затем откройте форму в режиме таблицы.

Dim strExpand As String 
 
With Forms("Purchase Orders") 
 
 strExpand = InputBox("Expand subdatasheets? Y/N") 
 
 Select Case strExpand 
 Case "Y" 
 .SubdatasheetExpanded = True 
 Case "N" 
 .SubdatasheetExpanded = False 
 Case Else 
 MsgBox "Can't determine subdatasheet expansion state." 
 End Select 
 
End With

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.