源码：

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