| |
|
|
| | Подскажите, плиз, как можно ограничить доступ некоторым пользователям (при работе в группах) к некоторым пунктам меню (меню собственное, привязанное к форме, пункты которые хочется забанить запускают макросы) | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=722 | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=182
или
http://www.vedu.ru/programming/Abr_soft/secfaq.htm
затем
http://hiprog.com/index.php?option=com_content&task=view&id=60
и
http://hiprog.com/index.php?option=com_content&task=view&id=61
если скомбинировать должно хорошо получиться | |
| |
| |
| |
|
|
| | Мне как раз подходит пример описанный в
http://hiprog.com/index.php?option=com_content&task=view&id=61
Но вот незадача, при выполнении функция ругается в строке
Dim MyMenu As CommandBar
Насколько понял она непонимает что такое CommandBar
хотя библиотека Microsoft Office 11.0 Object Library в References подключена (Access 2003)
Думаю на CommandBarControl тоже ругаться будет.
Как победить эту проблемку???? | |
| |
| |
| |
|
|
| | у меня стоит тот-же референс но на 2000 офисе - все работает 
сама функция вынесенна в сборный модуль, где хранится всем мое барахло
вызов идет из формы к меню которй нужно обратиться
например: Call SetMenuUserSecurity(3, 0, 0, False, True, "Work_Staff") | |
| |
| |
| |
 28 Кб. |
|
| | Вот так всегда 
У всех работает, а у меня нет
У меня все также, но . . .
см. аттач
Ладно. буду дальше голову ломать, может что с самой базой, нужно на новой попробовать
И спасибо за помощь  | |
| |
| |
| |
6 Кб. |
|
| | попробуй отключитьь все референсы, сохранить, выйти,Ю зайти и подключить по новой..у меня так | |
| |
| |
| |
|
|
| | Если установлена ссылка, то такой ошибки быть не должно. Приведите снимок окна References. Может есть битые ссылки? | |
| |
| |
| |
40 Кб. |
|
| | Когда убрал у переменных их тип все заработало
теперь пытаюсь реализовать следующий код из примера
Public Function UserMenuControl()
'устанавливает пользовательский профиль меню, если он есть (или его часть)
On Error GoTo Err_UserMenuControl
Dim MySet As Recordset
Set MySet = InfoDB.OpenRecordset("Select UserRight.EmployerID,UserRight.Right,ID1,ID2,ID3 From (UserRight inner Join UserMenuItems on UserRight.IDMenuItem=UserMenuItems.IDMenuItem) Where EmployerID=" & Str$(GlUserID)) 'GlUserID - код пользователя, соответствует EmployerID из таблицы UserRight
If Not MySet.EOF Then
MySet.MoveFirst
While Not MySet.EOF
Call SetMenuUserSecurity(MySet!ID1, MySet!ID2, MySet!ID3, MySet!Right, False)
MySet.MoveNext
Wend
End If
Exit_UserMenuControl:
Exit Function
Err_UserMenuControl:
MsgBox Err.Description
Resume Exit_UserMenuControl
End Function
|
но эта зараза ругается на Set MySet = (Object required) | |
| |
| |
|
|
