《全国计算机二级Access第八讲 模块.ppt》由会员分享，可在线阅读，更多相关《全国计算机二级Access第八讲 模块.ppt（51页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、模块是以模块是以VBAVBA(Visual(Visual Basic for Application Basic for Application）基础编写，以基础编写，以函数函数(function)(function)或或子过程子过程(Sub)(Sub)的集的集合方式存储。模块分为合方式存储。模块分为类模块类模块和和标准模块标准模块两类。两类。类模块：窗体和报表模块都是类模块，可以使用类模块：窗体和报表模块都是类模块，可以使用 事件过程来控制窗体或报表的行为。事件过程来控制窗体或报表的行为。标准模块：标准模块包含的是通用过程和常用过标准模块：标准模块包含的是通用过程和常用过 程，这些通用过程不
2、与任何对象相关。程，这些通用过程不与任何对象相关。8.1 8.1 模块的基本概念模块的基本概念8.2.1 面向对象程序设计的基本概念面向对象程序设计的基本概念 一个对象就是一个一个对象就是一个实体实体。对象具有。对象具有属性属性和和方方法法两方面。两方面。属性和方法描述了对象的性质和行为。属性和方法描述了对象的性质和行为。对象的属性可以定义对象一个实例，而方法是对象对象的属性可以定义对象一个实例，而方法是对象可以执行的行为。可以执行的行为。引用方式为：对象引用方式为：对象.属性或对象属性或对象.行为。行为。8.2 VBA8.2 VBA程序设计程序设计在进行在进行AccessAccess的的VB
3、AVBA编程之前，要了解编程之前，要了解VBAVBA的基本的基本编程语言：编程语言：一、数据类型一、数据类型二、变量二、变量三、运算符及函数三、运算符及函数8.2.2 VBA8.2.2 VBA编程基础编程基础一、数据类型一、数据类型（）整数（）整数(Integer)：后缀符为：后缀符为“”（）长整数（）长整数(Long)：后缀符为：后缀符为“&”（）单精度（）单精度(Single)：后缀符为：后缀符为“!”（）双精度（）双精度(Double)：后缀符为：后缀符为“#”（）货币（）货币(Currency)：后缀符为：后缀符为“”（）字符串（）字符串(String)：后缀符为：后缀符为“$”（）布
4、尔型（）布尔型(Boolean)（）变体（）变体(Variant)：可用于任何数据类型。：可用于任何数据类型。（）数据库对象类型（）数据库对象类型(Object)二、变量二、变量 变量：是在程序运行过程中其值可以改变的量。变量：是在程序运行过程中其值可以改变的量。变量的组成：由变量的组成：由数字、字母和下划线数字、字母和下划线且由字母开头且由字母开头例如：例如：BookBook，Name12Name12，Number_1Number_1都是合法的都是合法的变量名。而变量名。而_num,1am,pi 1_num,1am,pi 1是不合法的。是不合法的。变量定义两种方法：变量定义两种方法：（1 1
5、）、隐式变量：没有直接定义，直接指定值，）、隐式变量：没有直接定义，直接指定值，如：如：NewVarNewVar=528=528（2 2）、显式变量：先定义后使用。）、显式变量：先定义后使用。如：如：DimDim NewVarNewVar AsAs Integer Integer三、用户定义的数据类型三、用户定义的数据类型Type PointType Point X as Integer X as Integer Y as Single Y as SingleEnd TypeEnd Type即定义了一个点（即定义了一个点（point point）的数据结构，声明和）的数据结构，声明和使用变量形
6、式如：使用变量形式如：Dim Dim pCurPointpCurPoint as Point as Point PCurPoint.XPCurPoint.X=10=10PCurPoint.YPCurPoint.Y=10=10四、数组四、数组格式：格式：Dim Dim 数组名数组名(下标下限下标下限 to to 下标下限）。下标下限）。如：如：Dim array(10)as doubleDim array(10)as doubleDim workers(-4 to 5)as Dim workers(-4 to 5)as intetgerintetger五、符号常量五、符号常量格式：格式：Cons
7、t Const 符号常量名称常量值符号常量名称常量值如：如：Const PI=3.14159Const PI=3.14159历年真题cVariantDouble运算符运算符名称名称示示例例+加5+2求5与2的和，结果为7-减5-2求5与2的差，结果为3*乘5*2求5与2的积，结果为10乘方53求5的3次方，结果为125/除5/2求5除以2的商，结果为2.5整数除17.55求17整除5的商，结果为3MOD求余17Mod5求17除以5的余数，结果为2六、运算符六、运算符1.1.算术运算符算术运算符对上表运算符说明对上表运算符说明:VBA的加、减、乘、除运算符与数学中的加、的加、减、乘、除运算符与数
8、学中的加、减、乘、除运算符的意义和用法相同，只是乘、减、乘、除运算符的意义和用法相同，只是乘、除、乘方的运算符号不同。除、乘方的运算符号不同。但注意但注意:l整数除法整数除法():操作时先将操作数舍去小数部分操作时先将操作数舍去小数部分取整取整,若结果有小数也舍弃。若结果有小数也舍弃。l求模运算求模运算(Mod):若操作数是小数，系统会将其若操作数是小数，系统会将其四舍五入后再运算，被除数与结果值余数符号四舍五入后再运算，被除数与结果值余数符号一致。一致。.关系运算符和关系表达式关系运算符和关系表达式 关系运算符用于对两个相同类型的数据进行比关系运算符用于对两个相同类型的数据进行比较。如果比较
9、的关系成立，运算结果是逻辑真值较。如果比较的关系成立，运算结果是逻辑真值为为TrueTrue（或）；如果比较的关系不成立，运算（或）；如果比较的关系不成立，运算结果是逻辑假值为结果是逻辑假值为FalseFalse（或）。（或）。关系运算符下表所示：关系运算符下表所示：运算符运算符名名称称示示例例大于32比较3大于2是否成立，结果为True=大于或等于3=2比较3大于等于2是否成立，结果为True小于32比较3小于2是否成立，结果为False=小于或等于3=2比较3小于等于2是否成立，结果为False=等于3=2比较3等于2是否成立，结果为False不等于32比较3不等于2是否成立，结果为Tru
10、e、逻辑运算符和逻辑表达式、逻辑运算符和逻辑表达式非（非（OT)OT)、与（、与（ANDAND）、或（）、或（OROR）先进级别从左至右先进级别从左至右例例1 1：NOT 3 NOT 3 值为值为0 0；NOT 0 NOT 0 值为值为1 1例例2 2：0 AND 0 0 AND 0 值为值为0 0；0 AND 1 0 AND 1 值为值为0 0；1 AND 1 1 AND 1 值为值为1 1例例3 3：0 OR 0 0 OR 0 值为值为0 0；0 OR 1 0 OR 1 值为值为1 1；1 OR 1 1 OR 1 值为值为1 1；从表中可以看出逻辑逻辑符的运算法则如下：从表中可以看出逻辑逻
11、辑符的运算法则如下：(1)(1)对于对于NotNot（逻辑非）运算，如果参加运算的数据（逻辑非）运算，如果参加运算的数据是是TrueTrue，则运算结果为，则运算结果为FalseFalse；反之，则运算结果；反之，则运算结果为为TrueTrue。例如：。例如：NOT(3 5)NOT(3 5)的值是的值是TrueTrue。(2)(2)对于对于AndAnd（逻辑与）运算，如果参加运算的两都（逻辑与）运算，如果参加运算的两都是是TrueTrue，则运算结果为，则运算结果为TrueTrue；如果参加运算的两；如果参加运算的两边为边为FalseFalse，则运算结果为，则运算结果为FalseFalse。
12、例如：。例如：5 3 5 3 And B CAnd B C的值是的值是TrueTrue，而，而5 3 And B 5 3 And B 3 And B C5 3 And B C的值都是的值都是FalseFalse。（3 3）对于）对于OrOr（逻辑或）运算，如果参加运算的两（逻辑或）运算，如果参加运算的两边有一个为边有一个为TrueTrue，则运算结果为，则运算结果为TrueTrue，只有参，只有参加运算的两边均为加运算的两边均为FalseFalse时，运算结果才为时，运算结果才为FalseFalse。例如：。例如：5 C5 C的值是的值是FalseFalse，而，而5 3 Or B C5 3
13、Or B 3 Or B 5 3 Or B C C的值都是的值都是TrueTrue5.5.连接运算符连接运算符字符运算符有两个：字符运算符有两个：“+”、“&”；功能是把运；功能是把运算符右边的字符串连接到左边字符串的尾部，组算符右边的字符串连接到左边字符串的尾部，组成一个新的字符串。例如：成一个新的字符串。例如：Visual&Visual&“BasicBasic”的运算结果是的运算结果是“VisualBasicVisualBasic”。区别：区别：“+”只能连接只能连接字符型字符型数据；而数据；而“&”可以连可以连接接非字符型非字符型数据。数据。如：如：“VBAVBA”&6&6 结果为：结果为
14、：VBA6VBA6或：或：“2+32+3”&“=“&(2+3)&(2+3)结果为：结果为：“2+32+35 5”小结：各运算符的优先级别小结：各运算符的优先级别算术运算符算术运算符 连接运算符连接运算符 关系运算符关系运算符 逻辑运算符逻辑运算符七、常用标准函数七、常用标准函数（重点）（重点）1.1.数学函数数学函数(1).Abs(1).Abs()绝对值函数绝对值函数 例：例：Abs(-5)=5 Abs(-5)=5 或或 Abs(-5+2)=3Abs(-5+2)=3(2).Int(2).Int（Fix)Fix)()取整函数取整函数 功能：两者参数为正是取整。若为负，功能：两者参数为正是取整。若
15、为负，IntInt返回返回小于等于小于等于参数值的参数值的第一个负整数；第一个负整数；FixFix返回返回大于等于大于等于参数值的第一个负整数。参数值的第一个负整数。例：例：Int(5.3)=5;Fix(5.3)=5 Int(-5.3)=-6;Fix(-5.3)=-5Int(5.3)=5;Fix(5.3)=5 Int(-5.3)=-6;Fix(-5.3)=-5(3).Sqrt(3).Sqrt()开平方函数开平方函数 例：例：Sqrt(9)=3Sqrt(9)=32.2.字符串函数字符串函数(1).InStr(Start,1)(1).InStr(Start,1)功能：检索功能：检索Str2Str2
16、在在Str1Str1中最早出现的位置。中最早出现的位置。StartStart为可项，即检索为可项，即检索的起始位置。如省，则从第一个字符开始。的起始位置。如省，则从第一个字符开始。，11也为可选，如有也为可选，如有1 1则不区分大小写。则不区分大小写。例例:s=Instr(3,:s=Instr(3,“aSsiABaSsiAB”,“a a”,1),1)返回返回 5 5 s=s=Instr(Instr(“aSsiABaSsiAB”,“a a”)返回返回 1 1 (2).Len(2).Len()字符串长度检测函数字符串长度检测函数 例：例：Len(Len(“1234512345”)返回返回 5 5
17、或或 Len(Len(“考试中心考试中心”)返回返回 4 4(3).Left(3).Left（字符串，（字符串，N N）从字符串左边起截取从字符串左边起截取N N个字符个字符 Right(Right(字符串，字符串，N N）从字符串右边起截取从字符串右边起截取N N个字符个字符 Mid(Mid(字符串，字符串，N1,N2N1,N2）从字符串左边第从字符串左边第N1N1个字符起截取个字符起截取 N2N2个字符。个字符。例：例：Left(Left(“sdkfjsdkfj”,2),2)返回返回“sdsd”Right(Right(“sdkfjsdkfj”,2),2)返回返回“fjfj”Mid(Mid(
18、“sdkfjsdkfj”,2,3),2,3)返回返回“dkfdkf”3.3.日期日期/时间函数时间函数(1).Date (1).Date 返回当前系统日期返回当前系统日期(2).times(2).times 返回系统时间返回系统时间(3).Now (3).Now 返回当前系统日期和时间返回当前系统日期和时间(4).Year(4).Year(日期日期)返回返回(日期日期)的年份的年份(5).Month(5).Month(日期日期)返回返回(日期日期)的月份的月份(6).Day(6).Day(日期日期)返回返回(日期日期)的日的日(7).Hour(7).Hour(时间时间)返回返回(时间时间)的小
19、时数的小时数 (8).Minute(8).Minute(时间时间)返回返回(时间时间)的分钟数的分钟数 (9).Second(9).Second(时间时间)返回返回(时间时间)的秒数的秒数历年真题A-4一一.VBA.VBA程序语句分类程序语句分类:1.1.1.1.声明语句声明语句声明语句声明语句:用于给变量、常量过程定义命名用于给变量、常量过程定义命名用于给变量、常量过程定义命名用于给变量、常量过程定义命名2.2.2.2.执行语句：用于执行各种操作。分执行语句：用于执行各种操作。分执行语句：用于执行各种操作。分执行语句：用于执行各种操作。分3 3 3 3种结构：种结构：种结构：种结构：顺序顺序
20、顺序顺序 结构、选择结构、选择结构、选择结构、选择(或条件或条件或条件或条件)结构、循环结构结构、循环结构结构、循环结构结构、循环结构二二.语句书写规定语句书写规定:1.1.1.1.语句较长，一行写不下时，用下划线语句较长，一行写不下时，用下划线语句较长，一行写不下时，用下划线语句较长，一行写不下时，用下划线(_)(_)(_)(_)续写在下续写在下续写在下续写在下一行。一行。一行。一行。2.2.2.2.用冒号用冒号用冒号用冒号(:):):):)将几个语句分隔写在同一行中。将几个语句分隔写在同一行中。将几个语句分隔写在同一行中。将几个语句分隔写在同一行中。三三.赋值语句赋值语句:变量名值或表达式
21、变量名值或表达式变量名值或表达式变量名值或表达式 例例例例:new=10:new=10:new=10:new=108.2.3 VBA8.2.3 VBA程序流程控制语句程序流程控制语句历年真题DB四四.选择选择（或条件）（或条件）（或条件）（或条件）语句语句1.If 1.If 1.If 1.If 条件表达式条件表达式条件表达式条件表达式1 Then1 Then1 Then1 Then 执行符合条件值的语句执行符合条件值的语句执行符合条件值的语句执行符合条件值的语句 End IfEnd IfEnd IfEnd If 例：例：例：例：If If If If 定价定价定价定价1200 Then1200
22、 Then1200 Then1200 Then MsgBoxMsgBoxMsgBoxMsgBox “定价超上限定价超上限定价超上限定价超上限”End ifEnd ifEnd ifEnd if 2.If 2.If 2.If 2.If 条件表达式条件表达式条件表达式条件表达式1 Then1 Then1 Then1 Then 执行符合条件值的语句执行符合条件值的语句执行符合条件值的语句执行符合条件值的语句 Else Else Else Else 执行不符合条件值的语句执行不符合条件值的语句执行不符合条件值的语句执行不符合条件值的语句 End IfEnd IfEnd IfEnd If 例：例：例：例：
23、If If If If 定价定价定价定价1200 Then1200 Then1200 Then1200 Then MsgBoxMsgBoxMsgBoxMsgBox “定价超上限定价超上限定价超上限定价超上限”Else Else Else Else 定价定价定价定价定价定价定价定价*0.950.950.950.95 End if End if End if End if 3.If 3.If 3.If 3.If 条件表达式条件表达式条件表达式条件表达式1 Then1 Then1 Then1 Then If If If If 条件表达式条件表达式条件表达式条件表达式2 Then2 Then2 The
24、n2 Then 执行符合条件执行符合条件执行符合条件执行符合条件1 1 1 1、2 2 2 2的语句的语句的语句的语句 Else Else Else Else 执行不符合条件执行不符合条件执行不符合条件执行不符合条件2 2 2 2值的语句值的语句值的语句值的语句 Else Else Else Else 执行不符合条件执行不符合条件执行不符合条件执行不符合条件1 1 1 1值的语句值的语句值的语句值的语句 End IfEnd IfEnd IfEnd If 例：例：例：例：If If If If 定价定价定价定价1200 Then 1200 Then 1200 Then 1200 Then 定价定
25、价定价定价定价定价定价定价*0.950.950.950.95 If If If If 定价定价定价定价1500 Then 1500 Then 1500 Then 1500 Then 定价定价定价定价定价定价定价定价*0.80.80.80.8 End if End if End if End if End if End if End if End if 4.If 4.If 4.If 4.If 条件表达式条件表达式条件表达式条件表达式1 Then1 Then1 Then1 Then 执行符合条件值执行符合条件值执行符合条件值执行符合条件值1 1 1 1的语句的语句的语句的语句 Else If El
26、se If Else If Else If 条件表达式条件表达式条件表达式条件表达式2 Then2 Then2 Then2 Then 执行符合条件值执行符合条件值执行符合条件值执行符合条件值2 2 2 2的语句的语句的语句的语句 Else If Else If Else If Else If 条件表达式条件表达式条件表达式条件表达式3 Then3 Then3 Then3 Then 执行符合条件值执行符合条件值执行符合条件值执行符合条件值3 3 3 3的语句的语句的语句的语句 Else Else Else Else 执行上述条件都不符合的语句执行上述条件都不符合的语句执行上述条件都不符合的语句执
27、行上述条件都不符合的语句 End IfEnd IfEnd IfEnd If例：例：例：例：If If If If 定价定价定价定价2000 Then2000 Then2000 Then2000 Then 定价定价定价定价定价定价定价定价*0.650.650.650.65 Else If Else If Else If Else If 定价定价定价定价1500 Then1500 Then1500 Then1500 Then 定价定价定价定价定价定价定价定价*0.80.80.80.8 Else If Else If Else If Else If 定价定价定价定价1000 Then1000 The
28、n1000 Then1000 Then 定价定价定价定价定价定价定价定价*0.950.950.950.95 Else Else Else Else MsgBoxMsgBoxMsgBoxMsgBox“不符合调整范围不符合调整范围不符合调整范围不符合调整范围”End IfEnd IfEnd IfEnd If5.5.Select CaseSelect Case CaseCase 1 与值与值1 1相等时执行的语句相等时执行的语句 CaseCase 2 与值与值n n相等时执行的语句相等时执行的语句 Case Case n 与值与值n n相等时执行的语句相等时执行的语句 CaseCase ElseEl
29、se 上面的情况均不符合时执行的语句序列上面的情况均不符合时执行的语句序列 End selectEnd select例：例：Select CaseSelect Case a a CaseCase “A A”To To“Z Z”strstr=“upper caseupper case”CaseCase “a a”To To“z z”strstr=“lower caselower case”Case Else Case Else strstr=“unknown characterunknown character”End selectEnd select历年真题B合格五五.循环语句循环语句 1.F
30、or 1.For 1.For 1.For Next Next Next Next 语句语句语句语句 For For For For 循环变量初值循环变量初值循环变量初值循环变量初值 To To To To 终值终值终值终值 SetpSetpSetpSetp 步长步长步长步长 循环体循环体循环体循环体 Next Next Next Next 循环变量循环变量循环变量循环变量 例：例：例：例：For k=5 to 10 step 2For k=5 to 10 step 2For k=5 to 10 step 2For k=5 to 10 step 2 k=2*k k=2*k k=2*k k=2*k
31、 Next k Next k Next k Next k 循环次数为循环次数为循环次数为循环次数为1 1 1 1；k k k k的值为的值为的值为的值为202020202.Do While(2.Do While(2.Do While(2.Do While(或或或或Until)Until)Until)Until)Loop Loop Loop Loop 语句语句语句语句 Do While Do While Do While Do While 条件式条件式条件式条件式 (while(while(while(while是执行满足条件的循环体是执行满足条件的循环体是执行满足条件的循环体是执行满足条件的循
32、环体,Until,Until,Until,Until是不满足条件才执行）是不满足条件才执行）是不满足条件才执行）是不满足条件才执行）循环体循环体循环体循环体 LoopLoopLoopLoop 例：用例：用例：用例：用 Do While Do While Do While Do While Loop Loop Loop Loop 完成由完成由完成由完成由1 1 1 1加到加到加到加到100100100100 I I I I1 1 1 1 sum=0 sum=0 sum=0 sum=0 Do While I=100 Do While I=100 Do While I=100 Do While I1
33、00 Loop Until I100 Loop Until I100 Loop Until I100 历年真题C25历年真题numi16历年真题C函数过程函数过程是一种返回值的过程，该值可以在表达式中使用。是一种返回值的过程，该值可以在表达式中使用。函数声明使用函数声明使用FunctionFunction语句，并以语句，并以End FunctionEnd Function语语句作为结束。函数格式如下：句作为结束。函数格式如下：Public|PrivatePublic|PrivateFunctionFunction 函数过程名（形参）函数过程名（形参）As As 数据类型数据类型 函数程序代码函
34、数程序代码 Exit Exit FuntionFuntion 函数程序代码函数程序代码 End FunctionEnd Function8.2.4过程调用和参数传递过程调用和参数传递例：编写一个求解圆面积的函数过程例：编写一个求解圆面积的函数过程 Area()Area()Public Function Area(R As Single)As Single Public Function Area(R As Single)As Single If R=0 Then If R=0 Then MsgBoxMsgBox“圆的半径必须是正数值圆的半径必须是正数值”Area=0Area=0 Exit Ex
35、it FuntionFuntion End If End If Area=3.14*R*R Area=3.14*R*R End End FuntionFuntion子过程子过程也称为也称为subsub过程，是执行一项或一系列操作过程，是执行一项或一系列操作的过程，没有返回值。声明过程以的过程，没有返回值。声明过程以“SubSub”关关键字开头，并以键字开头，并以“End SubEnd Sub”语句作为结束。语句作为结束。格式如下：格式如下：Public|PrivatePublic|Private Sub Sub 子过程名（形参）子过程名（形参）As As 数据类型数据类型 子过程语句子过程语句
36、 Exit SubExit Sub 子过程语句子过程语句 End SubEnd Sub函数调用函数调用 参数传递：参数传递：参数传递：参数传递：1 1、传值调用：、传值调用：、传值调用：、传值调用：形式参数用形式参数用形式参数用形式参数用ByValByVal说明，表示传值。过程调用时，只是相说明，表示传值。过程调用时，只是相说明，表示传值。过程调用时，只是相说明，表示传值。过程调用时，只是相应位置实参的值应位置实参的值应位置实参的值应位置实参的值“单向单向单向单向”传送给形参处理，而被调用过程内传送给形参处理，而被调用过程内传送给形参处理，而被调用过程内传送给形参处理，而被调用过程内部对形参的
37、任何操作引起的形参值变化均不会反馈、影响实部对形参的任何操作引起的形参值变化均不会反馈、影响实部对形参的任何操作引起的形参值变化均不会反馈、影响实部对形参的任何操作引起的形参值变化均不会反馈、影响实参的值。参的值。参的值。参的值。2 2、传值调用：、传值调用：、传值调用：、传值调用：形式参数用形式参数用形式参数用形式参数用ByRefByRef说明，表示传址。过程调用时，是将相说明，表示传址。过程调用时，是将相说明，表示传址。过程调用时，是将相说明，表示传址。过程调用时，是将相应位置实参地址传送给形参处理，而被调用过程内部对形参应位置实参地址传送给形参处理，而被调用过程内部对形参应位置实参地址传
38、送给形参处理，而被调用过程内部对形参应位置实参地址传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值变化会反向影响实参的值的任何操作引起的形参值变化会反向影响实参的值的任何操作引起的形参值变化会反向影响实参的值的任何操作引起的形参值变化会反向影响实参的值例：例：例：例：PrivateSubPrivateSubtest_Clicktest_Click()()DimJAsIntegerDimJAsIntegerJ=5J=5CallCallGetData(JGetData(J)MsgBoxMsgBoxJJEndSubEndSubPrivateSubPrivateSubGetDataGetD
39、ata(ByRefByRef fAsInteger)fAsInteger)f=f+2f=f+2EndSubEndSubByVal当用当用ByRef时，时，MsBox输出是输出是7当用当用ByVal时，时，MsBox输出是输出是5历年真题DBC历年真题Dform_load，发生在装载窗体对，发生在装载窗体对象的时候象的时候form_Activate发生在窗体得到发生在窗体得到焦点的时候焦点的时候他们触发的时机完全不同，一个他们触发的时机完全不同，一个窗体，正常情况下，在其生存期窗体，正常情况下，在其生存期内，内，form_load只会发生一次，只会发生一次，而而form_activate可能会发
40、生无可能会发生无数次。数次。（1 1 1 1）打开窗体）打开窗体）打开窗体）打开窗体 DoCmd.openFormDoCmd.openFormDoCmd.openFormDoCmd.openForm（2 2 2 2）关闭窗体）关闭窗体）关闭窗体）关闭窗体 DoCmd.CloseDoCmd.CloseDoCmd.CloseDoCmd.Close（3 3 3 3）打开报表）打开报表）打开报表）打开报表 DoCmd.openReportDoCmd.openReportDoCmd.openReportDoCmd.openReport（4 4 4 4）输入框）输入框）输入框）输入框 InputBoxIn
41、putBoxInputBoxInputBox（5 5 5 5）消息框）消息框）消息框）消息框 MsgBoxMsgBoxMsgBoxMsgBox8.2.5常用操作方法常用操作方法历年真题DVBAVBAVBAVBA中提供中提供中提供中提供On Error On Error On Error On Error GoToGoToGoToGoTo语句来控制当有错语句来控制当有错语句来控制当有错语句来控制当有错误发生时程序的处理误发生时程序的处理误发生时程序的处理误发生时程序的处理On Error On Error On Error On Error GoToGoToGoToGoTo 标号：标号：标号：标
42、号：在遇到错误发生时程序转移在遇到错误发生时程序转移在遇到错误发生时程序转移在遇到错误发生时程序转移 到标号所指位置代码执行到标号所指位置代码执行到标号所指位置代码执行到标号所指位置代码执行On Error Resume NextOn Error Resume NextOn Error Resume NextOn Error Resume Next:遇到错误发生时不会考虑错遇到错误发生时不会考虑错遇到错误发生时不会考虑错遇到错误发生时不会考虑错误，并继续执行下一条语句误，并继续执行下一条语句误，并继续执行下一条语句误，并继续执行下一条语句On Error On Error On Error On Error GoToGoToGoToGoTo 0 0 0 0：用于关闭错误处理用于关闭错误处理用于关闭错误处理用于关闭错误处理8.2.6VBA程序运行错误处理程序运行错误处理DAO:DAO:DAO:DAO:是开放数据库应用程序接口是开放数据库应用程序接口是开放数据库应用程序接口是开放数据库应用程序接口历年真题AA