模块与VBA

8.1 模块和过程的创建 标准模块
‫ ٭‬标准模块包含的是通用过程和常用过 程，这些通用过程不与任何对象相关 联，常用过程可以在数据库中的任何 位置运行。类模块可以调用标准模块 中定义好的过程 ‫ ٭‬标准模块中的公共变量和公共过程具 有全局特性，作用范围在整个应用程 序，生命期伴着应用程序运行而开始、 关闭而结束
8.4 VBA数据类型、常量、变量
数据类型－标准数据类型
类型
Byte（单字节型）
类型符
无
字段类型
字节/整数/是否
长整型/自动编号 单精度数 双精度数 货币 文本 是/否 日期/时间 任何
字节
1
Integer（整型）
Long（长整型） Single（单精度型） Double（双精度型） Currency（货币型） String（字符型） Boolean（布尔型） Date（日期型） Variant（变体型） Object（对象型）
8.3 面向对象编程基本概念 四、事件(Event)及事件过程(Event Procedure)
‫ ٭‬事件：可被对象识别的动作。如：窗体打开OnOpen，按钮的单
击OnClick，双击OnDbClick等
‫ ٭‬事件过程：是指附在该对象上的程序代码，是事件触发后 处理的程序。事件过程的形式如下：
8.3 面向对象编程基本概念 三、方 法（Method）
‫ ٭‬方法：在对象上可操作的过程，是VB系统提供的一种特
殊的过程和函数 ‫ ٭‬方法是面向对象的，所以方法调用一般要指明对象。
‫ ٭‬对象方法调用形式：[ 对象.]方法[ 参数列表 ]
例如： Debug.print "欢迎您使用ACCESS "
A docmd.openform” temployee” Cdocmd.opentable” temployee” B docmd.openview” temployee” Ddocmd.openreport” temployee”
8.3 面向对象编程基本概念
例3：在窗体中有两个命令按钮：“显示”（控件名为cmddisplay）和“测试” （控件名为cmdtest）以下事件过程的功能是：单击“测试”按钮时，窗体上弹出 一个消息框。如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮： 单击“取消”按钮关闭窗体。按照功能要求，将程序补充完整。 Private sub cmdtext-click（） Answer= If answer=vbok then cmddisplay.visible=_____ Else （“隐藏按钮”，vbokcancel）
%
& ! # @ $ 无 无 无 无
2
4 4 8 8 n*1 2 8 按需分配 4
8.4 VBA数据类型、常量、变量
数据类型的对比
字段数据类型
在Access中，有4 Yes/No 种不同的编辑环境需要 Number(Byte) 用户指定数据类型—表 AutoNumber(Long Integer) 设计视图、查询参数、 Currency Date/Time VBA代码、SQL查询视图。 Number(Double) 其数据类型与VBA数据 OLE Object 类型对比，如右图所示。 AutoNumber/GVI（同步复制ID）
Sub mysub(参数1，参数2，…) 变量声明部分 操作语句部分 End Sub
▪ 调用Call mysub(参数1，参数2，…)
‫٭‬Function函数
▪ 执行一系列操作，返回执行结果 ▪ 返回值直接利用函数名调用获得 ▪ 调用x=myFuntion(参数)
Function myFunction(参数) 变量声明部分
„在立即窗口中打印出文字
8.3 面向对象编程基本概念 三、方 法（Method）
DoCmd 对象：通过调用包含在内部的方法来实现VBA编程中 对Access的操作。 格式：DoCmd.OpenReport reportname
例如： DoCmd.OpenReport “教师信息 "
„打开教师信息报表
–如果在通用模块或在一类模块中引用另一类模块的控件时， 应该使用上述完整语法。
–如果在类模块中引用自己窗体上的控件，仅采用下面语法：
控件名称[.属性名]
例如：在窗体Form1中引用Form2上的Label1控件 Forms!Form2!Label1.Caption=“教师信息表” 在引用Form2上引用自己的Label1控件 Label1.Caption=“教师信息表
第十章
模块与VBA程序设计
8.1 模块和过程的创建
模块是Access数据库7个 对象之一，其实质就是没有界 面的VBA程序。模块具有很强 的通用性，窗体、报表等对象 都可以调用模块内部的过程。
模块基本上是由声明、语 句和过程（函数过程和子过程） 组成的集合，它们作为一个已 命名的单元存储在一起，对 VBA代码进行组织。 Access 有两种类型的模块：标准模块 和类模块。
基本控件常用属性
属性 Name Caption Controlsource Decimalplaces Defaulvalue Visible Scrollbars Height、Width Left、Top Backstyle Backcolor fontName、FontSize Enabled Text 说明 (名称)返回或设定对象的名字 (标题)返回或设定对象的标题文字 (数据源)指定控件显示的数据源 (格式)指定显示的小数位数 (默认值)设定控件的默认值 (可见性)控件或窗体、报表是否可见 (滚动条)窗体或组合框上的滚动条 (高、宽)设定控件的大小 (左、右边距)设定控件在窗体或报表中的位置 (背景样式)指定控件是否透明：常规为1，透明为0 (背景颜色)指定控件或节的颜色 (字体名称、字体大小)设定字体及字体大小 控件是否接受焦点和响应用户操作 设置或返回文本框、组合框中的文本
属性 窗口
立即 窗口
8.2 VBA编程环境：VBE界面
运行子过ቤተ መጻሕፍቲ ባይዱ/ 用户窗体 插入模块 ACCESS视图
工程管理器
中断
重新设定
属性窗口
对象浏览器
显示出对象库以及工 程里过程中的可用类、属 性、方法、事件及常数变 量。可以用它来搜索及使 用既有的对象，或是来源 于其他应用程序的对象。
8.2 VBA编程环境：如何进入VBE
例如： 创建一窗体，设置一命令按钮，命名为 “test”。完成单击该命令按钮，弹出一条语句 “测试完毕”消息框。
8.3 面向对象编程基本概念
例1：建立了一个窗体，窗体中有一个按钮，单击此按钮，将 打开一个查询，查询名为“qT”，如果 采用VBA代码完成，应 使用的语句是（ ）
例2：现有一个已经建好的窗体，窗体中有一命令按钮，单击 此按钮，将打开“temployee”表，如果采用VBA代码完成， 下面语句正确的是（ ）
操作语句部分
End Function
8.1 模块和过程的创建 模块的创建
创建一个名为‚模块入门‛的新模块
保存为“模块入门”
8.1 模块和过程的创建 过程的创建
在‚模块入门‛模块中创建一个Hello过程
双击
用户输入
执行过程
8.2 VBA编程环境：VBE界面
对象选定器 过程选定器
工程 窗口
代码 窗口
8.4 VBA数据类型、常量、变量
编码规则举例
‫ ٭‬LABEL10与label10相同 ‫ ٭‬x=y+z:y=z+x:z=y+x 在同一行书写了三个语句
‫ ٭‬MyVar = “这是一个 " _ & “例子说明如何 " _ & “续行代码“ 空白加下划线 ( _) 可接续两行以上的代码。 ‫ ‘ ٭‬This is a comment. (‟) 引导注释文本 Rem This is a comment Rem引导注释文本
‫.1 ٭‬VBA代码中不区分字母的大小写。 ‫.2 ٭‬一条语句写完后不需加任何结束符。 ‫.3 ٭‬同行上可以书写多条语句，语句间要用冒号‚:”分隔。 ‫.4 ٭‬若一个语句行不能写下全部语句时，可以换行。换行时 需在本行后加入续行符，1个空格加下划线‚_”。 ‫.5 ٭‬一行最多允许255个字符。 ‫.6 ٭‬注释以Rem开头，也可以使用单引号‚‘‛，注释内容 可直接出现在语句的后面。 ‫.7 ٭‬在程序转向时需用到标号，标号是以字母开始而以冒号 结束的字符串 ‫.8 ٭‬函数和方法后应加上括号（）。
进入VBE的基本方法

在数据库窗口单击‚工具‛→‚宏‛ →‚Visual Basic 编辑器‛ 双击要查看或编辑的模块对象 新建一个模块对象 对窗体和报表，在设计视图中点击‚代码‛按钮 对窗体和报表，在设计视图中，点击某一控件的‚事件属 性‛




VBA程序设计 一门程序设计语言应该怎么学?
‫٭‬掌握语言的基本用途 ‫٭‬掌握语言的基本构成 ‫٭‬掌握语言的基本书写规范 ‫٭‬掌握语言的数据类型、运算符、常用函数、基本语 句结构、调用关系。
8.1 模块和过程的创建 模块
例：下列关于模块的说法，错误的是（）
A 模块基本上由声明、语句和过程构成 B 窗体和报表都属于类模块 C 类模块不能独立存在 D 标准模块包含通用过程和常用过程
8.1 模块和过程的创建 模块的基本组成单元—过程
‫٭‬Sub子过程
▪ 可执行一系列操作，无返回值 ▪ 可在该子过程之外用CALL显示调用
Memro Number(Single) Number(Integer) Text Hyper Link 不支持
Docmd.close
End if End sub
8.4 VBA数据类型、常量、变量
本节内容及要求