AccessVBA入门指导教程
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
(3)模块级变量，只能在一个模块中使用，不能跨 出模块，这种变量即常用的局部变量。
.
10.4 Access Basic 语句
Access支持结构化语言中的顺序、分支、循环语 句，另外还有一些特殊作用的功能语句。
一、GOTO语句
VBA的GOTO Labal语句可以跳过一些代码块到 Labal的位置，并从该点继续执行。Labal标号要 从代码的最左边（第一列）开始写，这个位置 通常会影响代码的缩进格式。
.
三、变量的作用域
程序中声明的每个变量都有作用域，超出它的作用 域后，变量就失去作用，成为没有定义的字符。 Access中变量的作用域有3类。
(1)全局变量，这种变量在数据库应用系统中的所 有地方都可以使用，定义一个全局变量只能在模 块对象中进行，使用Global来定义。
(2)对象级变量，可以在一个对象（窗体、报表、 模块）中的任何地方使用，不能跨越所在的对象。 在对象的General中进行定义，使用Dim关键词。
• VBA程序窗口有代码窗口、立即窗口、 本地窗口、监视窗口、工程资源管理器 和属性窗口等６种窗口。
.
Access Basic编程语言
• 在进行Access的VBA编程之前，要了解 Access Basic的基本编程语言
• 一、数据类型 • 二、变量定义 • 三、变量的作用域
.
一、数据类型
在Access中可用的数据类型分为３种：标准型、自定义型、对 象型。
式为： Static 变量名 As 类型 Static 数组名（下标）As 类型 3.Global,用来定义一个全局变量。语法格式Biblioteka Baidu： Global 变量名 As 类型名 Global 数组名（下标范围） As 类型名 Global 动态数组名（）A. s 类型名
例如：Global nNumber As Integer Global nNumber ()As Integer Global nNum(10,10) As Integer
下面的例子是非法操作： ReDim nNum(5,5,10) ReDim Preserve nNum(5,7,10) 应该使用下面的代码： ReDim nNum(5,5,10) ReDim Preserve nNum(5,5,30) 动态分配数组后，有时需要知道数组的上、下界，
在A中使用LBount(),UBound()就可以测试出数组的 上、下界。具体语法如下：
Access VBA程序设计
本章重点
• Access Basic编程语言 • 运算符、函数与表达式 • Access Basic语句 • 模块的使用 • Access Basic的扩展性
.
VBA 程序的开发环境
• VBA中的程序与函数共有４种，分别是： 一般程序（Sub）、事件程序（Event）、 属性程序（Property）和函数（Function）
1.Dim,这是使用最多的一个关键词，其语法定义 如下：
Dim 变量名 As 类型名 Dim 数组名（下标范围）Ａs 类型名 Dim 动态数组名（） Ａs 类型名 Dim 数组名（下标开始值 To 下标结束值） As 类
型名
.
例如
• Dim nNum(10,10) As Integer • Dim nNum(-10 To 10,1To 5) As Integer 2.Static,用来定义一个模块级的静态变量。语法格
一般情况下不要使用GOTO语句。在VBA程序中 使用GOTO语句的唯一一个目的就是用On Error GoTo Labal语句来处理错误。
.
二、IF语句
If/Then/End if语句是典型的判断分支控制语句。语 法格式为：
.
4.ReDim
• 4.ReDim,该语句与Dim语句联合起来使用，来实 现在Access中动态分配内存。使用方法为：首先 在代码中使用Dim或Global来声明一个动态数组， 但不确定数组的宽度和维数，在需要使用数组来 存储数据时，使用ReDim来声明数组的宽度和维 数，但这时已经不能更改数组的类型了。使用 ReDim可以为一个动态数组分配内存，多次指定 不同的宽度，但多次定义时，维数必须和第一次 使用ReDim定义的维数一致，不能再次进行修改 了。另外，ReDim语句之后还可以使用修补词 “Preserve”将原数组中已经分配的单元保留下来， 这时当第二次使用R分配内存时，只能在最后一 维上变动。例如： .
１ .标准型，共有７种。 （１）整数：后缀符为“％” （２）长整数：后缀符为“&” （３）单精度：后缀符为“!” （４）双精度：后缀符为“#” （５）货币：后缀符为“@” （６）字符串：后缀符为“$” （７）变体：可用于任何数据类型。
２. 自定义型：它是用关键词Type标本的，如：
.
例如
Type Point X as Integer Y as integer
End Type 即定义了一个点（point ）的数据结构，声明和使
用变量形式如： Dim pCurPoint as Point PCurPoint.X=10 PCurPoint.Y=10
.
３.对象型
Access中有１７种对象型，是在程序中操作 数据库的途径，操作数据库都是通过操作 各种数据库对象的属性和方法来实现的。 分别为：
Database,Workspace,Document,Container,User, Group,Report,Control,TableDef,QueryDef,Re cordset,Field,Index,Relation,Parameter,Proper ty.
.
二、变量定义
在Access中用来定义变量的关键词有： Dim,Static,Global,ReDim.
.
Lbound(数组名[，维数]) 例如： ReDim strName(0,To 10,2 To 10,-1 To 10) LBount(strName,1)的返回值为0；
LBount(strName,2) 的返回值为2； LBount(strName,3)的返回值为-1。 UBound( 数组名[，维数]）可以返回数组的上 界，使用情况和LBount相同。
.
10.4 Access Basic 语句
Access支持结构化语言中的顺序、分支、循环语 句，另外还有一些特殊作用的功能语句。
一、GOTO语句
VBA的GOTO Labal语句可以跳过一些代码块到 Labal的位置，并从该点继续执行。Labal标号要 从代码的最左边（第一列）开始写，这个位置 通常会影响代码的缩进格式。
.
三、变量的作用域
程序中声明的每个变量都有作用域，超出它的作用 域后，变量就失去作用，成为没有定义的字符。 Access中变量的作用域有3类。
(1)全局变量，这种变量在数据库应用系统中的所 有地方都可以使用，定义一个全局变量只能在模 块对象中进行，使用Global来定义。
(2)对象级变量，可以在一个对象（窗体、报表、 模块）中的任何地方使用，不能跨越所在的对象。 在对象的General中进行定义，使用Dim关键词。
• VBA程序窗口有代码窗口、立即窗口、 本地窗口、监视窗口、工程资源管理器 和属性窗口等６种窗口。
.
Access Basic编程语言
• 在进行Access的VBA编程之前，要了解 Access Basic的基本编程语言
• 一、数据类型 • 二、变量定义 • 三、变量的作用域
.
一、数据类型
在Access中可用的数据类型分为３种：标准型、自定义型、对 象型。
式为： Static 变量名 As 类型 Static 数组名（下标）As 类型 3.Global,用来定义一个全局变量。语法格式Biblioteka Baidu： Global 变量名 As 类型名 Global 数组名（下标范围） As 类型名 Global 动态数组名（）A. s 类型名
例如：Global nNumber As Integer Global nNumber ()As Integer Global nNum(10,10) As Integer
下面的例子是非法操作： ReDim nNum(5,5,10) ReDim Preserve nNum(5,7,10) 应该使用下面的代码： ReDim nNum(5,5,10) ReDim Preserve nNum(5,5,30) 动态分配数组后，有时需要知道数组的上、下界，
在A中使用LBount(),UBound()就可以测试出数组的 上、下界。具体语法如下：
Access VBA程序设计
本章重点
• Access Basic编程语言 • 运算符、函数与表达式 • Access Basic语句 • 模块的使用 • Access Basic的扩展性
.
VBA 程序的开发环境
• VBA中的程序与函数共有４种，分别是： 一般程序（Sub）、事件程序（Event）、 属性程序（Property）和函数（Function）
1.Dim,这是使用最多的一个关键词，其语法定义 如下：
Dim 变量名 As 类型名 Dim 数组名（下标范围）Ａs 类型名 Dim 动态数组名（） Ａs 类型名 Dim 数组名（下标开始值 To 下标结束值） As 类
型名
.
例如
• Dim nNum(10,10) As Integer • Dim nNum(-10 To 10,1To 5) As Integer 2.Static,用来定义一个模块级的静态变量。语法格
一般情况下不要使用GOTO语句。在VBA程序中 使用GOTO语句的唯一一个目的就是用On Error GoTo Labal语句来处理错误。
.
二、IF语句
If/Then/End if语句是典型的判断分支控制语句。语 法格式为：
.
4.ReDim
• 4.ReDim,该语句与Dim语句联合起来使用，来实 现在Access中动态分配内存。使用方法为：首先 在代码中使用Dim或Global来声明一个动态数组， 但不确定数组的宽度和维数，在需要使用数组来 存储数据时，使用ReDim来声明数组的宽度和维 数，但这时已经不能更改数组的类型了。使用 ReDim可以为一个动态数组分配内存，多次指定 不同的宽度，但多次定义时，维数必须和第一次 使用ReDim定义的维数一致，不能再次进行修改 了。另外，ReDim语句之后还可以使用修补词 “Preserve”将原数组中已经分配的单元保留下来， 这时当第二次使用R分配内存时，只能在最后一 维上变动。例如： .
１ .标准型，共有７种。 （１）整数：后缀符为“％” （２）长整数：后缀符为“&” （３）单精度：后缀符为“!” （４）双精度：后缀符为“#” （５）货币：后缀符为“@” （６）字符串：后缀符为“$” （７）变体：可用于任何数据类型。
２. 自定义型：它是用关键词Type标本的，如：
.
例如
Type Point X as Integer Y as integer
End Type 即定义了一个点（point ）的数据结构，声明和使
用变量形式如： Dim pCurPoint as Point PCurPoint.X=10 PCurPoint.Y=10
.
３.对象型
Access中有１７种对象型，是在程序中操作 数据库的途径，操作数据库都是通过操作 各种数据库对象的属性和方法来实现的。 分别为：
Database,Workspace,Document,Container,User, Group,Report,Control,TableDef,QueryDef,Re cordset,Field,Index,Relation,Parameter,Proper ty.
.
二、变量定义
在Access中用来定义变量的关键词有： Dim,Static,Global,ReDim.
.
Lbound(数组名[，维数]) 例如： ReDim strName(0,To 10,2 To 10,-1 To 10) LBount(strName,1)的返回值为0；
LBount(strName,2) 的返回值为2； LBount(strName,3)的返回值为-1。 UBound( 数组名[，维数]）可以返回数组的上 界，使用情况和LBount相同。