Необходимо,чтобы при загрузке формы на экране появлялась только сама форма БЕЗ панелей которые могут менять структуру любых объектов БД.
DoCmd.ShowToolbar ("Menu Bar"),acToolbarNo
DoCmd.ShowToolbar ("Database"), acToolbarNo
DoCmd.ShowToolbar ("Formatting(Form/Report)"), acToolbarNo
DoCmd.ShowToolbar ("Form View"), acToolbarNo
Почему-то не работают...🤔🤔🤔

Вообще красотища! 👍ROIdraftyНеобходимо,чтобы при загрузке формы на экране появлялась только сама форма БЕЗ панелей которые могут менять структуру любых объектов БД.
DoCmd.ShowToolbar ("Menu Bar"),acToolbarNo
DoCmd.ShowToolbar ("Database"), acToolbarNo
DoCmd.ShowToolbar ("Formatting(Form/Report)"), acToolbarNo
DoCmd.ShowToolbar ("Form View"), acToolbarNo
Почему-то не работают...🤔🤔🤔
Поменять расширение .accdb на .accdr

ROI,
Тогда отсюда вытекает такой вопрос-как тогда сделать так,чтобы пользователь не смог переименовать ACCDR в ACCDB ?

ФАЙЛ-СВЕДЕНИЯ-ЗАЩИТА ДОКУМЕНТА-ЗАШИФРОВАТЬ С ИСПОЛЬЗОВАНИЕМ ПАРОЛЯ? 🤔 draftyROI,
Тогда отсюда вытекает такой вопрос-как тогда сделать так,чтобы пользователь не смог переименовать ACCDR в ACCDB ?

Тогда опять возникает все тот-же вопрос-как убрать панели которые позволяют изменить структуру объектов базы и панель навигации,необходимо чтобы была только одна форма ввода данных? ROIdraftyROI,
Тогда отсюда вытекает такой вопрос-как тогда сделать так,чтобы пользователь не смог переименовать ACCDR в ACCDB ?
Скомпилировать в .accde

Я пользовался хэлпом включая мозг,но не могу найти,где есть вариант который вообще не оставляет пользователю никакой лазейки... В 2003аксе я использовал DoCmd.Showtoolbar а потом по введенному паролю через inputbox у меня снова появлялись убранные панели и всё,а в 2010аксе DoCmd.Showtoolbar у меня не работает, поэтому и непонятно как можно реализовать альтернативный вариантROIdrafty,

А вообще пора включить мозг и пользоваться поиском
https://www.sql.ru/forum/afsearch.aspx?s=????????? ?????? ????&submit=?????&bid=4
А то, я да же знаю следующий вопрос (защита от шифта?)

alecko,
Спасибо,в понедел протестирую...✋

В данном случае проблема не в "секретности", а возникает уже "спортивный" интерес, неужели разработчики Майкрософт создав такое довольно-таки мощное средство как аксесс не продумали такую мелочь,как защиту базы от преднамеренно-"злокозненых" действий пользователей sdkudraftyЯ пользовался хэлпом включая мозг,но не могу найти,где есть вариант который вообще не оставляет пользователю никакой лазейки...Наверное на ACCESS что-нибудь содержащее страшную тайну-парольной защиты мало. Защита нужна покрепче-вдруг ЦРУ заинтересуется
А вообще,считаю,что нужна "защита"(решения в коде) от всяческих неверных действий наших родных юзеров

sdku,
под понятием "мелочь" подразумевалась простота в плане реализации оговариваемой"опции"(т.е. полная "изоляция" пользователя от возможности изменять структуру объектов БД).

Ну если вы сможете объяснить мне почему в версии МС Акссесс 2003 можно было убрать панели и объекты посредством кода VBA,а в версии МС Акссесс 2010 такое невозможно,тогда возможно я отвечу на ваш вопрос именно с того "ракурса",который обеспечит вас вполне исчерпывающей информацией в части касающейся сути вашего вопросаDarkMandraftyтакую мелочь,как защиту базы от преднамеренно-"злокозненых" действий пользователей
А можете обьяснить поподробнее, что Вы подразумеваете под этими кознями ?

Мой юный друг!По семантики вашего первого вопроса я уже понял,что вы либо не вникли в суть проблемы (прочли невнимательно),либо находитесь на какой-то своЁй волне... поэтому я и не счёл нужным развивать с вами дальнейшую полемику, т.к. ничего дельного из этой "болтовни" я бы не почерпнул, поэтому и мой ответ вам был соответствующим.
Ну а что касается вашего выражения:"Да и ссылки вам давали"- в нашей стране тоже ДАЮТ пенсии,однако жить на них почему-то невозможно...
DarkMandraftyНу если вы сможете объяснить мне почему в версии МС Акссесс 2003 можно было убрать панели и объекты посредством кода VBA,а в версии МС Акссесс 2010 такое невозможно,
Т.е если панели не убираются , то это и есть козни продвинутых юзеров?
P.S Меня интересует чем ини Вам мешают? А по поводу убрать было множество тем , поищите по форуму . Да и ссылки Вам давали.

Сейчас протестировал этот код-работает так,как и требовалось по замыслу,так что ещё раз спасибо...
alecko

Вашему чувству юмора можно позавидовать...😂
Я думаю что SHIFT срабатывает только в случае,когда убираем панель навигации с помощью меню файл-параметры,а вот если сделать как-то так(т.е. убрать посредством vba):
Private Sub form1_load()
Dim vrs As Double: vrs = Val(Application.Version)
If vrs >= 14 Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo 'убираем верхнюю часть панели инструментов
End If
setnavpanel False 'убираем панель навигации
Me.ShortcutMenu = False 'отключение контекстного меню
End sub
Private Sub form1_Unload()
Dim vrs As Double: vrs = Val(Application.Version)
If vrs >= 14 Then
DoCmd.ShowToolbar "Ribbon", acToolbarYes
End If
setnavpanel True
Me.ShortcutMenu = True
End sub
Public Function setnavpanel(visible As Boolean)
DoCmd.SelectObject acForm, , True
If Not visible Then
DoCmd.RunCommand acCmdWindowHide
End If
End Function
Тогда шрифт не должен сработать...🤔
ROIdraftyСейчас протестировал этот код-работает так,как и требовалось по замыслу,так что ещё раз спасибо...
пропущено...

А с "Шифтом" как , быть?