Function ap_DisableShift()
'Эта функция запрещает использование клавиши SHIFT при запуске. В результате
'всегда выполняется макрос Autoexec и выполняются параметры запуска 

On Error GoTo errDisableShift

Dim db As DAO.Database
Dim prop As Property
Const conPropNotFound = 3270

Set db = CurrentDb()

'В следующей строке запрещается использование клавиши SHIFT при запуске
db.Properties("AllowByPassKey") = False

'Выполнение функции успешно завершается.
Exit Function

errDisableShift:
'В первой части этого обработчика ошибок создается свойство "AllowByPassKey",
'если его не существует.
If Err = conPropNotFound Then
'вот дальше, на этой строчке он выдает ошибку
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox "Не удалось успешно завершить функцию 'ap_DisableShift'."
Exit Function
End If

End Function