|
Для тех, кто совсем на бронепоезде, объясните, пожалуйста.
Сделал форму frmProverka, в модуле которой происходит обращение к стандартному модулю
Public Function acbAmMemberOfGroup(strGroup As String), где проверяется группа, к которой принадлежит открывший БД:
Private Sub Form_Open(Cancel As Integer)
If acbAmMemberOfGroup("Admins") Then
MsgBox "Администратор", vbOKOnly
ElseIf acbAmMemberOfGroup("Chemicals") Then
MsgBox "Химик", vbOKOnly
Call SetStartupProperties
ElseIf acbAmMemberOfGroup("Users") Then
MsgBox "Пользователь", vbOKOnly
Call SetStartupProperties
Else
MsgBox "Не знаю таких", vbOKOnly
Call SetStartupProperties
End If
End Sub
Сделал другой стандартный модуль, устанавливающий параметры запуска
(в хелпе нашел):
Sub SetStartupProperties( )
ChangeProperty "StartupForm", dbText, "frmProverka"
ChangeProperty "StartupShowDBWindow", dbBoolean, False
ChangeProperty "StartupShowStatusBar", dbBoolean, False
ChangeProperty "AllowBuiltinToolbars", dbBoolean, False
ChangeProperty "AllowFullMenus", dbBoolean, True
ChangeProperty "AllowBreakIntoCode", dbBoolean, False
ChangeProperty "AllowSpecialKeys", dbBoolean, True
ChangeProperty "AllowBypassKey", dbBoolean, True
End Sub
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
Захожу в базу как член группы "Admins", запускаю форму. Начинаю отладку кода в стандартном модуле. На строках Sub'а
ChangeProperty "AllowBreakIntoCode", dbBoolean, False
ChangeProperty "AllowBypassKey", dbBoolean, True
вылетает ошибка '13' Type mismatch. Если эти строки закомментировать, то все нормально. Почему ошибка и почему именно на этих строках?
Установил frmProverka как стартовую в диалоговом окне "Параметры запуска". Захожу как админ, MsgBox появляется, а ничего, кроме главного меню, нет!
Во-первых, чего это от админа все прячется? Во-вторых, ну тогда бы уж все пряталось, а то ведь главное меню осталось!
Захожу как "химик" - таже песня.
Подскажите, что делать?
|
