在Access中，我们通过创建表、查询、窗体、报表、页、宏等对象，可以将数据整合在一起，快速建立数据库管理系统。但是通过这些对象创建的数据管理系统有一定的局限性，无法实现复杂的数据管理。

而VBA则可以对Access的数据管理功能进行扩展，使开发出来的系统更具灵活性和自主性，可以完成一些无法实现的功能。

在进入 VBA 编程之前， 首先需要了解VBA 支持的数据类型，因为不同的数据类型有着不同的存储方式和数据结构。如果不指定数据类型，VBA会默认将其作为变体型 Variant，此类型可以根据实际需要自动转换成相应的其他数据类型。

但是， 让 VBA 自动转换数据类型会使程序的执行效率降低， 所以在编写 VBA 代码时， 必须定义好数据类型， 选择占用字节最少、 又能很好地处理数据的类型， 才能保证程序运行更快。

VBA 支持的数据类型主要有字符串型、 数值型、 日期型、 货币型等。除了这些内置的数据类型外， 用户还可以自定义数据类型。下表中列出了常用的数据类型供用户参考。

技术看板

在 Access 中， 字段的数据类型与 VBA 中的数据类型大多都是相对应的。 例如， 字段的货币类型与 VBA 中的货币型相对应， 是 / 否类型与 VBA中的布尔型相对应。

1. 字符串型

字符串型用来存储字符串数据，它是一个字符序列， 由字母、 数字、符号和文字等组成。 在 VBA 中， 字符串类型分为定长字符串型和变长字符串型两种。

用户定义字符串时， 需要用双引号把字符串引起来， 而双引号并不算在字符串中。 例如， "book"、 " 员工信息表 " 和 ""（空白字符串） 等， 都表示字符串型数据。

具体来说， 定义字符串型数据的方法如下。

Dim str1 as String

这表示， 声明一个名为 str1 的字符串型变量。对于定长字符串的定义，可以使用"String*Size" 的方式。 例如：

Dim str2 as String*12

2. 数值数据型

数值数据型是可以进行数学计算的数据， 在 VBA 中， 数值数据型分为字节、 整型、 长整型、 单精度浮点型和双精度浮点型。

其中， 整型和长整型数据是不带小数点和指数符号的数。 例如：

• 111、 -189、 222% 均表示整型数据。
• 111&、 -189& 均表示长整型数据。

单精度浮点型和双精度浮点型数据是带有小数部分的数。 例如：

• 111 ！、 -189.75、 0.111E+3 均表示单精度浮点型数据。
• 111#、 -189.75#、 0.111E+3#、0.111D+3 均 表 示 双 精 度 浮 点 型数据。

在 VBA 中， 定义整型数据变量有两种方法： 一种是直接使用 Integer关键字， 类似前文中定义字符串型变量的方法； 另一种是直接在变量的后面添加一个百分比符号（%）。 例如：

Dim a1 as Integer
Dim a2%

以上定义的 a1 和 a2 都是整型数据变量。

技术看板

定义其他数值数据类型的方法与定义整型数据变量的方法类似， 只是后面的类型标识符不一样。

3. 日期型

日期型数据用来表示日期和时间信息， 在存储时， 日期型数据的整数部分被存储为日期值， 小数部分被存储为时间值。

用户定义时间类型数据时， 需要用井号（#） 把日期和时间括起来。例如：

#August 5,2018#、 #2018/12/25#、#2018-12-25 15:25:30# 等，均是表示日期型数据。

定义日期型数据的方法如下。

Dim aa as date

技术看板

在 Access 中， 可以使用 Now() 函数来提取当前时间， 使用 Date() 函数来提取当前日期。

4. 货币型

货币型是为了表示货币而设置的， 此类数据以 8 字节进行存储， 并精确到小数点后4位，小数点前15位，而小数点后 4 位的数字都将被舍去。

定义货币型数据的方法如下。

Dim cost as currency

5. 布尔型

布尔型是用于逻辑判断的数据类型， 其值为逻辑值。 布尔型数据只有True（真） 或 False（假） 两个值。

定义布尔型数据的方法如下。

Dim c as a Boolean

技术看板

将布尔数据转换为整型时， True转换为 -1， False 转换为 0。 当将其他类型数据转换为布尔型数据时， 非 0数据转换为 True， 0 转换为 False。

6. 变体型

当用户在编写 VBA 时， 如果没有定义某个变量的数据类型， 那么系统会自动将这个变量定义为变体型。如果以后调用这个数据， 就可以根据需要改变为不同的数据类型。

变体型是一种特殊的数据类型，除了定义长字符串型和用户自定义类型外， 它可以包含任何各类的数据，甚至包含 Empty、 Error、 Nothing 和 Null等特殊值。

7. 自定义的数据类型

除了前文中系统提供的基本数据类型外， 在 VBA 中， 用户还可以自定义数据类型。 自定义的数据类型实际是由基本数据类型构建而成的一种数据类型， 其语法格式如下。

Type 数据类型名
类型元素名 as 系统数据类型名
End Type

例如， 要定义一个名为 Lily 的用户数据类型：

Type Lily
RDnumber as Long
RDname as String
RDphone as Long
RDbirthday as Date
End Type

上文中共包含了 4 个元素。

• RDnumber 定义了编号为长整型变量。
• RDname 定义了姓名为字符串型变量。
• RDphone 定 义 了 电 话 为 长 整 型变量。
• RDbirthday 定义了生日为日期型变量。