【图】关注于使用常用对象来加快Access 2007数据库下

　　添加日志宏到你的表单中

　　这是你要对你的数据库添加对象日志记录所需要做的所有事情。以设计模式打开你的表单，如图5中所做的。并打开设计条栏上的属性面板，选择On Close事件。从列表中选择“mcrLogUsage.LogForm”。注意，在代码中使用的是Close事件，因为它在这个日志记录代码中要比On Open事件更好。这些是所要做的所有步骤，下一次当你的用户打开这个表单(之后关闭)时，就会在日志中添加一条记录。

　　图5 –怎样在你的表单和报表中建立日志宏

　　当你遵循下面的建立指导，那么每次有人打开这个表单时都会有一个日志记录(如图6所示)。

　　图6 -保存到UserObjects日志表中的数据

添加日志宏到你的报表中

　　要创建报表的一个日志入口，所要做的和为表单所做的一样。在设计视图中打开报表，显示属性面板，找到Close Event，这一次选择mcrLogUsage.LogReport。

　　找出某对象被使用了多少次

　　要找出一个对象被使用了多少次，建立一个具有以下SQL语句的查询。

　　SELECT ObjectName, ObjectType, Count(OpenTime) AS NoTimes

　　FROM UserObjectLogs

　　GROUP BY ObjectName, ObjectType;

　　如果你运行它，你将得到如下面图7所示的结果。

图7 你的对象使用总计

　　软件安装总结

　　这是你找出你最常用的表单和报表所需要的所有东西。然后如果你需要加快一些表单和报表，那么集中于那些最常被使用的。记住，子表单和子报表不会包含进这个日志中

　　技术(和兴趣)细节

　　对Access 2007的许多改进都是旨在制作很好的、可下载的模板(如图1中所示)。因此在宏方面有许多创新来创建可以自由传送VBA代码的数据库模板。使其发生的最重要的一个改变是一个叫做TempVar的新对象。让我们看看在这个数据库中怎样使用TempVar。

　　在模块logObjects_FXL12中，你将看到提取所关注的最后一个表单或报表并找出用户Windows帐户的代码。然后这些结果将放到3个不同的TempVar中。然后会打开一个使用这些TempVars的查询来插入一个新记录到我们的用户日志表中。

　　　OptionCompareDatabase
　　OptionExplicit
　　PublicFunctionLogFormUsage()
　　OnErrorResumeNext
　　TempVars.Add"ObjectName",Screen.ActiveForm.Name
　　TempVars.Add"ObjectType","3"
　　CallLogUsage
　　ExitFunction
　　EndFunction
　　PublicFunctionLogReportUsage()
　　OnErrorResumeNext
　　TempVars.Add"ObjectName",Screen.ActiveReport.Name
　　TempVars.Add"ObjectType","4"
　　CallLogUsage
　　ExitFunction
　　EndFunction
　　PublicSubLogUsage()
　　OnErrorResumeNext
　　TempVars.Add"WindowsAccount",User_FX
　　DoCmd.SetWarningsFalse
　　DoCmd.OpenQuery"qryUpdateLogs"
　　DoCmd.SetWarningsTrue
　　ExitSub
　　EndSub