VBA在Access中应用.pptVIP

第八章 VBA在Access中的应用 本章要点: ? 了解VBA的概念 ? 理解模块的定义 ? 理解事件及其编写过程 8.1 VBA概述 在前面的章节里，几乎没有用到编写代码的地方，可见，Access几乎可以不用编写代码就可以完成对数据库进行管理的任务。但是，有一些复杂的操作，仅靠Access简单的操作就完成不了了。例如，单位的设备管理部门对已购入的设备登帐的时候，为了维护方便和减少人工输入，当输入“笔记本电脑单价”和“数量”两项数值时，如图8-1所示， 图8-1 VBA示例之一 鼠标在“总金额”文本框点击一下，系统就会自动计算出结果来。如图8-2所示。 图8-2 VBA示例之二 上例中利用VBA编码实现了一些复杂的操作，那么VBA是一种什么语言呢？VBA即Visual Basic for Applications，是Access提供给用户的一种编程语言，它不同于Visual Basic语言，VBA更简单，同时继承了VB的许多语法结构，例如for、if语句等。同时扩展了Access的功能，不仅可以创建出更复杂的应用程序，还可以完成某些特殊的操作。 8.1.1 认识模块 模块即VBA编码的集合，它是指利用Access提供的VBA语言编写的代码集。模块分为类模块和标准模块两种。 类模块：是包含对象的模块，当创建一个新的类模块时，也就创建了一个新的对象，模块中定义的过程，系统都会转变为新对象的属性和方法。窗体和报表模块都属于类模块且各与某一个窗体或报表相关联。窗体和报表模块一般都含有事件过程，以响应其中的事件，控制其行为。例如，关闭一个窗体等。 标准模块：这种模块独立于窗体和报表模块，包含有子过程和函数，用于以过程的形式保存代码，因此可用于程序的任何地方。 模块由三部分组成：声明部分、事件过程、通用过程。如图8-3所示。 通用过程 事件过程 声明部分 图 8-3 模块的组成 8.1.2 VBA中的过程和函数 过程是Visual Basic for Applications 代码组成的单元，包括一系列执行操作、计算值和调用对象方法的语句。例如用下列代码可以关闭一个窗体： Private Sub Command0_Click() DoCmd.Close End Sub 过程通常分为Sub和Function两种。Sub即子过程，它的功能是执行一系列操作但是不返回值。Function过程(通常称为函数)将要返回一个值，例如，Str()将返回一列字符串。 Sub过程的格式如下： [private | public][Static] Sub 子过程名 （[参数[As 类型],…]） 语句 [Exit Sub] 语句 End Sub 参数列表中如果有多个参数，则中间用逗号分隔，private和public是关键字，前者是定义在本模块内使用的变量或过程，而后者是定义在全局范围内的变量或过程，它可以在任何地方使用。 Function过程格式如下： [private | public][Static] Function 函数名 （[参数[As 类型],…]）[As 类型] [语句] 函数名=表达式 [Exit Function] [语句] End Function Function是一个独立的过程，它可以接受和传递参数并返回一个值，并且，函数可以在表达式中使用。 8.2 Visual Basic 编程入门 8.2.1 常量和变量的定义 1. 常量的定义 常量，顾名思义就是在程序的执行过程中不能改变值的量就称为常量。例如PI，2，5等实型常量。在Access中声明一个常量的格式如下： [Public | Private] Const 常量名 [As 类型]=表达式 例如： Const PI=3.1415926 声明一个在本模块内可使用的常量PI Public Const s1=abc 声明一个可在所有模块内使用的常量s1 Private Const d1=#8/02/2005#声明一个可在本模块内使用的日期型常量 2. 变量的定义 变量即在执行程序时可以变化的量。定义变量的格式如下： Dim 变量名 [As 类型] 例如： Dim c As Integer 声明一个本模块内使用的整型变量 c Public Dim c Integer 声明一个在所有模块内使用的整型变量 c 3. 常