Access VBA程序设计 本章重点 Access Basic编程语言 运算符、函数与表达式 Access Basic语句 模块的使用

Presentation on theme: "Access VBA程序设计 本章重点 Access Basic编程语言 运算符、函数与表达式 Access Basic语句 模块的使用"— Presentation transcript:

1 Access VBA程序设计 本章重点 Access Basic编程语言 运算符、函数与表达式 Access Basic语句 模块的使用

2 VBA 程序的开发环境 VBA中的程序与函数共有４种，分别是：一般程序（Sub）、事件程序（Event）、属性程序（Property）和函数（Function） VBA程序窗口有代码窗口、立即窗口、本地窗口、监视窗口、工程资源管理器和属性窗口等６种窗口。

3 Access Basic编程语言 在进行Access的VBA编程之前，要了解Access Basic的基本编程语言 一、数据类型
二、变量定义 三、变量的作用域

4 ３.对象型 Access中有１７种对象型，是在程序中操作数据库的途径，操作数据库都是通过操作各种数据库对象的属性和方法来实现的。分别为：
Database,Workspace,Document,Container,User,Group,Report,Control,TableDef,QueryDef,Recordset,Field,Index,Relation,Parameter,Property.

5 二、变量定义 在Access中用来定义变量的关键词有：Dim,Static,Global,ReDim.
Dim 变量名 As 类型名 Dim 数组名（下标范围）Ａs 类型名 Dim 动态数组名（） Ａs 类型名 Dim 数组名（下标开始值 To 下标结束值） As 类型名

6 例如 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 类型名

7 例如：Global nNumber As Integer
Global nNum(10,10) As Integer

8 三、变量的作用域 程序中声明的每个变量都有作用域，超出它的作用域后，变量就失去作用，成为没有定义的字符。Access中变量的作用域有3类。
(1)全局变量，这种变量在数据库应用系统中的所有地方都可以使用，定义一个全局变量只能在模块对象中进行，使用Global来定义。 (2)对象级变量，可以在一个对象（窗体、报表、模块）中的任何地方使用，不能跨越所在的对象。在对象的General中进行定义，使用Dim关键词。 (3)模块级变量，只能在一个模块中使用，不能跨出模块，这种变量即常用的局部变量。

9 10.4 Access Basic 语句 Access支持结构化语言中的顺序、分支、循环语句，另外还有一些特殊作用的功能语句。
一、GOTO语句 VBA的GOTO Labal语句可以跳过一些代码块到Labal的位置，并从该点继续执行。Labal标号要从代码的最左边（第一列）开始写，这个位置通常会影响代码的缩进格式。 一般情况下不要使用GOTO语句。在VBA程序中使用GOTO语句的唯一一个目的就是用On Error GoTo Labal语句来处理错误。

10 二、IF语句 If/Then/End if语句是典型的判断分支控制语句。语法格式为： If 条件[=True] Then
…条件为真时执行的语句 End if 另外还可以使用嵌套IF语句格式： If条件1[=True]Then Elself条件2[=True] Then …条件1不成立但条件2成立时，执行的语句

11 例如 下面的IF语句用来判断一个字符是否是字母，而且判断它的大小写。
If Asc(strChar)>63 And Asc(strChar<91) Then strCharType=“大写字母子” Elself Asc(strChar)>96 And Asc(strChar<123) Then strCharType=“小写字母” End If

12 二、Select语句 当有多种选择时，使用If …Else语句，这样的语句需要多重嵌套，使得程序十分复杂，不容易读，这时就可以使用Select语句，Select语句是一个多分支控制语句。语法格式为： Select Case表达式 Case值1 语句1 Case值2 语句2 … Case Else 语句 End select

13 例如：下面语句用来对字母进行判断 Select Case strChar Case “A”To “Z” strCharType=“大写字母”
Case “0”To “9” strCharType=“数字字母” Case “!”,”?”,”.”,”,””;” strCharType=“标点符号” Case “” strCharType=“空格” Case <32 strCharType=“特殊字母” Case Else strCharType=“其它字母” End Select

14 四、For语句 For语句是最常用的循环控制语句。语法格式为： For 变量=开始值 To 结束值 Step 步长 循环执行语句
Next 变量 例如：下面使用For语句为数值赋初始值。 For nLeter=1 To 26 strChar(nLeter)=Char(nLeter+63) Next nLeter 注意 当STEP不写时，默认的步长是1。

15 五、DO语句 Do语句是另外一种循环语句，有两种格式： Do While…Loop和Do Until…Loop.
1.Do while 条件[= True] 循环语句，含有“条件”的变更语句 Loop 2.Do Until 条件 <>True(或Not 条件） 循环语句

16 六、功能语句 Appactivate Beep ChDrive Data Delete Control
Delete Report Control DoCmd Erase MsgBox 使用格式为:MsgBox(msg [,type[,title]]]) Set 使用格式为：Set ObjName=ObjectValue. Time