Access獲取表字段的所有屬性信息

在Access表設(shè)計(jì)中，我們都會(huì)對(duì)每個(gè)字段做一些屬性修改。比如修改文本大小節(jié)省內(nèi)容，修改標(biāo)題方法顯示字段信息等等。

前面我們講過(guò)《Access獲取表中字段的標(biāo)題屬性》。那么其他屬性也可以通過(guò)此方法去獲取。

下面的函數(shù)可以獲取表字段的字段大小，格式，掩碼，小數(shù)位數(shù)，標(biāo)題，默認(rèn)值，有效性規(guī)則等信息。

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(zhǎng): " & rs(fldName).Properties("FieldSize")
    Debug.Print "屬性：格式為: " & rs(fldName).Properties("format")
    Debug.Print "屬性：輸入掩碼為: " & rs(fldName).Properties("InputMask")
    Debug.Print "屬性：小數(shù)位數(shù)為: " & rs(fldName).Properties("DecimalPlaces")
    Debug.Print "屬性：標(biāo)題為: " & rs(fldName).Properties("title")
    Debug.Print "屬性：默認(rèn)值為: " & rs(fldName).Properties("defaultvalue")
    Debug.Print "屬性：有效性規(guī)則為: " & rs(fldName).Properties("Validationrule")
    rs.Close
    Set rs = Nothing
End Function

運(yùn)行效果：

其他屬性也是一樣，找到對(duì)象名稱修改一下就可以了。

當(dāng)然這里我們也可以遍歷字段的屬性，獲取全部信息。有興趣的可以去寫一下。這里就不再累贅了。