|
|
|||||||||||||||||||||||||||||
|
Свойство базы данныхЗдесь показан пример, как изменить свойство базы данных, используя встроенные функции Access.Дополнение. Созданные свойства в отличие от переменных хранятся в базе данных постоянно, и Вам достаточно назначить их один раз, чтобы потом они уже использовались автоматически при открытии базы данных. Например, если Вы погасили в каком-то сеансе с базой данных ее основное окно (StartupShowDBWindow = False), то в следующих сеансах работы оно не будет отображаться на экране. 'Название ' Изменить/создать свойство базы данных 'Параметры: ' strName - имя свойства (Description, Format ...) ' varType - тип свойства (dbText, dbLong ...) ' varValue - значение свойства ' Function dbChangeProperty(strName As String, varType As Variant, varValue As Variant) As BooleanDim prp As Variant, dbs As Database
On Error GoTo 999 'Назначаем переход по ошибке dbChangeProperty = False 'Возвращаем результат при ошибке
Set dbs = appAccess.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Ссылки по теме
|
|