Программно отключить контекстное меню

Pelena · Регистрация: 25.10.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте.
В параметрах текущей базы данных есть флажки: Строка состояния, Полный набор меню Access, Контекстное меню. Подскажите, пожалуйста, как программно снять/поставить эти флажки? (Access 2010, если это важно)
Спасибо

@sana555 · 10.08.2016, 19:46

Да все нормально, порой действительно так за туплю, что не могу увидеть очевидное...

Спасибо за проделанную работу. А вы обработчик ошибок используйте на каждый код? Ладно хоть в .accde ошибки показываются, и на том спасибо разработчикам.

@Панург · 10.08.2016, 20:27

sana555, да, обработчики ошибок использую везде. Но не везде они сложные, где-то игнорируются ошибки, где-то довольно сложные оброботчики с логированием ошибок в файл. Всё очень индивидуально.

Добавлено через 2 минуты
Обычно пользователь внятно не может объяснит где произошла ошибка, а так смотришь файл, там всё, ну или почти всё, записано.

@sana555 · 11.08.2016, 00:45

Сообщение от Панург

где-то довольно сложные оброботчики с логированием ошибок в файл.

Можете скинуть пример такого обработчика, если будет время?

@Панург · 11.08.2016, 03:45

Сообщение от sana555

Можете скинуть пример такого обработчика, если будет время?

Я же говорю - всё индивидуально. В какой-то процедуре и "On Error Resume Next" хватает, в другой нормальный обработчик ошибок с ветвлениями, сбросом ошибок или логированием незапланированных. Почитай книгу по Access которую я советую по ссылке (https://www.cyberforum.ru/post9430948.html). Там есть целый параграф посвящённый обработке ошибок.

@sana555 · 11.08.2016, 14:58

Понятно, спасибо за ссылку. Может быть почитаю, если будет время. Мы же больше любим готовые варианты, например этот или разные вариации:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
On Error GoTo errend
errno:
    Exit Sub
errend:
    Select Case Err.Number
        Case 2110 'Нельзя перейти к контролу, он уже спрятан или недоступен
            Resume Next 'Перейти к следующей команде за ошибочной
        Case Else
            MsgBox "Error: " & Err.Number & " " & Err.Description 'Выдать сообщение об ошибке
    End Select
    Resume errno

@texnik-san · 13.08.2016, 09:23

Сообщение от sana555

как нарочно сымитировать ошибку

Raiseerror

@commun · 13.08.2016, 22:32

Панург, я не понял, те можно выполнить операции, (и как?) и после этого иметь доступный код в формате .accde?

@Панург · 14.08.2016, 06:31

Сообщение от commun

Панург, я не понял, те можно выполнить операции, (и как?) и после этого иметь доступный код в формате .accde?

С чего бы такие выводы?

Сообщение от Панург

(*.accde ?) в случае возникновении необработанной ошибки времени выполнения выводится окно сообщения об ошибке, но естественно без предложения отладить код.

@commun · 14.08.2016, 18:59

Но так и задумано. База распостраняется в формате .accde. Один из основных метод защиты-формат защиты кода.

@VinniPuh · 14.08.2016, 19:45

По чему то, и даже без особых причин,. осчущается какая та негативная активность.
Как экстрасенсьсьсь 37 лейвела

. торжественно заявляю.
- Изыдьте в минус злые демоны.

@SmitW · 27.11.2025, 12:10

Добрый день, уважаемые форумчане!
В продолжение темы, подскажите, можно ли в контекстном меню табличной формы отключить команду "Отобразить поля"?

@Eugene-LS · 27.11.2025, 23:32

Сообщение от SmitW

можно ли в контекстном меню табличной формы отключить команду "Отобразить поля"?

Visual Basic
1
2
3
4
5
    'Form Datasheet Column   = Индекс: 8
    ' и там "&Unhide Fields" = Индекс: 10
    Application.CommandBars(8).Controls(10).Enabled = False
    ' или так (по Name и Caption):
    Application.CommandBars("Form Datasheet Column").Controls("&Unhide Fields").Enabled = False

Хотя, запросто индексы могут у вас отличатся, разобрать менюшки можно так

Процедура PrintAllMenus()

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub PrintAllMenus()
'Пишем (все) меню в Immediate Window ([Ctrl]+[G] в VBE)
'--------------------------------------------------------------------------
Dim ObjCommandBar As Object
Dim ObjBarButton As Object 'Office.CommandBarButton
    
    For Each ObjCommandBar In Application.CommandBars
        ' Только для меню относящихся к табличным формам ...
        If InStr(1, ObjCommandBar.Name, "Form Datasheet") > 0 Then
            Debug.Print ObjCommandBar.Name & " - Индекс: " & ObjCommandBar.Index
            ' Список элементов меню на 0-вом уровне.
            For Each ObjBarButton In ObjCommandBar.Controls
                Debug.Print "  > [" & ObjBarButton.Caption & "] - Индекс: " & ObjBarButton.Index
            Next
        End If
    Next
    
    Set ObjBarButton = Nothing
    Set ObjCommandBar = Nothing
End Sub

И имейте ввиду - пункт меню отключается навсегда для текущей БД, пока не включите обратно.

Новые блоги и статьи Все статьи Все блоги /
Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .
Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .	Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))	Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул anaschu 23.05.2026 Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .

Pelena 2644 / 1343 / 256 Регистрация: 25.10.2010 Сообщений: 2,196

	Программно отключить контекстное меню 14.01.2014, 21:02. Показов 12625. Ответов 31 Метки нет (Все метки) Здравствуйте. В параметрах текущей базы данных есть флажки: Строка состояния, Полный набор меню Access, Контекстное меню. Подскажите, пожалуйста, как программно снять/поставить эти флажки? (Access 2010, если это важно) Спасибо 0

@sana555 431 / 39 / 1 Регистрация: 02.03.2016 Сообщений: 453
	10.08.2016, 19:46
	Да все нормально, порой действительно так за туплю, что не могу увидеть очевидное... Спасибо за проделанную работу. А вы обработчик ошибок используйте на каждый код? Ладно хоть в .accde ошибки показываются, и на том спасибо разработчикам. 0

@Панург Мы один, давай на "ты" 3858 / 1400 / 348 Регистрация: 16.06.2016 Сообщений: 3,300
	10.08.2016, 20:27
	sana555, да, обработчики ошибок использую везде. Но не везде они сложные, где-то игнорируются ошибки, где-то довольно сложные оброботчики с логированием ошибок в файл. Всё очень индивидуально. Добавлено через 2 минуты Обычно пользователь внятно не может объяснит где произошла ошибка, а так смотришь файл, там всё, ну или почти всё, записано. 1

@commun 459 / 246 / 15 Регистрация: 29.10.2014 Сообщений: 1,084
	13.08.2016, 22:32
	Панург, я не понял, те можно выполнить операции, (и как?) и после этого иметь доступный код в формате .accde? 0

@commun 459 / 246 / 15 Регистрация: 29.10.2014 Сообщений: 1,084
	14.08.2016, 18:59
	Но так и задумано. База распостраняется в формате .accde. Один из основных метод защиты-формат защиты кода. 0

@VinniPuh 9147 / 6171 / 594 Регистрация: 27.03.2013 Сообщений: 20,046
	14.08.2016, 19:45
	По чему то, и даже без особых причин,. осчущается какая та негативная активность. Как экстрасенсьсьсь 37 лейвела . торжественно заявляю. - Изыдьте в минус злые демоны. 1

@SmitW 2 / 2 / 0 Регистрация: 04.07.2019 Сообщений: 60
	27.11.2025, 12:10
	Добрый день, уважаемые форумчане! В продолжение темы, подскажите, можно ли в контекстном меню табличной формы отключить команду "Отобразить поля"? 0