Access获取表字段的所有属性信息

在Access表设计中，我们都会对每个字段做一些属性修改。比如修改文本大小节省内容，修改标题方法显示字段信息等等。

前面我们讲过《Access获取表中字段的标题属性》。那么其他属性也可以通过此方法去获取。

下面的函数可以获取表字段的字段大小，格式，掩码，小数位数，标题，默认值，有效性规则等信息。

Public Function GetfldInfo(tblName As String, fldName As String)
On Error Resume Next
Dim rs As DAO.Recordset
Set rs = CurrentDb().OpenRecordset(tblName)
Debug.Print "属性：字段大小为L: " & rs(fldName).Properties("FieldSize")
Debug.Print "属性：格式为: " & rs(fldName).Properties("format")
Debug.Print "属性：输入掩码为: " & rs(fldName).Properties("InputMask")
Debug.Print "属性：小数位数为: " & rs(fldName).Properties("DecimalPlaces")
Debug.Print "属性：标题为: " & rs(fldName).Properties("title")
Debug.Print "属性：默认值为: " & rs(fldName).Properties("defaultvalue")
Debug.Print "属性：有效性规则为: " & rs(fldName).Properties("Validationrule")
rs.Close
Set rs = Nothing
End Function

运行效果：

其他属性也是一样，找到对象名称修改一下就可以了。

当然这里我们也可以遍历字段的属性，获取全部信息。有兴趣的可以去写一下。这里就不再累赘了。

更多的Access源码示例技巧请关注Office中国论坛