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

...

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

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


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