【Access】当前数据库系统对象统计

时　间:2018-01-09 08:00:23
作　者:杨雪   ID：42182  城市：南京
摘　要:当前数据库系统对象统计信息如下：
正　文:

源码：

Sub SummaryObjectCount()
    Debug.Print "当前数据库系统对象统计信息如下："
    Debug.Print "  表   " & CurrentDb.TableDefs.Count & " 个"
    Debug.Print "  查询 " & CurrentDb.QueryDefs.Count & " 个"
    Debug.Print "  窗体 " & CurrentProject.AllForms.Count & " 个"
    Debug.Print "  报表 " & CurrentProject.AllReports.Count & " 个"
    Debug.Print "  宏   " & CurrentProject.AllMacros.Count & " 个"
    Debug.Print "  模块 " & CurrentProject.AllModules.Count & " 个"
End Sub