《Access 2002数据库应用实训教程》第10章：Access VBA程序设计

《《Access 2002数据库应用实训教程》第10章：Access VBA程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第10章AccessVBA程序设计10.1模块的创建10.2VBA编程10.1模块的创建模块是将VBA（VisualBasicforApplications）声明和过程作为一个单元进行保存的集合。模块基本上是由声明、语句和过程组成的，它们作为一个已命名的单元存储在一起，对VBA代码进行组织，并完成特定的任务。Access有两种类型的模块：标准模块和对象类模块。不论哪种模块中的每一个过程都可以是一个Function过程或一个Sub过程，如下图10.1所示。两个列表中，是“对象”框，是“过程”框（即“事件”框），当选择了任一个对象后，右边的“事件”也会随之切换，因为不同类型的对

2、象，也有不同的事件，选择任一事件后，即可显示该事件程序的内容，且光标会停留在程序的第一行，可以立即开始编写程序。图10.1代码编辑窗口“对象”框“过程”框声明过程“过程视图”按钮“完整的模块视图”按钮注意：在“事件”中，凡显示为粗体的，即表示该事件已内含程序。模块和程序不同：模块只有两个任务，一个是保存程序，另一个是声明可以在多个程序中使用的变量或常量，模块本身不可以被运行。而程序也称为“运行程序”，一个模块中含有若干个程序，所以程序是最基本的运行单位。创建模块，要在VBA编程环境VBE（VisualBasicEditor）中进行。当我们选中一个需要编写代码的控件，并准备为

3、其对应的某一事件的响应方法编写VBA代码时，就应该启动VBE，在此编辑环境中进行VBA代码编辑操作。如图10.2所示为VBE窗口：创建模块的方法有几种，如下：1.在“数据库”窗口的对象栏中单击“模块”，然后单击工具栏上的“新建”按钮打开VBE编辑器，为数据库创建新的模块对象。2.在Access菜单中单击“插入”→“模块”来创建标准模块。3.如果在已打开的VBE编辑器中，则可以在工具栏中单击“插入模块”按钮“”，或者单击VBE菜单中“插入”→“模块”来创建新的标准模块。读者可以任选一种适合自己的方法来创建模块。除了自己新建模块外，还可以将宏转换为模块，在数据库窗口中选择需要转

4、换的宏，选择“工具”菜单中“宏”子菜单中的“将宏转换为VisualBasic代码”命令，系统会弹出“转换宏”对话框，如图10.3所示，转换后的宏被保存为标准模块。图10.2VBE编辑窗口图10.3转换宏对话框10.1.1创建窗体和报表类模块窗体和报表模块都是对象类模块，而且它们都依附于某一窗体或报表而存在。窗体和报表中含有事件过程，通过事件过程来控制窗体或报表的行为，以及它们对用户操作的响应。操作一窗体类模块创建的操作步骤如下：1.在数据库窗口“对象”列表中的“窗体”对象有中选择要操作的窗体名，此例选择“系统控制窗体”，如图10.4所示；2.然后从“视图”菜单中选择“代码”

5、命令或单击视图中工具栏上的（代码）图标，进入VBE编辑窗口，如图10.5所示；3.从模块代码窗口中的“对象”列表框中选择要操作的对象名称，为“进货录入”控件的名称“command3”；4.选择对象后，从模块代码窗口中的“过程事件”列表框中选择相关联的过程名，此处选择“Click”事件，如图10.6所示；图10.4选择“系统控制窗体”图10.5VBE编辑窗口“空白代码窗口”图10.6选择“对象”和“事件”代码窗口5.在代码窗口中出现的标准过程格式中添加要实现的代码。代码如下：PrivateSubCommand3_Click()OnErrorGoToErr_Command3_C

6、lickDimstDocNameAsStringDimstLinkCriteriaAsStringstDocName="商品进货数据录入"DoCmd.OpenFormstDocName,,,stLinkCriteriaExit_Command3_Click:ExitSubErr_Command3_Click:MsgBoxErr.DescriptionResumeExit_Command3_ClickEndSub6.根据需要重复选择对象和过程的操作，直至完成，如图10.7所示；对于“系统控制窗体”中有七个命令按钮，将对应有七个事件的过程。注意：这七个事件的过程代码同第（5）步

7、，只是在粗体代码stDocName=“商品进货数据录入”中引号之中的窗体名称要做相应更改。图10.7完成全部事件代码的窗口创建完窗体类模块以后，可以回到如图10.8所示的“系统控制窗体”窗体视图来单击各个按钮，查看是否运行。操作二报表类模块创建的步骤如下：此例为“商品库存情况”的报表运行时，根据库存量来显示或隐藏一个提示消息。当商品“库存量”小于10时，将有一个标签在打印此节时显示消息“库存量不足，请速进货！”，当商品“库存量”大于10时，此标签将被隐藏。1.从数据库窗口“对象”列表中的“报表”对象中选择要操作的报