Свернуть NavigationPane

Воскресенье, 11 Ноября 2018 г. 07:07 + в цитатник

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

Public Function SetNavPanel(Visible As Boolean)
  DoCmd.SelectObject acForm, , True
  If Not Visible Then DoCmd.RunCommand acCmdWindowHide
End function

или

Public Function HideIt()
    ' таблица - любая имеющаяся в базе таблица
    DoCmd.SelectObject acTable, "Таблица 1", True
    If Application.CurrentObjectName = "таблица 1" Then DoCmd.RunCommand acCmdWindowHide
End Function

или

Public Function SetNavPanel(Visible As Boolean)
  DoCmd.SelectObject acForm, , True
  If Visible Then DoCmd.RunCommand acCmdWindowHide
End function

или установить свойство и перезагрузить базу

Call funcChangeProperty("NavPane Closed", dbBoolean, True)

Интересует не возможность скрытия панели, а возможность свернуть панель, то есть аналог кнопки "Открыть/закрыть границу области переходов", при нажатии на которую панель сворачивается или исчезает. Зачем мне это нужно (может как-то по-другому можно, то чего я не дорубаюсь) Картинка с другого сайта.

: при входе пользователя №1 система сворачивает навигацию и иные панели, при входе пользователя №2 открывает панели и поднимает навигацию путем выбора какой-нить таблицы или этим путем DoCmd.SelectObject acForm, , True. Все хорошо, но при подъеме Навигационной Панели она остается раскрытой и ее надо вручную свернуть на кнопку "Открыть/закрыть границу области переходов". Хотелось бы автоматизировать данный момент. То есть получается один пользователь работает на полном интерфейсе, другой на обрезанном, когда у полного открывается панель, то она автоматически сворачивается в полоску.

Заранее спасибо за советы Картинка с другого сайта.