《Access VBA程序设计.ppt》由会员分享，可在线阅读，更多相关《Access VBA程序设计.ppt（16页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、Access VBA程序设计,本章重点Access Basic编程语言运算符、函数与表达式Access Basic语句模块的使用Access Basic的扩展性,VBA 程序的开发环境,VBA中的程序与函数共有种，分别是：一般程序（Sub）、事件程序（Event）、属性程序（Property）和函数（Function）VBA程序窗口有代码窗口、立即窗口、本地窗口、监视窗口、工程资源管理器和属性窗口等种窗口。,Access Basic编程语言,在进行Access的VBA编程之前，要了解Access Basic的基本编程语言一、数据类型二、变量定义三、变量的作用域,.对象型,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 类型名,例如,Dim nNum(10,10) As IntegerDim nNum(-10 To 10,1To 5) As Integer2.Static,用来定义一个模块级的静态变量。语法格式为： Static 变量名 As 类型Static 数组名（下标）As 类型3.Global,用来定义一个全局变量。语法格式为：Global 变量名 As 类型名Global 数组名（下标范围） As 类型名Global 动态数组名（）As 类型名,例如：Global nNumber As IntegerGlobal nNumber
4、 ()As IntegerGlobal nNum(10,10) As Integer,三、变量的作用域,程序中声明的每个变量都有作用域，超出它的作用域后，变量就失去作用，成为没有定义的字符。Access中变量的作用域有3类。(1)全局变量，这种变量在数据库应用系统中的所有地方都可以使用，定义一个全局变量只能在模块对象中进行，使用Global来定义。(2)对象级变量，可以在一个对象（窗体、报表、模块）中的任何地方使用，不能跨越所在的对象。在对象的General中进行定义，使用Dim关键词。(3)模块级变量，只能在一个模块中使用，不能跨出模块，这种变量即常用的局部变量。,10.4 Access B
5、asic 语句,Access支持结构化语言中的顺序、分支、循环语句，另外还有一些特殊作用的功能语句。一、GOTO语句 VBA的GOTO Labal语句可以跳过一些代码块到Labal的位置，并从该点继续执行。Labal标号要从代码的最左边（第一列）开始写，这个位置通常会影响代码的缩进格式。一般情况下不要使用GOTO语句。在VBA程序中使用GOTO语句的唯一一个目的就是用On Error GoTo Labal语句来处理错误。,二、IF语句,If/Then/End if语句是典型的判断分支控制语句。语法格式为：If 条件=True Then 条件为真时执行的语句End if 另外还可以使用嵌套IF语
6、句格式：If条件1=TrueThen条件为真时执行的语句Elself条件2=True Then条件1不成立但条件2成立时，执行的语句End if,例如,下面的IF语句用来判断一个字符是否是字母，而且判断它的大小写。If Asc(strChar)63 And Asc(strChar96 And Asc(strChar123) ThenstrCharType=“小写字母”End If,二、Select语句,当有多种选择时，使用If Else语句，这样的语句需要多重嵌套，使得程序十分复杂，不容易读，这时就可以使用Select语句，Select语句是一个多分支控制语句。语法格式为：Select Cas
7、e表达式 Case值1 语句1 Case值2 语句2 Case Else 语句End select,例如：下面语句用来对字母进行判断,Select Case strChar Case “A”To “Z” strCharType=“大写字母” Case “a”To “z” strCharType=“小写字母” Case “0”To “9” strCharType=“数字字母” Case “!”,”?”,”.”,”,”;” strCharType=“标点符号” Case “” strCharType=“空格” Case 32 strCharType=“特殊字母” Case Else strChar
8、Type=“其它字母”End Select,四、For语句,For语句是最常用的循环控制语句。语法格式为：For 变量=开始值 To 结束值 Step 步长 循环执行语句Next 变量例如：下面使用For语句为数值赋初始值。For nLeter=1 To 26 strChar(nLeter)=Char(nLeter+63)Next nLeter 注意 当STEP不写时，默认的步长是1。,五、DO语句,Do语句是另外一种循环语句，有两种格式：Do WhileLoop和Do UntilLoop.1.Do while 条件= True 循环语句，含有“条件”的变更语句Loop2.Do Until 条件 True(或Not 条件） 循环语句Loop,六、功能语句,AppactivateBeepChDriveDataDelete ControlDelete Report ControlDoCmdEraseMsgBox 使用格式为:MsgBox(msg ,type,title)Set 使用格式为：Set ObjName=ObjectValue.Time,