Вызывать, например, так:
SetObjectProperty CurrentDB.TableDefs("MyTable").Fields("MyFields"),"DisplayControl", dbInteger, acCheckBox
Public Function SetObjectProperty(Obj As Object, strPropertyName As String, _
intPropertyType As Integer, varPropertyValue As Variant) As Boolean
On Error GoTo Error_SetObjectProperty
Dim prp As DAO.Property
Obj.Properties(strPropertyName) = varPropertyValue
SetObjectProperty = True
Exit_SetObjectProperty:
On Error Resume Next
Set prp = Nothing
Exit Function
Error_SetObjectProperty:
Select Case Err.Number
Case 3270 'Свойство не найдено
Set prp = Obj.CreateProperty(strPropertyName, intPropertyType, varPropertyValue)
Obj.Properties.Append prp
Obj.Properties.Refresh
Resume Next
Case Else
MsgBox "Error #" & Err.Number & " in SetObjectProperty: " & vbCrLf & Err.Description
SetObjectProperty = False
End Select
Resume Exit_SetObjectProperty
End Function
---
Serge Gavrilov
http://accesstools.narod.ru
|