Shift и открытие Access

Ort84
Дата: 28.09.2005 15:46:39
Можно ли отключить возможность пользоваться Shift при открытии базы Access?
Всем спасибо.
ANTIVIR
Дата: 28.09.2005 15:49:54
Это же так сложно, да?

тынц

Тынц
Не перетруждайтесь только)))
Ort84
Дата: 28.09.2005 19:01:08
Сарказм оценен.
Я работаю на ADO , можно ли использовать DAO.Database путем подключения каких-то библиотек?
ANTIVIR
Дата: 28.09.2005 22:07:10
Ort84
Сарказм оценен.
Я работаю на ADO , можно ли использовать DAO.Database путем подключения каких-то библиотек?

Моно конечно, в референсах подключаете DAO и вперед)
Serge Gavrilov
Дата: 28.09.2005 23:04:35
Ort84
Сарказм оценен.
Я работаю на ADO , можно ли использовать DAO.Database путем подключения каких-то библиотек?

Ссылку не обязательно устанавливать, используйте
CurrentDb.Properties("AllowByPassKey")=False

Access сам установит скрытую ссылку на DAO
Dr. Den
Дата: 29.09.2005 06:26:25
По ошибке установил защиту от "Shift" на рабочую версию ADP.
Очень хотелось бы увидеть способ снять эту защиту, так как последняя версия без защиты - вчерашняя, а было много переделок.
Хотел воспользоваться
http://accesstools.narod.ru/files/SG_Prp2K.zip
но прога работает только с .md*
а нужно с ADP.
Поиск ответа не дал: все советы касались установки/снятия в CurrentProject или в mdb/mde, а надо со стороны и в ADP.
nibbles
Дата: 29.09.2005 07:16:45
вставляешь в другой проект (VB|VBA - не важно):

' strPath - путь к adp-файлу

Dim accApplic  As Access.Application
    Set accApplic = New Access.Application
    With accApplic
        .OpenAccessProject strPath, False
        ' Создать свойcтсво, если его нет - а если есть - топать далье
on error resume next
        .CurrentProject.Properties.Add "AllowBypassKey", false
on error goto 0
        ' Переключить свойство на противоположное
        .CurrentProject.Properties("AllowBypassKey") =  not .CurrentProject.Properties("AllowBypassKey")
        .Quit acQuitSaveNone
    End With
    Set accApplic = Nothing
Dr. Den
Дата: 29.09.2005 07:18:37
Вспомнил про импорт :)

Но вопрос остается в силе.
Dr. Den
Дата: 29.09.2005 07:26:54
Вспомнил про экспорт :)
и экспортнул в рабочую версию стартовую форму с
CurrentProject.Properties.Add "AllowBypassKey", True

И все же хотелось бы узнать как такие задачи решать при помощи GetObject или чего-нибудь в этом роде.
Dr. Den
Дата: 29.09.2005 07:28:53
И только сейчас увидел сообщение
nibbles