第九章__模块与VBA编程基础.ppt

第九章模块与VBA编程基础概述9.1模块基本概念9.2创建模块9.1【添加过程】对话框【例9.1】编写一个计算圆面积的函数过程Area()。
PublicFunctionArea(rasSingle)asSingle
Ifr<=0Then
MsgBox"圆的半径必须大于零",vbCritical,"警告"
Area=0'半径为零，设置函数返回值为0
ExitFunction'结束函数过程运行
EndIf
Area=3.14*r*r
EndFunction
函数过程的调用形式：
函数过程名([<实参>])
函数过程不能使用CALL来调用执行，需要直接引用函数名并加括号来辨别，可以在查询、宏等中调用使用，函数过程的返回值可以直接赋给某个变量。
例如，假如在某个窗体中要计算半径为8的圆面积，并用变量S保存圆面积值，可调用上面创建的Area()函数过程，调用命令格式为：s=Area(8)。9.3VBA编程基础对象组合框数据类型数据库对象常量、变量、数组变量FunctionSafeSqr(num)
Val_Temp=Abs(num)
SafeSqr=Sqr(Val_Tem)
EndFunction

例如：
intX1%=1243'定义intX1为一个整型变量
DouX2#=45665.456'定义douX2为一个双精度变量
StrX3$="Access"'定义strX3为一个字符串变量声明变量的一般方法是用Dim...As[DataType]结构，其中As指定变量数据类型。
Dim语句使用格式为：Dim变量名As[数据类型]
如果不使用“数据类型”可选项，默认定义的变量为Variant数据类型。可以使用Dim语句在一行中声明多个变量。
例如：
DimstrXAsString'定义了1个字符型变量strX
DimintXAsInteger,strZAsString'定义了1个整型变量intX和1个字符型变量strZ
Dimx'定义了1个变体(Variant)类型变量x
DimI,j,kAsinteger'只有k是integer型，I与j都是Variant型表9.43种变量的使用规则与作用域
Access建立的数据库对象及其属性，均可被看成是VBA程序代码中的变量及其指定的值来加以引用，与普通变量不同的是要使用规定的引用格式。
例如，窗体和报表对象的引用格式为：
Forms(或Reports)窗体(或报表)名称!控件名称[.属性名称]
关键字Forms或Reports分别指示窗体或报表对象类；感叹号(!)为分隔符，用于分隔开父子对象；“属性名称”为可选项，若省略，则默认为控件的基本属性Value。
注意：如果对象名称中含有空格或标点符号，引用时要用方括号把对象名称括起来。
例如，要在代码中引用窗体(Myform1)中名为Txtxh的文本框控件，可使用以下语句：
Forms!Myform1!Txtxh="3020503323“
若在本窗体的模块中引用，可以使用Me代替Forms!Myform1。语句变为：
Me!Txtxh="3020503323"
“Forms!Myform1!Txtxh”在程序语句中的作用相当于变量，但它指示的是某个Access对象。当需要多次引用对象时，可以先声明一个Control(控件)数据类型的对象变量，然后使用Set关键字建立对象变量指向的控件对象。语句使用格式如下：
DimTxtxhblAsControl'定义对象变量，数据类型为Control(控件)数据类型
SetTxtxhbl=Forms!Myform1!Txtxh'为对象变量指定窗体控件对象
以后要引用控件对象，可转为引用对象变量。
例如：
Txtxhbl="3020503323"
等同于：
Forms!Myform1!Txtxh="3020503323"
借助将变量定义为对象变量类型并使用Set语句为对象变量指定对象的方法，可以定义表9.3中所列任何对象数据类型的对象变量，并将数据库对象指定为对象变量名。数组数组变量由变量名和数组下标组成，在VBA中不允许隐式说明数组，可用Dim语句来声明数组。数组声明方式为：
Dim数组名([下标下界to]下标上界)As数据类型
下标下界的缺省值为0，数组元素为：数组名(0)至数组名(下标上界)；如果设置下标下界非0，要使用to选项。
在使用数组时，可以在模块的通用声明部分使用OptionBase来指定数组的默认下标下界是0或l：
OptionBase1设置数组的默认下标下界为l
OptionBase0语句的默认形式
数组有两种类型：固定大小的数组和动态数组。前者总保持同样的大小，而后者在程序中可根据需要动态地改变数组的大小。(1)固定大小的数组(2)动态数组Rem数组重定义，调整数组的大小，使用保留字Preserv