Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Параметры...

Тема: Параметры запуска

15.06.2007 21:04:53

Alex2

25 сообщения

Тема: Параметры запуска

Доброго времени суток!

Обход параметров запуска осуществляется удержанием Shift. Как этому воспрепятствовать?

P.S. Общие вопросы по базе данных
Автор: Alex от 23.12.2003 23:03:57 Источник ...

15.06.2007 21:04:53

All

4316 сообщения

RE: Параметры запуска

'Защита от Shift

Function BazyShift()
Dim dbs As Object, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
Dim TmpBool As Boolean
On Error GoTo Change_Err
If dbs.Properties("AllowBypassKey") = True Then
If MsgBox(" Реагируем на " & Chr(13) & _
" открытый режим базы" & Chr(13) & _
" Защитить?", vbInformation + vbYesNoCancel) = _
vbYes Then
dbs.Properties("AllowBypassKey") = False
TmpBool = MsgBox("Нормальная работа в режиме" & _
" ЗАЩИТЫ начнется при следующем старте.", _
vbInformation)
End If
Else
If MsgBox(" Нет реакции на " & Chr(13) & _
" Нормальное состояние базы" & Chr(13) & _
" Хотите включить реагирование?", vbExclamation + _
vbYesNoCancel) = vbYes Then
dbs.Properties("AllowBypassKey") = True
TmpBool = MsgBox("Вы можете просматривать и " & _
" редактировать объекты базы при следующем входе" & _
" в нее. Незабудьте потом отключить реагирование на " & 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

P.S. Общие вопросы по базе данных
Автор: 790 от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Параметры...

Поиск

Список форумов

Начало | Forums