ник: Дядя Федор
Поля прекрасно добавляются программно.
Но вот описание добавить не удается.
'Пример от С.Гаврилова. Установка св-ва поля.
SetAccessProperty CurrentDb.TableDefs("TblPrice").Fields("Name"), "Description", dbText, "*"
Function SetAccessProperty(obj As Object, strName As String, _
intType As Integer, varSetting As Variant) As Boolean
Dim prp As Property
Const conPropNotFound As Integer = 3270
On Error GoTo ErrorSetAccessProperty
' Explicitly refer to Properties collection.
obj.Properties(strName) = varSetting
obj.Properties.Refresh
SetAccessProperty = True
ExitSetAccessProperty:
Exit Function
ErrorSetAccessProperty:
If Err = conPropNotFound Then
' Create property, denote type, and set initial value.
Set prp = obj.CreateProperty(strName, intType, varSetting)
' Append Property object to Properties collection.
obj.Properties.Append prp
obj.Properties.Refresh
SetAccessProperty = True
Resume ExitSetAccessProperty
Else
MsgBox Err & ": " & vbCrLf & Err.Description
SetAccessProperty = False
Resume ExitSetAccessProperty
End If
End Function
|
Обработка ошибки 3270 - это описание ("Description")
Однако попытка добавить именно это свойство вызывает ошибку на строке
Set prp = obj.CreateProperty(strName, intType, varSetting)
"Объект не поддерживает это св-во или метод"
что св-во "Description" нельзя добавить программно?