'表数量
CurrentDb.TableDefs.Count '包括系统表
'查询数量
CurrentDb.QueryDefs.Count
'窗体数量
Currentproject.AllForms.Count
'宏数量
Currentproject.AllMacros.Count
'报表数量
Currentproject.AllReports.Count
'模块数量
Currentproject.AllModules.Count '不包括类模块
Access软件网交流QQ群(群号:198465573) |