ник: Дядя Федор
Есть код для установки защиты от шифта.
Работал во всех базах как часы.
Но вот в новой базе стал выдавать ошибку Runtime error: '13'
Type mismatch
в строке
Set prp = CurrentDb.CreateProperty(ABK_name, dbBoolean, Not ABK)
Причем, эта строка не работает для ЛЮБЫХ попыток установить какое-либо новое свойство БД.
Set prp = CurrentDb.CreateProperty("NEWPROP", dbBoolean, True)
Та же ошибка.
Что за хрень?! Есть мысли?
Function SetShift(ABK As Boolean)
Dim ABK_name As String
Dim prp As Property
Const conPropNotFoundError = 3270
ABK_name = "AllowBypassKey"
On Error GoTo Change_Err
CurrentDb.Properties(ABK_name) = Not ABK
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = CurrentDb.CreateProperty(ABK_name, dbBoolean, Not ABK)
CurrentDb.Properties.Append prp
End If
Resume Change_Bye
End Function
|