Access交流网
电 话:0760-88315075
热 线:0760-88315075
邮 编:528463
咨询QQ:1918333016
营销QQ:4008553990
Email:1918333016@qq.com
很多情况下,我们为了兼容,表名和表字段等都是用英文来表示。而效果我们则用中文来显示标题。
一、函数:
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("表名称","字段名")