Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как раздать меню пользователям при включенной защите от Shift. / 14 сообщений из 14, страница 1 из 1
23.10.2015, 12:07
    #39084509
LightN
LightN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
Задача такая:
у пользователей включена защита от Shift, + отключен доступ к дополнительным меню, отключено окно БД (по F11), отключены стандартные горячие клавиши и т.д.
Вопрос:
каким образом создать в BD.MDB некое общее (корпоративное) меню - "CompMenu", чтобы потом раздать его пользователям прибавив его уже к BD.MDE . В этом меню будут такие кнопки: "Экспорт в Word",""Экспорт в Excel" и т.д. т.е. те, которые пользователям нужно и можно видеть и пользоваться.
з.ы. Версии BD.MDE меняются достаточно часто ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2015, 12:12
    #39084518
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
Если вы разработчик, то отключите защиту - создайте меню - включите защиту.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2015, 12:23
    #39084541
LightN
LightN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
Анатолий ( Киев ), добрый день
У меня на компьютере отключена защита, меню уже есть (уже создано), но оно не тянется всем когда делаю MDE и раздаю клиентам. Похоже его что-то блокирует ... Вопрос - что?

...

Защина включается автоматом по условию если выполняемый модуль = MDE и <> MDB.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2015, 12:27
    #39084553
LightN
LightN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
Да, м.б. Вы имеете ввиду пробежаться по 100 пользователям и проделать 100 операций = отключил, создал, включил ... Это достаточно трудоемко. Есть способ это сделать автоматом для всех?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2015, 12:35
    #39084574
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
LightNЗащина включается автоматом по условию если выполняемый модуль = MDE и <> MDB.Проверка по расширению файла ненадежна, ведь расширение могут и подменить.
Есть свойство CurrentDb.Properties("MDE"), для mde оно = "T".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2015, 12:40
    #39084582
Mina Anna Mazzini
Mina Anna Mazzini
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
__MichelleLightNЗащина включается автоматом по условию если выполняемый модуль = MDE и <> MDB.Проверка по расширению файла ненадежна, ведь расширение могут и подменить.
Есть свойство CurrentDb.Properties("MDE"), для mde оно = "T".
ma Michelle...
Снкс. Не знал. Возьму на заметку. Век живи - век учись.
.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2015, 13:02
    #39084640
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
LightNУ меня на компьютере отключена защита, меню уже есть (уже создано), но оно не тянется всем когда делаю MDE и раздаю клиентам. Давайте уточним, у вас именно меню или панель инструментов?
Если меню, то как вы заменяете им стандартное меню?
Правильная метода - в стартовой процедуре выполнить Application.MenuBar = "Ваше меню"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2015, 15:46
    #39084985
LightN
LightN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
__MichelleLightNЗащина включается автоматом по условию если выполняемый модуль = MDE и <> MDB.Проверка по расширению файла ненадежна, ведь расширение могут и подменить.
Есть свойство CurrentDb.Properties("MDE"), для mde оно = "T".
Нет такого свойства в 3-м и 10-м Access. Его потребуется создать.
Я использую:
if CurrentProject.ProjectType = 2 then ... а 2- это MDB.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2015, 15:52
    #39084996
LightN
LightN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
Анатолий ( Киев )LightNУ меня на компьютере отключена защита, меню уже есть (уже создано), но оно не тянется всем когда делаю MDE и раздаю клиентам. Давайте уточним, у вас именно меню или панель инструментов?
Если меню, то как вы заменяете им стандартное меню?
Правильная метода - в стартовой процедуре выполнить Application.MenuBar = "Ваше меню"
Хорошо, давайте упростим вопрос. Как в описанной ситуации проше всего дать пользователю строку меню или кнопку вывода в XLS (стандартная кнопка самого Access). Самый простой способ = Создание своего Меню + XLS кнопка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2015, 16:10
    #39085030
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
LightN__Michelleпропущено...
Проверка по расширению файла ненадежна, ведь расширение могут и подменить.
Есть свойство CurrentDb.Properties("MDE"), для mde оно = "T".
Нет такого свойства в 3-м и 10-м Access. Его потребуется создать.
Я использую:
if CurrentProject.ProjectType = 2 then ... а 2- это MDB.По-моему, CurrentProject.ProjectType дает различие между adp и mdb.
У меня CurrentDb.Properties("MDE") работает и в 2003-м, и в 2007-м, в других не проверяла.
Делаю так:
Код: vbnet
1.
2.
3.
4.
On Error resume next
S = CurrentDb.Properties("MDE")
On Error GoTo 0
If S = "T" .....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2015, 16:26
    #39085071
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
Добавлю:
On Error Resume Next потому и применяется, что у mde свойство есть, а у mdb - нет,
независимо от версии.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2015, 16:33
    #39085093
LightN
LightN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
__Michelle,

Проверил, действительно в MDE свойство CurrentDb.Properties("MDE") появилось !!! Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2015, 18:10
    #39085247
LightN
LightN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
LightNАнатолий ( Киев )пропущено...
Давайте уточним, у вас именно меню или панель инструментов?
Если меню, то как вы заменяете им стандартное меню?
Правильная метода - в стартовой процедуре выполнить Application.MenuBar = "Ваше меню"
Хорошо, давайте упростим вопрос. Как в описанной ситуации проше всего дать пользователю строку меню или кнопку вывода в XLS (стандартная кнопка самого Access). Самый простой способ = Создание своего Меню + XLS кнопка?
Есть ещё варианты?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2015, 18:21
    #39085251
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как раздать меню пользователям при включенной защите от Shift.
.CommandBars("CompMenu").Visible = True
не подходит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как раздать меню пользователям при включенной защите от Shift. / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 166ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1614387]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 48ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 2ms
others: 12ms
total:  166ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]