Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Свернуть NavigationPane  [new]
Ганов Александр
Member

Откуда: Петропавловск-Камчатский
Сообщений: 173
всем добрый день.
вопрос по сути темы. Сразу скажу, что форумы прочитал, с конструкциями следующих типов ознакомился.
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. Все хорошо, но при подъеме Навигационной Панели она остается раскрытой и ее надо вручную свернуть на кнопку "Открыть/закрыть границу области переходов". Хотелось бы автоматизировать данный момент. То есть получается один пользователь работает на полном интерфейсе, другой на обрезанном, когда у полного открывается панель, то она автоматически сворачивается в полоску.

Заранее спасибо за советы Картинка с другого сайта.
11 ноя 18, 07:07    [21730812]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить