ник: Sokolenko
Ситуация такая.
Access 97. Создал mde файл и с помощью кода установил защиту от Shift:
Function BazyShift()
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Dim TmpBool As Boolean
Set dbs = CurrentDb
On Error GoTo Change_Err
If dbs.Properties("AllowBypassKey") = True Then
If MsgBox(" Реагируем на <SHIFT> " & Chr(13) & " открытый режим базы" & Chr(13) & " Защитить?", vbInformation + vbYesNoCancel) = vbYes Then
dbs.Properties("AllowBypassKey") = False
TmpBool = MsgBox("Нормальная работа в режиме ЗАЩИТЫ начнется при следующем старте.", vbInformation)
End If
Else
If MsgBox(" Нет реакции на <SHIFT>" & Chr(13) & " Нормальное состояние базы" & Chr(13) & " Хотите включить?", vbExclamation + vbYesNoCancel) = vbYes Then
dbs.Properties("AllowBypassKey") = True
TmpBool = MsgBox("Вы можете просматривать и редактировать объекты базы при следующем входе в нее. Незабудьте потом отключить реагирование на <SHIFT>.", vbInformation)
End If
End If
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Свойство не найдено.
Set prp = dbs.CreateProperty("AllowBypassKey", dbBoolean, True)
dbs.Properties.Append prp
Resume Next
Else
Resume Change_Bye
End If
End Function
Как теперь обратно сделать так чтобы заходить с Shift, мне нужны таблицы.