Access+VBA程序设计_IT168文库.pptVIP

Access VBA程序设计 本章重点 Access Basic编程语言 运算符、函数与表达式 Access Basic语句 模块的使用 Access Basic的扩展性 VBA 程序的开发环境 VBA中的程序与函数共有４种，分别是：一般程序（Sub）、事件程序（Event）、属性程序（Property）和函数（Function） VBA程序窗口有代码窗口、立即窗口、本地窗口、监视窗口、工程资源管理器和属性窗口等６种窗口。 Access Basic编程语言 在进行Access的VBA编程之前，要了解Access Basic的基本编程语言 一、数据类型 二、变量定义 三、变量的作用域 一、数据类型 在Access中可用的数据类型分为３种：标准型、自定义型、对象型。 １ .标准型，共有７种。 （１）整数：后缀符为“％” （２）长整数：后缀符为“” （３）单精度：后缀符为“!” （４）双精度：后缀符为“#” （５）货币：后缀符为“@” （６）字符串：后缀符为“$” （７）变体：可用于任何数据类型。 ２. 自定义型：它是用关键词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,Recordset,Field,Index,Relation,Parameter,Property. 二、变量定义 在Access中用来定义变量的关键词有：Dim,Static,Global,ReDim. 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,用来定义一个模块级的静态变量。语法格式为： Static 变量名 As 类型 Static 数组名（下标）As 类型 3.Global,用来定义一个全局变量。语法格式为： Global 变量名 As 类型名 Global 数组名（下标范围） As 类型名 Global 动态数组名（）As 类型名 例如：Global nNumber As Integer Global nNumber ()As Integer Global nNum(10,10) As Integer 4.ReDim 4.ReDim,该语句与Dim语句联合起来使用，来实现在Access中动态分配内存。使用方法为：首先在代码中使用Dim或Global来声明一个动态数组，但不确定数组的宽度和维数，在需要使用数组来存储数据时，使用ReDim来声明数组的宽度和维数，但这时已经不能更改数组的类型了。使用ReDim可以为一个动态数组分配内存，多次指定不同的宽度，但多次定义时，维数必须和第一次使用ReDim定义的维数一致，不能再次进行修改了。另外，ReDim语句之后还可以使用修补词“Preserve”将原数组中已经分配的单元保留下来，这时当第二次使用R分配内存时，只能在最后一维上变动。例如： 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相同。 三、变量的作用域 程序中声明的每个变量都有作用域，超出它的作用域后，变量就失去作用，成为没有定义的字符。Access中变量的作用域有3类。 (1)全局变量，这种变量在数据库应用系统中的所有地方都可以使用，定义一个全局变量只能在模块对象中进行，使用Global来定义。 (2)对象级变量，可以在一个对象（窗体、报表、模块）中的任何地方使用，不能跨越所在的对象。在对象的General中进行定义，使