武汉大学学政教育培训中心 Access总结 讲师：何少丰
程组合框中会列出该对象的所有事件过程，再从该对象过程列表选项中选择某个事件名称，系统会自动生成相应的事件过程模块，用户添加代码即可。
双击工程窗口中的任何类或对象都可以在代码窗口中打开相应代码进行编辑处理。 四、程序语句书写原则（详见书本P206） 8.3.3 数据类型和数据库对象 一、标准数据类型 （1）布尔型数据
布尔型数据只有两个值True或False。布尔型数据转换为其他类型数据时，Ture转换为-1，False转换为0；其他类型数据转换为布尔型数据时，0转换为False，其他类型转换为Ture。 （2）日期型数据
“日期/时间”类型数据必须前后用“#”号封住。 如#2007-1-1#、#2002-5-4 14:30:00 PM#。 （3）变体类型数据
变体类型数据是特殊的数据类型。VBA中规定，如果没有显示声明或使用符号来定义变量的数据类型，则默认为变体类型。
二、用户定义的数据类型 （详见书本P208）
应用过程中可以建立包含一个或多个VBA标准数据类型的数据类型，这就是用户定义数据类型。它不仅包含VBA的标准数据类型，还包含其他用户定义的数据类型。 用户定义数据类型可以在Type ... End Type关键字间定义，定义格式如下： Type[数据类型名]
＜域名＞As＜数据类型＞ ＜域名＞As＜数据类型＞ …
End Type
三、数据库对象 （详见书本P208） 8.3.4 变量与常量
变量是程序运行过程中值会发生变化的数据。如同一间旅馆客房，昨天可住旅客A，今天住旅客B，明天又有可能被闲置。变量的命名规则如下： （1）以字母或汉字开头，后可跟字母、数字或下划线。 （2）变量名最长为255个字符。
（3）不区分变量名的大小写，不能使用关键字。 （4）字符之间必须并排书写，不能出现上下标。 以下是合法的变量名：
a，x， x3， BOOK_1，sum5 以下是非法的变量名：
3s s*T -3x bowy-1 if
常量是在程序中可以直接引用的实际值，其值在程序运行过程中不变。在VBA中，常量可以分为3种：直接常量、符号常量和系统常量 一、变量的声明
VBA变量声明有两种方法。 1、显式声明
VBA中定义变量的格式为： Dim 变量名 [AS 类型]
格式中Dim是一个VBA命令，此处用于定义变量；As是关键字，此处用于指定变
36
武汉大学学政教育培训中心 Access总结 讲师：何少丰
量的数据类型。
例如：Dim bAge as Integer ? bAge为整型变量 2、隐含声明
VBA允许用户在编写应用程序时，不声明变量而直接使用，这就是隐式声明。所有隐式声明的变量都是Variant数据类型。例如：
Dim m,n, ?m，n为变体Variant变量 NewVar=528 ? NewVar为Variant类型变量，其值为258。 二、强制声明
在默认情况下，VBA允许在代码中使用未声明的变量，如果在模块设计窗口的顶部“通用—声明”区域中，加入语句： Option Explicit
强制要求所有变量必须定义才能使用。这种方法只能为当前模块设置了自动变量声明功能，如果想为所有模块都启用此功能，可以单击菜单命令“工具”下“选项”对话框中，选中“要求变量声明”选项即可。 三．变量的作用域
（1）局部范围（Local）
变量定义在模块的过程内部，过程代码执行时才可见。在子过程或函数过程中定义的或直接使用的变量作用范围都是局部的。在子过程或函数内部使用Dim、Static…As关键字说明的变量就是局部范围的。 （2）模块范围（Module）
变量定义在模块的所有过程之外的起始位置，运行时在模块所包含的所有子过程或函数过程中可见。在模块的通用说明区，用Dim、Static、Private…As关键字定义的变量作用域都是模块范围。
（3）全局范围（Public）
变量定义在标准模块的所有过程之外的起始位置，运行时在类模块和标准模块的所有子过程或函数过程中都可见。在标准模块的变量定义区域，用Public…As关键字说明的变量就属于全局的范围。
变量的持续时间（生命周期）是从变量定义语句所在的过程第一次运行，到程序代码执行完毕并将控制权交回调用它的过程为止的时间。 四．数据库对象变量
Access建立的数据库对象及其属性，均可被看成是VBA程序代码中的变量及其指定的值来加以引用。 例如，Access中窗体和报表对象的引用格式为： Forms ！窗体名称 ！控件名称 [.属性名称] 或 Reports ！报表名称 ！控件名称 [.属性名称]
关键字Forms或Reports分别表示窗体或报表对象集合。感叹号“!”分隔开对象名称和控件名称。“属性名称”部分缺省，则为控件基本属性。
如果对象名称中含有空格或标点符号，就要用方括号把名称括起来。 五．数组
数组是在有规则的结构中包含一种数据类型的一组数据，也称作数组元素变量。数组变量由变量名和数组下标构成，使用数组必须先定义数组。通常用Dim语句来定义数组，定义格式为：
Dim 数组名([<下标下限>to]<下标上限>)[As <数据类型>]
缺省情况下，下标下限为0，数组元素从“数组名(0)”至“数组名(下标上限)”；如果使用to选项，则可以安排非0下限。
37
武汉大学学政教育培训中心 Access总结 讲师：何少丰
例如，dim score（10）as Integer 定义了11个整形数构成的数组，数组元素为score(0) 至score(10) 再如， dim score（1 to 10）as Integer 定义了10个元素的整型数组，数组元素为score(1)至 score(10) 注：（1）所有数组元素在内存连续存放 （2）根据下标区分数组元素 关于数组的定义，还有下面的几点说明： （1）定义数组时数组名的命名规则与变量名的命名规则相同。 （2）一般在定义数组时应给出数组的上界和下界。但也可以省略下界，<下界>缺省 为0。 例如，Dim a（10） As Single 默认情况下，数组a由11个元素组成。 若希望下标从1开始，可在模块的通用声明段使用Option Base语句声明。其使用格式为 Option Base 0|1 ' 后面的参数只能取 0 或 1 （3）<下界>和<上界>不能使用变量，必须是常量，常量可以是字面常量或符号常量，一般是整型常量。 （4）如果省略As子句，则数组的类型为Varient变体类型。 二维数组的定义 格式为： Dim 数组名([<下界>to]<上界>，[<下界>to]<上界>)[As <数据类型>] 例如，Dim c（1 To 3, 1 To 4）As Single c（1，1） c（2，1） c（3，1） c（1，2） c（2，2） c（3，2） c（1，3） c（2，3） c（3，3） c（1，4） c（2，4） c（3，4） 六、变量标识命名法规 在编写VBA程序代码时，会用到大量的变量名称和不同的数据类型。对于控件对象，可以用VBA的Set关键字将每个命名的控件对象指定为一个变量名称。 目前，VB和VBA均推荐使用Hungarian符号法作为命名法则。该方法也被广泛用在C和C++等一些程序中。 Hungarian符号法使用一组代表数据类型的码。用小写字母作为变量名的前缀。 七．符号常量 如果程序中多处用到某个常量，将其定义成符号常量可增加代码的可读性，也便于维护。 符号常量用关键字Const来定义，格式如下： Const 符号常量名称=常量值 例如： Const PI as single=3.1415926 定义了一个符号常量PI，其值为3.1415926 若是在模块的声明区中定义符号常量，则建立一个所有模块都可以用的全局符号常量。一般是Const前加Global或Public关键字。 八．系统常量 这是一类特殊的符号常量，Access系统内部包含若干个启动时就建立的系统常量，有True、False、Yes、No、On、Off和Null等。在编码时可以直接使用。 例如： VBA类库中，vbRed代表红色，vbBlue代表蓝色。 这里开始的两个字母表示所在的类库 Access类库的常量以ac开始，如acForm等。
38
武汉大学学政教育培训中心 Access总结 讲师：何少丰
ADO类库的常量以ad开始，如adOpenKeyset。 8. 3.5 常用标准函数 （本节请详见书本P213）
在VBA中，除在模块创建中可以定义子过程与函数过程完成特定功能外，又提供了近百个内置的标准函数，可以方便完成许多操作。
标准函数一般用于表达式中，有的能和语句一样使用。其使用形式如下： 函数名(＜参数1＞＜，参数2＞[，参数3][，参数4][，参数5]…)
其中，函数名必不可少，函数的参数放在函数名后的圆括号中，参数可以是常量、变量或表达式，可以有一个或多个，少数函数为无参函数。 8.3.6 运算符和表达式 （详见书本P219）
在VBA编程语言中，提供了许多运算符来完成各种形式的运算和处理。根据运算不同，可以分成4种类型的运算符：算术运算符、关系运算符、逻辑运算符和连接运算符。 8.4 VBA流程控制语句
一个语句是能够完成某项操作的一条命令。VBA程序的功能就是由大量的语句串命令构成。 VBA程序语句按照其功能不同分成两大类型： (1)声明语句，用于给变量、常量或过程定义命名；
(2)执行语句，用于执行赋值操作，调用过程，实现各种流程控制。 执行语句分为3种结构：
(1)顺序结构，按照语句顺序顺次执行。
(2)条件结构，又称为选择结构，根据条件选择执行路径。 (3)循环结构，重复执行某一段程序语句。 8.4.1 赋值语句
赋值语句是最基本的语句。它的功能是给变量或对象的属性赋值。其格式为 <变量名>＝<表达式> 或 <对象名.属性>＝<表达式> 例如：
Rate = 0.1 ?给变量Rate赋值0.1 Me!Text1.Value = “欢迎来到领航教育 \ “给控件的属性赋值
8.4.2 条件语句 1．If…Then 语句 例如： 语句格式为
If <表达式> Then
<语句块1> End If
?输入一个数并在立即窗口输出其值 Dim x As Integer
x = InputBox(\请输入x的值:\If x Then
Debug.Print x End If
39
2．If…Then…Else 语句 语句格式为
If <表达式> Then <语句块1> Else
<语句块2> End If 说明：
（1）<表达式>可以是任何表达式，一般为关系表达式或布尔表达式。如果是其他表达式，则非0认为是True，0认为是False。
（2）执行时，先判断表达式的值，为True则执行语句块1，否则执行语句块2。 例如：输入两个数并在立即窗口输出其中较大的数 Dim x As Integer, y As Integer x = InputBox(\请输入x的值:\y = InputBox(\请输入y的值:\If x > y Then Debug.Print x Else
Debug.Print y End If
3．If…Then…ElseIf 语句 语句格式为
If <表达式1> Then <语句块1>
ElseIf <表达式2>Then <语句块2> …
[ElseIf <表达式n>Then <语句块n> Else
<语句块 n+1> ] End If
运行时，从表达式1开始逐个测试条件，当找到第一个为True的条件时，即执行该条件后所对应的语句块。
4．Select Case—End Select 语句 语句格式为
Select Case <变量或表达式> Case <表达式1> 语句块1 Case <表达式2> 语句块2 … [Case Else
语句块n+1]