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

运行效果：

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

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