Приложение в Access2007

[Yusya]

Евгений, здравствуйте!
Если Вам не сложно, не могли Вы ответить на пару вопросов по следующему коду:

Public Function DisableToolbars(flag As Boolean)

'ChangeProperty "StartupForm", dbText, "Клиенты"
ChangeProperty "StartupShowDBWindow", dbBoolean, flag
ChangeProperty "StartupShowStatusBar", dbBoolean, flag
ChangeProperty "AllowBuiltinToolbars", dbBoolean, flag
'ChangeProperty "AllowFullMenus", dbBoolean, flag
ChangeProperty "AllowShortcutMenus", dbBoolean, flag
ChangeProperty "AllowBreakIntoCode", dbBoolean, flag
ChangeProperty "AllowToolbarChanges", dbBoolean, flag
ChangeProperty "AllowSpecialKeys", dbBoolean, flag
ChangeProperty "AllowBypassKey", dbBoolean, flag
CommandBars.Item("Menu Bar").Enabled = flag
End Function

'Эта функция приведена в хелпе и комментировать ее не будем. Просто замена свойства базы данных.

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Свойство не найдено.
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Неизвестная ошибка.
ChangeProperty = False
Resume Change_Bye
End If
End Function

написано, что код отключает панели, но комментариев нет и мне не всё понятно. при компиляции мне выделяет строку(жирным выделено в коде) и пишет ошибку: "Compile error: User - defined type not defined" и выделяет dbs As Database. Видимо ошибка в dbs As Database, но в других кодах тип Database используется как стандартный.

[Teslenko_EA]

Проверьте подключена или нет к Вашему проекту библиотека DAO, Database её "детище", соответственно функция ChangeProperty без неё не будет работать, и я не знаю будет ли она работать с БД А2007.
Евгений.

[Yusya]

Евгений, я нашла как отключить в Access2007
Полный набор меню... - не позволит выполнение недопустимых действий
Контекстные меню... - не позволит переключаться в режим конструктора, а возможно его включить обратно в этой версии приложения?

[Teslenko_EA]

Yusya, А2007 в своей работе я не использую, но он у меня установлен на виртуальной машине, и ответить на вопрос "возможно его включить обратно..?" я наверное смогу, если Вы поделитесь "...как отключить..."
Евгений.

[Yusya]

Евгений, спасибо большое)))
Я справилась и защитила проект вчера на "отлично". А отключаются они чкрез параметры Access-текущая база данных и в самом низу галочки)

[Teslenko_EA]

Здравствуйте Yusya.
Поздравляю с защитой и с Новым Годом.
Евгений.