![Access VBA活用范例手册](https://wfqqreader-1252317822.image.myqcloud.com/cover/199/26178199/b_26178199.jpg)
上QQ阅读APP看书,第一时间看更新
◎过程、模块与语句
006 创建Sub过程
◎过程、模块与语句:“添加过程”对话框、Sub关键字
Sub过程可以执行处理过程,但是不会返回值。根据程序是否与特定对象的事件关联,可以分为标准程序和事件程序两类,本例仅讲解如何创建标准的Sub过程。
创建标准的Sub过程,有两种方法可供选择,一种是在VBA编辑器代码窗口打开的情况下,选择“插入/过程”命令,打开“添加过程”对话框,选中“子程序”和“公共的”单选按钮,设置名称即可创建Sub过程,如图1-11所示。
![](https://epubservercos.yuewen.com/11B0D1/14615820604489806/epubprivate/OEBPS/Images/img00040001.jpg?sign=1738948118-hoECBR78ER3tGytVil63wwaTySkxFToP-0-4d5a2830e0442885aa50057d4847f1c8)
图1-11 通过“添加过程”对话框创建Sub过程
另一种方法是直接在VBA编辑器代码窗口中输入“Sub过程名”来创建Sub过程。
◎应用实例
素材\第1章\创建Sub过程.accdb
本例通过上述的第二种方法创建一个Sub过程,该过程通过两个输入对话框得到两个加数,并使用消息对话框返回这两个数的和。
◎案例操作
01 在代码窗口创建Sub过程,并输入求和代码。
02 按【F5】键运行Sub过程,查看代码运行效果。
◎过程源代码
源文件\第1章\创建Sub过程.accdb
创建Sub过程,编写VBA代码,通过输入对话框获取加数,使用消息对话框返回求和结果,其具体的VBA代码如下。
![](https://epubservercos.yuewen.com/11B0D1/14615820604489806/epubprivate/OEBPS/Images/img00041001.jpg?sign=1738948118-hNMIAW6JPh5tB0jzrTCYMcysIhwouwAH-0-ff0afe2d54bfdfcd2823ca75f943a7db)
◎执行过程
按【F5】键,运行“加”过程,结果如图1-12所示。
![](https://epubservercos.yuewen.com/11B0D1/14615820604489806/epubprivate/OEBPS/Images/img00041002.jpg?sign=1738948118-a2381PH8i50Z1nh1VLjDxkaFZRQw0ixD-0-23e3aa17473f6015c0b614f6b069607f)
图1-12 创建Sub过程计算两数之和