查找Access 2010中所有表的列的默认值

Question

是否可以编写任何此类查询以获取MS Access 2010中表中所有列的默认值？

Answer 1

您想要的信息可以通过VBA获得。

CurrentDb.TableDefs({table name}).Fields({field name}).DefaultValue

此功能将在数据库中找到所有这些功能。

Sub Default()
    Dim TD As TableDef
    Dim Fld As Field
    For Each TD In CurrentDb.TableDefs
        If TD.Attributes = 0 Then
            For Each Fld In TD.Fields
                Debug.Print TD.Name & " :: " & Fld.Name & " :: " & Fld.DefaultValue
            Next Fld
        End If
    Next TD
End Sub