ACCESS实例教程(第8章vba)

Access基础教程--第八章使用VBA编程本章内容◆VBA编程基础◆创建和设计VBA程序◆VBA程序调试与运行一、VBA编程基础知识在执行简单的操作时，宏可以完成，如窗体的打开与关闭、工具栏的显示和隐藏等。

对于稍复杂一些的任务，则可用Visual Basic for Application进行编程完成。

1．VBA的数据类型下面对VBA中的数据类型、数据类型之间的转换、数据类型的对比进行介绍。

⑴数据类型下表列出VBA中的基本数据类型。

类型名声明符字节————————————————Byte（单字节型）1Integer（整型）% 2Long（长整型）& 4Single（单精度型）! 4Double（双精度型）# 8Currency（货币型）@ 8String（字符型）$ n*1Boolean（布尔型）2Date（日期型）8Variant（变体型）xObject（对象型）4————————————————其中，字节、整型、长整型、单精度、双精度、货币等数据类型都属于数值数据类型，可以进行各种数学运算。

字符型数据类型用来声明字符串。

布尔型数据类型用来表示一个逻辑值，为真时显示True，为假时显示Flase。

日期型数据类型用来表示日期，日期常量必须用#括起来，如#2001/3/26#。

变体型数据类型可以存放系统定义的任何数据类型，如数值、字符串、布尔及日期等，其数据类型由最近放入的值决定。

用户可以使用Type语句定义任何数据类型。

用户自定义数据类型可以包括数据类型数组，或当前定义的用户自定义类型的一种或多种元素。

语法：[ Private | Public ] Type 类型名元素名As 数据类型[ 元素名As 数据类型]……End Type例如：定义班级中学生的基本情况数据类型如下：Public Type StudentsName As String(8)Age As IntegerEnd Type声明变量：Dim Student As Students引用数据：Studen =”张三”Student.Age=15下面是详细参考内容◆Boolean 数据类型Boolean 变量存储为16 位（2 个字节）的数值形式，但只能是True 或是False。

8.1.1 VBA简介
• 90年代早期，微软在进行office系列产品的开 发同时，就注意到了不同的应用程序需要用不 同的自动化语言进行功能扩展，于是微软决定 让其开发出来的应用程序能共享一种通用的自 动化语言，这就是Visual Basic For Application——VBA。可以把VBA看成是VB应用 程序的一个子集，实际上，无论在语法结构、 使用方法、甚至是应用界面，二者都是十分相 似的。作为微软公司开发的Visual Basic可视 化编程软件，不仅功能强大，且简单易学，VBA 正是是在VB的基础上进行开发.
• 变量类型：在使用变量的过程中，变量必须是规定了数据类 型的。在使用变量之前应该先对变量进行定义，VBA允许不 进行事先的定义而直接使用变量。通常不进行事先声明的变 量，系统会自动将其的类型定义为Variant变体型。 使用变 量前对变量进行定义是程序设计中的一个良好的习惯，尽管 系统允许不定义而直接使用，但这也容易引起程序错误。
5. 货币型
货币型数据是专门用来计算与货币相关的计算，货币型的小 数点位数是固定的，定义的方法是： Dim 变量名 as Currency
• 6. 变体型
• 变体型数据是特殊的数据类型，特殊在其类型是变 化的，并且可以根据要求进行多次的改变。改变的 过程中，可以是数值型，也可以是字符串型等等。
8.2.2 变量、常量和数组
3. 布尔型
布尔型数据是一个逻辑值，占2个字节， 取值只有2个：true和false。定义的标识符 是boolean。
4. 日期型
日期型是VBA中专门用来表示时间的数据类型。占用8个字 节的存储空间，日期型实际是一个双精度的数值型，其整数 部分存储的是日期，小数部分存储的是时间。与日期型类型 相关的三系统函数来获得系统当前的日期和时间： Date（）获得的是当前系统日期， Time（）获得的是当前系统时间， Now（）获得的是当前系统日期和时间。定义方法是： Dim 变量名 as Date

intx%=1234 str1$="abc"
'定义intx为一个整型变量
'定义str1为一个字符串型变量
二、常量和变量
2、变量-------显式声明 （3）使用DefType语句说明变量
DefType语句只能用于模块的通用声明部分，用
来为变量和传递给过程的参数设置默认数据类 型。例如：
DefInt i,a-d
-2147483648～2147483647之间的整数
字节数：4B 对应字段类型：长整型
三、数据类型
4、单精度 关键字 ：Single 符号：！ 取值范围：
-负数：-3.402823E38～-1.401298E-45 正数：1.401298E-45～3.402823E38
Dim x
As Integer
'定义x为整型变量
Dim y
'定义y为变体型变量
Dim a As String, b As Double
'定义a为字符串型变量，b为双精度型变
三、数据类型
2、变量-------显式声明 （2）使用类型说明符声明变量 首次使用变量时，将类型说明符作为变 量名的一部分放在变量名后即可声明该变量数 据类型，例如：
声明符号常量的语句格式：
Const <符号常量名> [ As <类型> ]=常量表达式
二、常量和变量
1、常量 例如：
Const
PI=3.14 Const PI S=PI*2*2 As Double =3.1415926 FILENAME="学生"
'或
Const Const
二、常量和变量

青海师范大学教育院
College of Education Qinghai Normal University
8
Access VBA数据库编程综合实例
图8-2 学生学籍管理系统流程图
青海师范大学教育院
College of Education Qinghai Normal University
8
Access VBA数据库编程综合实例
青海师范大学教育院
College of Education Qinghai Normal University
8
Access VBA数据库编程综合实例
规划系统设计流程 了解用户需求并设计基本结构
分析与设计数据库
设计基本表
设计窗体、报表等其他组件
最后测试、完成
图8-1 数据库设计过程
青海师范大学教育院
表8-3 自定义教师表
字段类型 文本 文本 逻辑
日期时间 文本 文本 文本 文本 文本 附件
长度 8 4
短日期 2 5 5 2 16
备注 主键
青海师范大学教育院
College of Education Qinghai Normal University
8
Access VBA数据库编程综合实例
（4）“自定义课程表”，以“课程编号”为主键，表的结构，如表8-4所示。
编辑相邻两个表间的关系对话框，如图8-4所示。在对话框中勾选了“实施参照完整性”、 “级联更新相关字段”和“级联删除相关字段”复选框。
图8-4 编辑数据表关系图
青海师范大学教育院
College of Education Qinghai Normal University
8
Access VBA数据库编程综合实例