源码:
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