通过字段名来获取字段标题的方法

鱼儿游游

一、函数：
Public Function GetFldCaption(TblName As String, FldName As String) As String
    On Error Resume Next
    Dim rst As DAO.Recordset
    Set rst = CurrentDb().OpenRecordset(TblName)
    GetFldCaption = rst(FldName).Properties("Caption")
    rst.Close
    Set rst = Nothing
End Function
二、调用方式：
msgbox GetFldCaption("表名称","字段名")  

xie62

谢谢，试用下

yanwei82123300

thank you sharing it

tmtony

谢谢分享!

xie62

谢谢分享!

gdjdyyj

学习了!!!