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

Откуда: Москва
Сообщений: 193
Сделал я меню бл* базы. Подскажите, возможно ли назначить разрешения для пользователей (или групп), т.е. чтобы некоторые поля меню были скрыты от определенных пользователей.
24 мар 06, 11:49    [2485522]     Ответить | Цитировать Сообщить модератору
 Re: Меню & пользователи  [new]
АлексейК
Member

Откуда: http://www.msdatabase.ru , Moscow
Сообщений: 7683
да, конечно.
у контролов меню есть свойство visible
в зависимости от прав пользователя логично программно назначить это свойство для нужных
24 мар 06, 11:59    [2485611]     Ответить | Цитировать Сообщить модератору
 Re: Меню & пользователи  [new]
simb_a
Member

Откуда: Москва
Сообщений: 193
АлексейК
да, конечно.
у контролов меню есть свойство visible
в зависимости от прав пользователя логично программно назначить это свойство для нужных

А как назначить это свойство для меню?
24 мар 06, 12:06    [2485662]     Ответить | Цитировать Сообщить модератору
 Re: Меню & пользователи  [new]
АлексейК
Member

Откуда: http://www.msdatabase.ru , Moscow
Сообщений: 7683
Например так:
   Application.CommandBars("partner").Controls("Администрирование").Visible = False




вся процедура делающая доступными меню после подключения к серверу выглядит так:

Private Sub DisableToolbar()
Dim btn

If Not CurrentProject.IsConnected Then
    For Each btn In CommandBars("Partner").Controls
        If btn.caption <> "Подключение к серверу" Then btn.Enabled = False
    Next btn
    Application.CommandBars("partner").Controls("Администрирование").Visible = False
Else
    
    Application.CommandBars("partner").Controls("Администрирование").Visible = ISPermitDBO()
    For Each btn In CommandBars("partner").Controls
        btn.Enabled = True
    Next btn

End If

End Sub
24 мар 06, 12:33    [2485874]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить