Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 24.12.2010, 06:09   #1
CrouchSer
 
Регистрация: 24.12.2010
Сообщений: 4
Репутация: 10
По умолчанию Скрыть Меню "Файл"

Ребят подскажите как с этим бороться. Надо скрыть меню "ФАЙЛ"
чтобы создать вкладку и убрать всё лишнее создаю таблицу системную и вношу туда xml код. скрыть подпункты этого меню получается посредством :

<commands >
<!-- Скрываем в меню Файл строчки: Быстрая печать,
Печать,Предварительный просмотр,
Параметры и Выход -->
<command enabled="false" idMso="FilePrintQuick"/>
<command enabled="false" idMso="PrintDialogAccess"/>
<command enabled="false" idMso="FilePrintPreview"/>
<command enabled="false" idMso="ApplicationOptionsDialog"/>
<command enabled="false" idMso="FileExit"/>
</commands >
а как скрыть само это меню не знаю ну или хотя бы сделать его не активным.
Изображения
  
CrouchSer вне форума   Ответить с цитированием
Старый 24.12.2010, 06:11   #2
CrouchSer
 
Регистрация: 24.12.2010
Сообщений: 4
Репутация: 10
По умолчанию

да и самое главное: Microsoft Access 2010 ^)
CrouchSer вне форума   Ответить с цитированием
Старый 24.12.2010, 09:39   #3
Swatch
Форумчанин
 
Регистрация: 05.07.2009
Сообщений: 209
Репутация: 10

icq: 471920300
По умолчанию

Не знаю как это сработает в 2010 но в 2003 аксессе я убирала стандартное меню так:
Public Function СкрытьСтандартноеМеню()
Dim myMenuBar, mybar As CommandBar

Set myMenuBar = CommandBars.ActiveMenuBar

myMenuBar.Controls.Item("Файл").Vis ible = False
myMenuBar.Controls.Item("Вид").Visi ble = False
myMenuBar.Controls.Item("Правка").V isible = False
myMenuBar.Controls.Item("Вставка"). Visible = False
myMenuBar.Controls.Item("Окно").Vis ible = False
myMenuBar.Controls.Item("Формат").V isible = False
myMenuBar.Controls.Item("Сервис").V isible = False
'myMenuBar.Controls.Item("?").Visib le = False
DoCmd.ShowToolbar "Режим формы", acToolbarNo 'убрать панель инструментов
End Function
Может Вам это поможет.....
Swatch вне форума   Ответить с цитированием
Старый 25.12.2010, 05:48   #4
CrouchSer
 
Регистрация: 24.12.2010
Сообщений: 4
Репутация: 10
По умолчанию

В 2010 аксе такое к сожалению не работает
CrouchSer вне форума   Ответить с цитированием
Старый 26.12.2010, 15:01   #5
CrouchSer
 
Регистрация: 24.12.2010
Сообщений: 4
Репутация: 10
По умолчанию

тому кто хоть чем нибудь поможет обещаю вознаграждение
CrouchSer вне форума   Ответить с цитированием
Старый 06.09.2019, 17:27   #6
sevak
Новичок
 
Регистрация: 19.01.2015
Сообщений: 2
Репутация: 10
По умолчанию

-------

Последний раз редактировалось sevak; 07.09.2019 в 02:13. Причина: ошибка
sevak вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как обойти "преобразование типа из "string" в "float" невозможно" lexluter1988 Помощь студентам 1 07.08.2010 12:23
Нужно поле "Загрузить файл" в "новости сайта" planetary Помощь студентам 1 24.06.2010 12:26
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04
Excel файл открывается не "до конца" (странички "не показываются" только серое поле) Dorvir Microsoft Office Excel 2 28.03.2008 11:03


08:19.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.