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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

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

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

15.06.2007 19:52:21

4 сообщения

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

В параметрах запуска убрал все галки, кроме «Специальные клавиши Access». Могу ли я теперь изменить параметры запуска? Как?

P.S.
Автор: Евгений от 04.09.2001 9:01:48 Источник ...

15.06.2007 19:52:21

All

4316 сообщения

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

Пример la_prot.mdb (N3)
Private Sub setProtShift(myFlag As Boolean)
dbChangeProperty "StartupForm", DB_TEXT, "Автостарт" 'Первая форма
dbChangeProperty "StartupShowDBWindow", DB_BOOLEAN, myFlag 'Главное окно Базы данных
dbChangeProperty "StartupShowStatusBar", DB_BOOLEAN, myFlag 'Нижняя полоска экрана
dbChangeProperty "AllowBuiltinToolbars", DB_BOOLEAN, myFlag 'Панели инструментов
dbChangeProperty "AllowFullMenus", DB_BOOLEAN, myFlag 'Меню таблиц, форм и т.п.
dbChangeProperty "AllowBreakIntoCode", DB_BOOLEAN, myFlag 'Ошибки в модуле
dbChangeProperty "AllowSpecialKeys", DB_BOOLEAN, myFlag 'Специальные ключи (CTRL+BREAK, ...)
dbChangeProperty "AllowBypassKey", DB_BOOLEAN, myFlag 'Ключ Shift
End Sub

'==============================================================
'Название
' Пример 3. Изменить/создать свойство базы данных (см. лекции 2е-2f)
'Параметры:
' strName - имя свойства (Description, Format ...)
' varType - тип свойства (dbText, dbLong ...)
' varValue - значение свойства
'
Function dbChangeProperty(strName As String, varType As Variant, varValue As Variant) As Boolean
Dim prp As Variant, dbs As Database

On Error GoTo 999 'Назначаем переход по ошибке
dbChangeProperty = False 'Возвращаем результат при ошибке

Set dbs = CurrentDb 'Выбираем базу
dbs.Properties(strName) = varValue 'Присваиваем значение

dbChangeProperty = True 'Возвращаем результат
Exit Function 'Выходим из программы
999:
If Err = 3270 Then 'Свойство не найдено
Set prp = dbs.CreateProperty(strName, varType, varValue) 'Создаем свойство
dbs.Properties.Append prp 'Добавляем свойство
Err.Clear 'Очищаем поток от ошибки
Resume Next 'Возвращаемся к следующему оператору
End If
Err.Clear 'Очищаем от незнакомой ошибки
End Function

P.S.
Автор: Виктор Конюков от 0:00:00 Источник ...

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

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

Microsoft Access. Файлы mdb и accdb

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

Поиск

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

Начало | Forums