d. Изменение свойств таблицы

 

     Когда Вы создаете поле программным методом, некоторые его свойства, например, Description не создаются автоматически. Вам необходимо научиться изменять свойства полей базы данных, а в случае необходимости добавлять их в базу данных.

      На этом примере показано, как изменить значение свойства поля базы данных. В данной программе также предусмотрено, что если свойство отсутствует, то оно будет добавлено в базу данных.

'Параметры:

'   fld - поле в таблице (Объект Field)

'   strName - имя свойства (Description, Format ...)

'   varType - тип свойства (dbText, dbLong ...)

'   varValue - значение свойства

'

Function funChangeProperty(fld As Field, strName As String, varType

                As Variant, varValue As Variant) As Boolean

Dim 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