《Access_2002数据库应用实训教程》第10章：Access_VBA程序设计.pptVIP

10.1 模块的创建 模块是将VBA（Visual Basic for Applications）声明和 过程作为一个单元进行保存的集合。模块基本上是由声明、语 句和过程组成的，它们作为一个已命名的单元存储在一起，对 VBA代码进行组织，并完成特定的任务。 Access有两种类型的模块：标准模块和对象类模块。不论哪种模 块中的每一个过程都可以是一个Function过程或一个Sub过程，如下图 10.1所示。 两个列表中，是“对象”框，是 “过程”框（即“事件”框），当 选择了任一个对象后，右边的“事件”也会随之切换，因为不同类 型的对象，也有不同的事件，选择任一事件后，即可显示该事件 程序的内容，且光标会停留在程序的第一行，可以立即 开始编写程序。 模块和程序不同：模块只有两个任务，一个是保存程序， 另一个是声明可以在多个程序中使用的变量或常量，模块本 身不可以被运行。而程序也称为“运行程序”，一个模块中含 有若干个程序，所以程序是最基本的运行单位。 创建模块，要在VBA编程环境VBE（Visual Basic Editor）中进 行。当我们选中一个需要编写代码的控件，并准备为其对应的某一事 件的响应方法编写VBA代码时，就应该启动VBE，在此编辑环境中进行 VBA代码编辑操作。如图10.2所示为VBE窗口： 创建模块的方法有几种，如下： 1.在“数据库”窗口的对象栏中单击“模块”，然后单击工具栏上的 “新建”按钮打开VBE编辑器，为数据库创建新的模块对象。 2.在Access菜单中单击“插入”→“模块”来创建标准模块。 3.如果在已打开的VBE编辑器中，则可以在工具栏中单击 “插入模块”按钮“”，或者单击VBE菜单中“插入”→“模块” 来创建新的标准模块。 读者可以任选一种适合自己的方法来创建模块。 除了自己新建模块外，还可以将宏转换为模块，在数据库窗口中选择 需要转换的宏，选择“工具”菜单中“宏”子菜单中的“将宏转换为 Visual Basic代码”命令，系统会弹出“转换宏”对话框，如图10.3 所示，转换后的宏被保存为标准模块。 5.在代码窗口中出现的标准过程格式中添加要实现的代码。 代码如下： Private Sub Command3_Click() On Error GoTo Err_Command3_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = 商品进货数据录入 DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command3_Click: Exit Sub Err_Command3_Click: MsgBox Err.Description Resume Exit_Command3_Click End Sub 6.根据需要重复选择对象和过程的操作，直至完成， 如图10.7所示； 对于 “系统控制窗体”中有七个命令按钮，将对应有七个事件 的过程。 注意：这七个事件的过程代码同第（5）步，只是在粗体代码 stDocName = “商品进货数据录入”中引号之中的窗体名称要做相应 更改。 10.1.2 编写函数和子过程 子过程定义的语法结构如下： Sub 子过程名（） 子程序代码 End sub 可以在函数和子过程定义时使用Public、Private或Static前缀来 声明子过程和函数的作用范围。 Private前缀表示为私有的子过程和函数，只能在定义它们的模块中 使用，Public前缀代表公共的子过程和函数可能被任何其他模块调用， 当模块中子过程和函数没有使用Private进行声明，则系统默认为 Public(公共)子过程和函数。 2.创建函数与子过程 子过程和函数是指那些不与特定的对象或事件绑定的过程。 （1）在代码模块中创建子过程和函数 操作步骤如下： A.在“数据库”窗口的对象栏中单击“模块”。 B.单击工具栏的“新建”按钮创建新的模块，或者选择一个 现有的模块并单击“设计”按钮，打开VBE窗口。 C.选择“插入”“过程”命令，或单击工具栏上的“插入模块” 按钮的下拉列表三角形，然后选择下拉菜单中的“过程”命令，打 开“添加过程”对话框，如图10.13所示。 D.键入过程或函数名，此例过程名为“NewSub”。 E.选择过程的类型。可以选择新建过程类型为“子程序”、 “函数”或者“属性”。 F.要使用新建过程适用于整个适用程序，应将范围选为 “公共的”；如果要限定过程于当前模