|
|
|||||||||||||||||||||||||||||
|
Изменение свойств таблицыКогда Вы создаете поле программным методом, некоторые его свойства, например, Description не создаются автоматически. Вам необходимо научиться изменять свойства полей базы данных, а в случае необходимости добавлять их в базу данных. На этом примере показано, как изменить значение свойства поля базы данных. В данной программе также предусмотрено, что если свойство отсутствует, то оно будет добавлено в базу данных. 'Параметры: ' fld - поле в таблице (Объект Field) ' strName - имя свойства (Description, Format ...) ' varType - тип свойства (dbText, dbLong ...) ' varValue - значение свойства ' Function funChangeProperty(fld As Field, strName As String, varTypeAs Variant, varValue As Variant) As BooleanDim prp As Variant On Error GoTo 999 'Назначаем переход по ошибке funChangeProperty = False 'Возвращаем результат при ошибке
fld.Properties(strName) = varValue 'Присваиваем значение полю
funChangeProperty = True 'Возвращаем результат Exit Function 'Выходим из программы 999: If Err = 3270 Then 'Свойство не найдено Set prp = fld.CreateProperty(strName, varType, varValue) 'Создаем свойство fld.Properties.Append prp 'Добавляем свойство Err.Clear 'Очищаем поток от ошибки Resume Next 'Возвращаемся к следующему оператору End If Err.Clear 'Очищаем от незнакомой ошибки End FunctionСсылки по теме
|
|