AccessVBA入门指导教程

AccessVBA程序设计本章重点AccessBasic编程语言运算符、函数与表达式AccessBasic语句模块的使用AccessBasic的扩展性1精选课件VBA程序的开发环境VBA中的程序与函数共有４种，分别是：一般程序（Sub）、事件程序（Event）、属性程序（Property）和函数（Function）VBA程序窗口有代码窗口、立即窗口、本地窗口、监视窗口、工程资源管理器和属性窗口等６种窗口。2精选课件AccessBasic编程语言在进行Access的VBA编程之前，要了解AccessBasic的基本编程语言一、数据类型二、变量定义三、变量的作用域3精选课件一、数据类型

在Access中可用的数据类型分为３种：标准型、自定义型、对象型。１.标准型，共有７种。（１）整数：后缀符为“％”（２）长整数：后缀符为“&”（３）单精度：后缀符为“!”（４）双精度：后缀符为“#”（５）货币：后缀符为“@”（６）字符串：后缀符为“$”（７）变体：可用于任何数据类型。２.自定义型：它是用关键词Type标本的，如：

4精选课件例如TypePointXasIntegerYasintegerEndType即定义了一个点（point）的数据结构，声明和使用变量形式如：DimpCurPointasPointPCurPoint.X=10PCurPoint.Y=105精选课件３.对象型Access中有１７种对象型，是在程序中操作数据库的途径，操作数据库都是通过操作各种数据库对象的属性和方法来实现的。分别为：Database,Workspace,Document,Container,User,Group,Report,Control,TableDef,QueryDef,Recordset,Field,Index,Relation,Parameter,Property.6精选课件二、变量定义

在Access中用来定义变量的关键词有：Dim,Static,Global,ReDim.1.Dim,这是使用最多的一个关键词，其语法定义如下：Dim变量名As类型名Dim数组名（下标范围）Ａs类型名Dim动态数组名（）Ａs类型名Dim数组名（下标开始值To下标结束值）As类型名7精选课件例如DimnNum(10,10)AsIntegerDimnNum(-10To10,1To5)AsInteger2.Static,用来定义一个模块级的静态变量。语法格式为：Static变量名As类型Static数组名（下标）As类型3.Global,用来定义一个全局变量。语法格式为：Global变量名As类型名Global数组名（下标范围）As类型名Global动态数组名（）As类型名8精选课件例如：GlobalnNumberAsIntegerGlobalnNumber()AsIntegerGlobalnNum(10,10)AsInteger9精选课件4.ReDim4.ReDim,该语句与Dim语句联合起来使用，来实现在Access中动态分配内存。使用方法为：首先在代码中使用Dim或Global来声明一个动态数组，但不确定数组的宽度和维数，在需要使用数组来存储数据时，使用ReDim来声明数组的宽度和维数，但这时已经不能更改数组的类型了。使用ReDim可以为一个动态数组分配内存，多次指定不同的宽度，但多次定义时，维数必须和第一次使用ReDim定义的维数一致，不能再次进行修改了。另外，ReDim语句之后还可以使用修补词“Preserve”将原数组中已经分配的单元保留下来，这时当第二次使用R分配内存时，只能在最后一维上变动。例如：10精选课件下面的例子是非法操作：ReDimnNum(5,5,10)ReDimPreservenNum(5,7,10)应该使用下面的代码：ReDimnNum(5,5,10)ReDimPreservenNum(5,5,30)动态分配数组后，有时需要知道数组的上、下界，在A中使用LBount(),UBound()就可以测试出数组的上、下界。具体语法如下：11精选课件Lbound(数组名[，维数])例如：ReDimstrName(0,To10,2To10,-1To10)LBount(strName,1)的返回值为0；LBount(strName,2)的返回值为2；LBount(strName,3)的返回值为-1。UBound(数组名[，维数]）可以返回数组的上界，使用情况和LBount相同。12精选课件三、变量的作用域程序中声明的每个变量都有作用域，超出它的作用域后，变量就失去作用，成为没有定义的字符。Access中变量的作用域有3类。(1)全局变量，这种变量在数据库应用系统中的所有地方都可以使用，定义一个全局变量只能在模块对象中进行，使用Global来定义。(2)对象级变量，可以在一个对象（窗体、报表、模块）中的任何地方使用，不能跨越所在的对象。在对象的General中进行定义，使用Dim关键词。(3)模块级变量，只能在一个模块中使用，不能跨出模块，这种变量即常用的局部变量。13精选课件10.4AccessBasic语句Access支持结构化语言中的顺序、分支、循环语句，另外还有一些特殊作用的功能语句。一、GOTO语句VBA的GOTOLabal语句可以跳过一些代码块到Labal的位置，并从该点继续执行。Labal标号要从代码的最左边（第一列）开始写，这个位置通常会影响代码的缩进格式。一般情况下不要使用GOTO语句。在VBA程序中使用GOTO语句的唯一一个目的就是用OnErrorGoToLabal语句来处理错误。14精选课件二、IF语句If/Then/Endif语句是典型的判断分支控制语句。语法格式为：If条件[=True]Then…条件为真时执行的语句Endif另外还可以使用嵌套IF语句格式：If条件1[=True]Then…条件为真时执行的语句Elself条件2[=True]Then…条件1不成立但条件2成立时，执行的语句Endif15精选课件例如下面的IF语句用来判断一个字符是否是字母，而且判断它的大小写。IfAsc(strChar)>63AndAsc(strChar<91)ThenstrCharType=“大写字母子”ElselfAsc(strChar)>96AndAsc(strChar<123)ThenstrCharType=“小写字母”EndIf16精选课件二、Select语句当有多种选择时，使用If…Else语句，这样的语句需要多重嵌套，使得程序十分复杂，不容易读，这时就可以使用Select语句，Select语句是一个多分支控制语句。语法格式为：SelectCase表达式Case值1语句1Case值2语句2…CaseElse语句Endselect17精选课件例如：下面语句用来对字母进行判断SelectCasestrCharCase“A”To“Z”strCharType=“大写字母”Case“a”To“z”strCharType=“小写字母”Case“0”To“9”strCharType=“数字字母”Case“!”,”?”,”.”,”,””;”strCharType=“标点符号”Case“”strCharType=“空格”Case<32strCharType=“特殊字母”CaseElsestrCharType=“其它字母”EndSelect18精选课件四、For语句For语句是最常用的循环控制语句。语法格式为：For变量=开始值To结束值Step步长循环执行语句Next变量例如：下面使用For语句为数值赋初始值。FornLeter=1To26strChar(nLeter)=Char(nLeter+63)NextnLeter注意当STEP不写时，默认的步长是1。19精选课件五、DO语句Do语句是另外一种循环语句，有两种格式：DoWhile…Loop和DoUntil…Loop.1.Dowhile条件[=True]循环语句，含有“条件”的变更语句Loop2.DoUntil条件<>True(或Not条件）