office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access获取表中字段的标题属性

2018-01-02 17:12:00
tmtony8
原创
9317

在Access中,我们说过表字段名和表字段的标题属性的区别。《ACCESS表字段中字段名,标题和说明的区别

标题属性往往能直接显示该字段的具体含义。所以如何通过表字段去获取该字段的标题呢?


如表“表1”中,或者字段“toolname”的标题名“工具”


利用DAO自定义一个获取字段标题的函数

Public Function GetfldCaption(tblName As String, fldName As String)
    On Error Resume Next
    Dim rs As DAO.Recordset
    Set rs = CurrentDb().OpenRecordset(tblName)
    GetfldCaption = rs(fldName).Properties("Caption")
    rs.Close
    Set rs = Nothing
End Function


窗体调用该函数
Me.Label0.Caption = "表1的字段“toolname”的标题名是 " & GetfldCaption("表1", "toolname")


    分享