ACCESS2003实例教程(第8章)模块的操作

Access实例教程潘明寒 赵义霞 主编

中国水利水电出版社

ACCESS实例教程——模块的操作(第8章)

本章要点：1,模块的基本概念

2,VBA程序设计基础3,VBA函数的使用 4,模块的建立与使用 5,过程与参数传递

ACCESS实例教程

8.1

认识模块对象

模块是由声明、语句和过程组成的集合，以VBA (Visual Basic for Application)语言编写，作为一 个已命名的单元存储在一起。 模块有2种类型：类模块和标准模块。使用模块可以 在实际开发中实现较为复杂的功能。

ACCESS实例教程

8.1.1 模块的基本概念(1)模块 模块由一个或多个过程组成，每个过程实现一个或几个功能。 模块的执行通过特定事件激发相应的事件过程实现。 (2)事件过程 事件过程是一组代码，用于响应窗体事件或报表事件。 (3)类模块 类模块是包含代码和数据的集合，可以看作是没有物理表示的 控件，总是与某一特定的窗体或报表相关联。窗体模块和报表模块 都属于类模块。 (4)标准模块 标准模块是代码的集合，包含的过程不与任何其他对象相关联， 是数据库对象使用的公共过程，保存在数据库窗口中。

ACCESS实例教程

8.1.2 启动Access的编程界面Access的编程界面称为VBE(Visual Basic Editor),是 Microsoft Office所有组件公用的程序编辑系统。 方法1:在窗体或报表设计视图中选控件→单击标准工具栏的“生

成器”按钮→在“选择生成器”对话框中选择“代码生成器”。方法2:右击窗体或报表设计视图中控件→快捷菜单中选“事件生 成器”→“选择生成器”对话框中选择代码生成器”。

ACCESS实例教程

8.1.3 VBE窗口

ACCESS实例教程

编写模块对象的代码在代码窗口进行。 (1)窗口顶部有2个组合框，左边对象框显示所有对象名称，右边

过程框显示当前对象能识别的所有事件名称。选定一个对象，再选定一个事件，系统会自动生成相应事件过程的起始行与结束行，只 须在两行中间添加过程代码即可。 “通用” 过程可以被所有控件调用。某控件的过程只在关联 事件中有效。 (2)窗口中央代码区有声明区和过程区，声明区中声明模块使用 的变量，过程区显示一个或多个过程，之间用一条灰线分隔。

(3)窗口底部有2个按钮，单击“过程视图”按钮，只显示当前过程。单击右边“完整的模块视图”按钮，窗口显示全部过程。

ACCESS实例教程

8.1.4 标准工具栏

例:一个类模块

ACCESS实例教程

例:一个标准模块

ACCESS实例教程

8.1.7 使用提示与帮助在代码窗口输入代码时，系统会自动显示提示信息，包 括关键字列表、属性列表、过程参数列表等，在列表中选取 一项后双击鼠标

,所选值会自动添加到当前光标处。

ACCESS实例教程

8.2 VBA程序设计基础8.2.1 面向对象的程序设计的基本概念(1)对象 在自然界中，一个对象就是一个实体，如一辆汽车 就是一个对象。在面向对象的程序设计中，对象代表应 用程序中的元素，如表、窗体、按钮等。 (2)属性 属性是对象的特征。如汽车有颜色和型号属性，按 钮有标题和名称属性。对象的类别不同，属性会有所不 同。同类别对象的不同实例，属性也有差异。例如，同 是命令按钮，名称属性不允许相同。

ACCESS实例教程

(3)事件 事件是对象能够识别的动作。如按钮可以识别单击事件、 双击事件等。在类模块每一个过程的开始行，都显示对象名 和事件名。如：Private Sub c1_Click()。

(4)方法方法是对象能够执行的动作，决定了对象能完成什么事。 不同对象有不同的方法。如close方法能关闭一个窗体。 (5)集合 集合由许多与对象有关的键和值组成，其中的键和值是 配对的。如一本书是一个对象，书的页码是键，页码对应的 内容是值。所有配对的页码和内容组成了书对象的集合。

ACCESS实例教程

(6)过程过程是由代码组成的单元，包含一系列计算语句和执行语 句。每一个过程都有名字，过程名不能与所在模块的模块名相 同。过程有两种类型：sub过程(无返回值),function过程 (有返回值)。 例：动态设置控件属性 (1)在窗体中建1个文本框→名称为t1。 (2)在窗体中建1个标签→名称为b1→标题为“新年好！”。 (3)在窗体中建3个命令按钮→名称分别为c1、c2、c3→标题 分别为“红色”、“绿色”、“蓝色”。

ACCESS实例教程

(4)设置各按钮的前景色，在属性窗口可查看颜色值。

(5)c1的click事件代码： t1.BackColor = 255 b1.ForeColor = 255

ACCESS实例教程

(6)c2的click事件代码： t1.BackColor = 33792

b1.ForeColor = 33792(7)c3的click事件代码： t1.BackColor = 16711680

b1.ForeColor = 16711680

执行结果：

ACCESS实例教程

8.2.2 Docmd对象Docmd是Access的一个特殊对象，用来调用内置方法，在 程序中实现对Access的操作，诸如打开窗口、关闭窗体、打开 报表、关闭报表等。 DoCmd 对象的大多数方法都有参数，有些参数是必需的， 有些则是可选的。若省略可选参数，参数将采用默认值。 (1)用DoCmd 对象打开窗体

格式：DoCmd.OpenForm "窗体名"功能：用默认形式打开指定窗体。 例如：DoCmd.OpenForm "文本框练习"

ACCESS实例教程

(2)用DoCmd 对象关闭窗体 格式1:DoCmd.Close 功能：关闭指定窗体。 例如：DoCmd.Close 格式2:DoCmd.Close acForm, "文本框练习" acForm, "窗体名"

功能：关闭当前窗体。(3)用DoCmd

对象打开报表 格式：DoCmd.OpenReport 例如：DoCmd.OpenReport "报表名",acViewPreview "工资报表",acViewPreview 功能：用预览形式打开指定报表。

ACCESS实例教程

(4)用DoCmd 对象关闭报表 格式1:DoCmd.Close acReport, "报表名"

功能：关闭指定报表。例如：DoCmd.Close 格式2:DoCmd.Close 功能：关闭当前报表。 (5)用DoCmd 对象运行宏 格式：DoCmd.RunMacro "宏名" 功能：运行指定宏。 例如：DoCmd.RunMacro "宏1" (6)用DoCmd 对象退出Access。 格式：DoCmd.Quit acReport, "工资报表"

功能：关闭所有Access对象和Access本身。

ACCESS实例教程

例：使用DoCmd对象(1)在窗体中建立5个按钮→名称分别为c1、c2、c3、c4、 c5→标题分别为“打开文本框练习窗体”、“关闭文本框练 习窗体”、“打开工资报表”、“关闭工资报表”、“退出 Access” 。

ACCESS实例教程

(2)c1代码：DoCmd.OpenForm "文本框练习"(3)c2代码：DoCmd.Close acForm, "文本框练习" (4)c3代码：DoCmd.OpenReport "工资报表",acViewPreview (5)c4代码：DoCmd.Close acReport, "工资报表" (6)c5代码：DoCmd.Quit

ACCESS实例教程

本文来源：https://www.bwwdw.com/article/f624.html