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

第10章AccessVBA程序设计10.1模块的创建5.在代码窗口中出现的标准过程格式中添加要实现的代码。
代码如下：
PrivateSubCommand3_Click()
OnErrorGoToErr_Command3_Click
DimstDocNameAsString
DimstLinkCriteriaAsString
stDocName="商品进货数据录入"
DoCmd.OpenFormstDocName,,,stLinkCriteria
Exit_Command3_Click:
ExitSub
Err_Command3_Click:
MsgBoxErr.Description
ResumeExit_Command3_Click
EndSub创建完窗体类模块以后，可以回到如图10.8所示的“
系统控制窗体”窗体视图来单击各个按钮，查看是否运行。
操作二报表类模块创建的步骤如下：
此例为“商品库存情况”的报表运行时，根据库存量来显示或隐
藏一个提示消息。当商品“库存量”小于10时，将有一个标签在打印
此节时显示消息“库存量不足，请速进货！”，当商品“库存量”大
于10时，此标签将被隐藏。
1.从数据库窗口“对象”列表中的“报表”对象中选择要操作的报表
名，如图10.9所示；10.1.2编写函数和子过程2.创建函数与子过程
子过程和函数是指那些不与特定的对象或事件绑定的过程。
（1）在代码模块中创建子过程和函数
操作步骤如下：
A.在“数据库”窗口的对象栏中单击“模块”。
B.单击工具栏的“新建”按钮创建新的模块，或者选择一个
现有的模块并单击“设计”按钮，打开VBE窗口。
C.选择“插入”“过程”命令，或单击工具栏上的“插入模块”
按钮的下拉列表三角形，然后选择下拉菜单中的“过程”命令，打
开“添加过程”对话框，如图10.13所示。
10.1.3将宏转换成模块回到数据库窗口，单击“模块”对象按钮，在“模块”对
象集合中会找到“被转换的宏—系统控制窗体宏组”这样
的模块，如图10.17所示。
方法二：在数据库设计视图宏对象集合中选中“系统控制
窗体宏组”，在窗口菜单栏上依次单击“工具”→“宏”
→“将宏转换为VisualBasic代码”命令，随即弹出“转换宏”
对话框，如图10.18所示。根据需要在这个对话框中完成两个选项
的选定操作后，单击“转换”按钮可将宏对象“系统控制窗体宏组”
转换成为一个名为“系统控制窗体宏组的副本”的模块对象。10.1.4VBA代码的测试VBA程序设计有几种控制结构：选择控制结构、循环控制结构。
选择控制结构有条件结构和选择结构两种。
（1）条件结构：只要执行一个语句，则可以使用条件结构。
语法如下：if条件表达式then语句1[else语句2]
（2）选择结构：在多个语句块中有选择地执行其中的一个。
语法如下：
Selectcase表达式
case表达式值列表1
语句1
case表达式值列表2
语句2
……
[caseelse语句n]
Endselect10.2.2对窗体中控件对象编程10.2.3编程创建消息框