《第9章模块与VBA程序设计(2)》-公开·课件.pptVIP

9.5 VBA程序语句 9.5.2 VBA 注释语句 9.5.3 VBA 声明语句 2．MsgBox MsgBox 的参数说明 MsgBox 函数的返回值 例如 9.5.6 选择结构 1．If…Then 条件语句 2．If...Then...Else条件语句 3．If条件语句的嵌套 例9-6：“分类”按钮的单击事件过程代码 例9-7 (Select Case 语句例子） 例9-7 (VBA代码） 9．选择结构的综合应用实例 P.255 9.5.7 循环结构 例9-13（VBA代码） P.257 2．While…Wend循环语句 3．Do…Loop循环语句 （1）Do 循环语句格式1 （2）Do…Loop循环语句格式2 （3）Do…Loop循环语句格式3 例9-19 （4）Do…Loop循环语句格式4 例9-20 9.5.8 标号和GoTo语句 例9-22 （VBA代码） P.264 说明 4．函数过程的调用 例9-23 （函数过程声明与调用例子 ） 例9-23 （VBA代码 ） P.265 9.6 VBA中的常用操作方法 9.6.1 打开和关闭窗体 １．打开窗体操作 P.266 2．关闭窗体操作 例9-25 （关闭窗体操作例子） 9.6.2 打开和关闭报表 2．关闭报表操作 9.7 VBA 程序调试和错误处理 9.7.1 错误处理 1．On Error GoTo标号 P.271 2．On Error Resume Next 3．On Error GoTo 0 例9-35（运行效果图示） 9.7.2 程序的调试 2．调试工具的使用 （1）新建一个名为“例9-23 标准模块-声明求自然数N 的阶乘的函数过程”标准模块。 注意：在 Function 前面一定要使用 Public 关键字，以使fnjc 函数的作用域为全局范围。 程序代码： Public Function fnjc(n As Long) As Long Dim i As Integer fnjc = 1 fnjc 作累乘器，初值为1 For i = 1 To n fnjc = fnjc * i Next i End Function （2）新建一个名为“例9-23 调用标准模块中所声明的函数过程-求阶乘”窗体。Cmd1 的单击事件过程的程序代码： Private Sub Cmd1_Click() Dim z As Long z = fnjc(12) - fnjc(9) 二次调用标准模块中的 fnjc 函数 text1 = 12! - 9!= z 使用 Text1 文本框输出运算结果 End Sub 在 VBA 编程过程中会经常用到一些操作，例如，打开和关闭窗体、打开和关闭报表、对控件输入数据进行验证功能等等。 VBA 的窗体操作主要有两个重要的命令： 打开窗体: DoCmd.OpenForm 关闭窗体: DoCmd.CloseForm 例9-24 以对话框形式打开名为“例9-12 For循环求和”窗体。 DoCmd.OpenForm 例9-12 For循环求和, , , , , acDialog 注意：参数可以省略，取默认值，但中间的分隔符“,”不能省略。 语句格式： DoCmd.Close (ObjectType, ObjectName, Save) 或 DoCmd.Close ObjectType, ObjectName, Save 由 DoCmd.Close 命令参数看到，该命令可以用于 Access 各种对象的关闭操作。省略所有参数的命令（DoCmd.Close）可以关闭当前窗体。 例9-25 关闭名为“例9-12 For循环求和”窗体。 DoCmd.Close acForm, 例9-12 For循环求和 如果“例9-12 For循环求和”窗体是当前窗体，则可使用语句： DoCmd.Close 报表的打开和关闭也是 Access 应用程序中的常用的操作。VBA 提供了两个操作命令。 打开报表： DoCmd.OpenReport 关闭报表： DoCmd.Close。 1．打开报表操作 例9-26 以预览视图形式打开名为“学生信息表” 报表的语句为： DoCmd.