Access穫?cè)″l字段的所有屬性信息

在Access錶設計中，我們都會對每箇字段做一些屬性修改。比如修改文本大小節(jié)省內(nèi)容，修改標題方法顯示字段信息等等。

前麵我們講過《Access穫?cè)″l中字段的標題屬性》。那麼其他屬性也可以通過此方法去穫?cè)　?/p>

下麵的函數(shù)可以穫?cè)″l字段的字段大小，格式，掩碼，小數(shù)位數(shù)，標題，默認值，有效性規(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: " & 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 "屬性：標題爲: " & rs(fldName).Properties("title")
    Debug.Print "屬性：默認值爲: " & rs(fldName).Properties("defaultvalue")
    Debug.Print "屬性：有效性規(guī)則爲: " & rs(fldName).Properties("Validationrule")
    rs.Close
    Set rs = Nothing
End Function

運行效果：

其他屬性也是一樣，找到對象名稱修改一下就可以瞭。

當然這裡我們也可以遍歷字段的屬性，穫?cè)∪啃畔?。有興趣的可以去寫一下。這裡就不再纍贅瞭。