您正在 access911.net -> 静态资料库

作者：cg1 摘自：access911.net 录入：cg1 时间：2003-6-15 浏览人次：2319

简述：提供了如何用 ADO / DAO 代码来修改表的 Caption / Description 属性

注意！无法通过 JET SQL 来设置或者修改上述属性，JET SQL 不支持此功能，你可以联系微软开发小组要他们在下一个版本中增加此功能。

Function AppendCaption()
    '引用DAO

    Dim Tbf As DAO.TableDef
    Dim fld As DAO.Field
    Dim p As DAO.Property
    Dim cp As DAO.Property
    On Error Resume Next
    Dim i As Integer

    Dim TableName As String
    Dim FieldName As String
    FieldName = "First_name"
    TableName = "test"

    For Each Tbf In CurrentDb.TableDefs
        'Debug.Print Tbf.Name
        For Each fld In Tbf.Fields
        .....................
...........

如何设置表的Caption和Description属性，即“标题”和“说明”属性