【Access自定义函数】用代码设置字段说明,用代码修改表中字段说明属性

来源:www.accessoft.com 点击数:52348 　 | 收藏 | 复制

时　间:2014-07-04 08:55:47
作　者:红尘如烟 ID：10768 城市：成都
摘　要:【Access自定义函数】用代码设置字段说明,用代码修改表中字段说明属性
正　文:

网友静水流深(992129815) 11:01:57 问题
请问老师表设计视图中的“说明”属性，怎么用代码设置，如下图：

Accessoft--红尘如烟 11:18:54
设置某个字段“说明”属性没有现成的函数，需要用自定义函数如下:

Function SetFieldDescription(TableName As String, _
                             FieldName As String, _
                             Description As String)
    On Error GoTo ErrorHandler
    Dim dbs As DAO.Database
    Dim fld As DAO.Field

    Const errNotFoundProperty = 3270

    Set dbs = CurrentDb
    Set fld = dbs.TableDefs(TableName).Fields(FieldName)
    fld.Properties("Description") = Description

ExitHere:
    Set dbs = Nothing
    Set fld = Nothing
    Set prp = Nothing
    Exit Function

ErrorHandler:
    If Err.Number = errNotFoundProperty Then
        Set prp = fld.CreateProperty("Description", dbText, Description)
        fld.Properties.Append prp
        Resume
    Else
        MsgBox Err.Description, vbCritical, "Error"
        Resume ExitHere
    End If
End Function