资源描述：
《Access VBA程序设计.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、AccessVBA程序设计本章重点AccessBasic编程语言运算符、函数与表达式AccessBasic语句模块的使用AccessBasic的扩展性VBA程序的开发环境VBA中的程序与函数共有４种，分别是：一般程序（Sub）、事件程序（Event）、属性程序（Property）和函数（Function）VBA程序窗口有代码窗口、立即窗口、本地窗口、监视窗口、工程资源管理器和属性窗口等６种窗口。AccessBasic编程语言在进行Access的VBA编程之前，要了解AccessBasic的基本编程语言一、数据类型二、变量定义三、变量的作用域３.对象型Access中有１７种对象型，
2、是在程序中操作数据库的途径，操作数据库都是通过操作各种数据库对象的属性和方法来实现的。分别为：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动态数组名（
3、）Ａs类型名Dim数组名（下标开始值To下标结束值）As类型名例如DimnNum(10,10)AsIntegerDimnNum(-10To10,1To5)AsInteger2.Static,用来定义一个模块级的静态变量。语法格式为：Static变量名As类型Static数组名（下标）As类型3.Global,用来定义一个全局变量。语法格式为：Global变量名As类型名Global数组名（下标范围）As类型名Global动态数组名（）As类型名例如：GlobalnNumberAsIntegerGlobalnNumber()AsIntegerGlobalnNum(10,10)AsI
4、nteger三、变量的作用域程序中声明的每个变量都有作用域，超出它的作用域后，变量就失去作用，成为没有定义的字符。Access中变量的作用域有3类。(1)全局变量，这种变量在数据库应用系统中的所有地方都可以使用，定义一个全局变量只能在模块对象中进行，使用Global来定义。(2)对象级变量，可以在一个对象（窗体、报表、模块）中的任何地方使用，不能跨越所在的对象。在对象的General中进行定义，使用Dim关键词。(3)模块级变量，只能在一个模块中使用，不能跨出模块，这种变量即常用的局部变量。10.4AccessBasic语句Access支持结构化语言中的顺序、分支、循环语句，另外
5、还有一些特殊作用的功能语句。一、GOTO语句VBA的GOTOLabal语句可以跳过一些代码块到Labal的位置，并从该点继续执行。Labal标号要从代码的最左边（第一列）开始写，这个位置通常会影响代码的缩进格式。一般情况下不要使用GOTO语句。在VBA程序中使用GOTO语句的唯一一个目的就是用OnErrorGoToLabal语句来处理错误。二、IF语句If/Then/Endif语句是典型的判断分支控制语句。语法格式为：If条件[=True]Then…条件为真时执行的语句Endif另外还可以使用嵌套IF语句格式：If条件1[=True]Then…条件为真时执行的语句Elself条件
6、2[=True]Then…条件1不成立但条件2成立时，执行的语句Endif例如下面的IF语句用来判断一个字符是否是字母，而且判断它的大小写。IfAsc(strChar)>63AndAsc(strChar<91)ThenstrCharType=“大写字母子”ElselfAsc(strChar)>96AndAsc(strChar<123)ThenstrCharType=“小写字母”EndIf二、Select语句当有多种选择时，使用If…Else语句，这样的语句需要多重嵌套，使得程序十分复杂，不容易读，这时就可以使用Select语句，Select语句是一个多分支控制语句。语法格式为：S
7、electCase表达式Case值1语句1Case值2语句2…CaseElse语句Endselect例如：下面语句用来对字母进行判断SelectCasestrCharCase“A”To“Z”strCharType=“大写字母”Case“a”To“z”strCharType=“小写字母”Case“0”To“9”strCharType=“数字字母”Case“!”,”?”,”.”,”,””;”strCharType=“标点符号”Case“”strCharType=“空格”Case<32
