第八 九 模块与VBA—ACCESS培训讲义.pptx

《第八 九 模块与VBA—ACCESS培训讲义.pptx》由会员分享，可在线阅读，更多相关《第八 九 模块与VBA—ACCESS培训讲义.pptx（119页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第八章第八章模块与模块与VBAVBA程序设计程序设计第1页/共119页8.1 8.1 模块和过程的创建模块和过程的创建 模块是模块是AccessAccess数据库数据库7 7个个对象之一，其实质就是没有界对象之一，其实质就是没有界面的面的VBAVBA程序。模块具有很强程序。模块具有很强的通用性，窗体、报表等对象的通用性，窗体、报表等对象都可以调用模块内部的过程。都可以调用模块内部的过程。模块基本上是由声明、语模块基本上是由声明、语句和过程组成的集合句和过程组成的集合，它们作，它们作为一个已命名的单元存储在一为一个已命名的单元存储在一起，对起，对VBAVBA代码进行组织。代码进行组织。Acces

2、s Access 有两种类型的模有两种类型的模块：块：标准模块标准模块和和类模块。类模块。第2页/共119页8.1 8.1 模块和过程的创建模块和过程的创建vv类模块类模块类模块类模块（注意两种模块对比特点注意两种模块对比特点注意两种模块对比特点注意两种模块对比特点）包括包括包括包括窗体模块窗体模块窗体模块窗体模块(模块中包含在指定的模块中包含在指定的模块中包含在指定的模块中包含在指定的窗体或其控件上事件发生时触发的窗体或其控件上事件发生时触发的窗体或其控件上事件发生时触发的窗体或其控件上事件发生时触发的事件过程的代码。事件过程的代码。事件过程的代码。事件过程的代码。)和和和和报表模块报表模块

3、报表模块报表模块(模模模模块中包含由在指定报表或其控件上块中包含由在指定报表或其控件上块中包含由在指定报表或其控件上块中包含由在指定报表或其控件上发生的事件触发的事件过程的代码。发生的事件触发的事件过程的代码。发生的事件触发的事件过程的代码。发生的事件触发的事件过程的代码。)，它们各自，它们各自，它们各自，它们各自与某一特定窗体或报与某一特定窗体或报与某一特定窗体或报与某一特定窗体或报表相关联。表相关联。表相关联。表相关联。类模块类模块类模块类模块可以可以可以可以调用标准模块中调用标准模块中调用标准模块中调用标准模块中定义好定义好定义好定义好的的的的过程过程过程过程 作用范围作用范围作用范围作

4、用范围限于所属窗体或报表内部，限于所属窗体或报表内部，限于所属窗体或报表内部，限于所属窗体或报表内部，生命期生命期生命期生命期也随窗体或报表的打开而开也随窗体或报表的打开而开也随窗体或报表的打开而开也随窗体或报表的打开而开始、关闭而结束始、关闭而结束始、关闭而结束始、关闭而结束第3页/共119页8.1 8.1 模块和过程的创建模块和过程的创建vv标准模块标准模块（注意两种模块对比特点注意两种模块对比特点注意两种模块对比特点注意两种模块对比特点）标准模块包含的是标准模块包含的是标准模块包含的是标准模块包含的是通用过程和常用过通用过程和常用过通用过程和常用过通用过程和常用过程程程程，这些通用过程，

5、这些通用过程，这些通用过程，这些通用过程不与任何对象相关不与任何对象相关不与任何对象相关不与任何对象相关联，联，联，联，常用过程可以在数据库中的任何常用过程可以在数据库中的任何常用过程可以在数据库中的任何常用过程可以在数据库中的任何位置运行。类模块可以调用标准模块位置运行。类模块可以调用标准模块位置运行。类模块可以调用标准模块位置运行。类模块可以调用标准模块中定义好的过程中定义好的过程中定义好的过程中定义好的过程 标准模块中的公共变量和公共过程具标准模块中的公共变量和公共过程具标准模块中的公共变量和公共过程具标准模块中的公共变量和公共过程具有有有有全局特性全局特性全局特性全局特性，作用范围作用

6、范围作用范围作用范围在整个应用程在整个应用程在整个应用程在整个应用程序，序，序，序，生命期生命期生命期生命期伴着应用程序运行而开始、伴着应用程序运行而开始、伴着应用程序运行而开始、伴着应用程序运行而开始、关闭而结束关闭而结束关闭而结束关闭而结束第4页/共119页8.1 8.1 模块和过程的创建模块和过程的创建vv模块的基本组成单元模块的基本组成单元过程过程 SubSubSubSub子过程子过程子过程子过程 可执行一系列操作，可执行一系列操作，可执行一系列操作，可执行一系列操作，无返回值无返回值无返回值无返回值 可在该子过程之外用可在该子过程之外用可在该子过程之外用可在该子过程之外用CALLCA

7、LLCALLCALL显示调用显示调用显示调用显示调用 调用调用调用调用Call mysub(Call mysub(Call mysub(Call mysub(参数参数参数参数1 1 1 1，参数，参数，参数，参数2 2 2 2，)FunctionFunctionFunctionFunction函数函数函数函数 执行一系列操作，执行一系列操作，执行一系列操作，执行一系列操作，返回执行结果返回执行结果返回执行结果返回执行结果 返回值直接利用返回值直接利用返回值直接利用返回值直接利用函数名调用函数名调用函数名调用函数名调用获得获得获得获得 调用调用调用调用x=myFuntion(x=myFuntio

8、n(x=myFuntion(x=myFuntion(参数参数参数参数)Sub mysub(参数参数1，参数，参数2，)变量声明部分变量声明部分 操作语句部分操作语句部分 End SubFunction myFunction(参数参数)变量声明部分变量声明部分 操作语句部分操作语句部分 End Function第5页/共119页8.1 8.1 模块和过程的创建模块和过程的创建vv模块的创建模块的创建创建一个名为创建一个名为创建一个名为创建一个名为“模块入门模块入门模块入门模块入门”的新模块的新模块的新模块的新模块保存为“模块入门”第6页/共119页8.1 8.1 模块和过程的创建模块和过程的创建

9、vv过程的创建过程的创建 在在在在“模块入门模块入门模块入门模块入门”模块中创建一个模块中创建一个模块中创建一个模块中创建一个HelloHelloHelloHello过程过程过程过程用户输入执行过程执行过程 双击第7页/共119页8.2 8.2 VBA编程环境：编程环境：VBE界面界面工程工程窗口窗口属性属性窗口窗口代码代码窗口窗口立即立即窗口窗口对象选定器对象选定器过程选定器过程选定器第8页/共119页8.2 8.2 VBA编程环境：编程环境：VBE界面界面ACCESSACCESS视图视图运行子过程运行子过程/用户窗体用户窗体中断中断重新设定重新设定工程管理器工程管理器插入模块插入模块属性窗

10、口属性窗口对象浏览器对象浏览器 显示出对象库以及工程显示出对象库以及工程里过程中的里过程中的可用类、属性、可用类、属性、方法、事件及常数变量。方法、事件及常数变量。可可以用它来搜索及使用既有的以用它来搜索及使用既有的对象，或是来源于其他应用对象，或是来源于其他应用程序的对象。程序的对象。第9页/共119页8.2 8.2 VBA编程环境：如何进入编程环境：如何进入VBE进入进入进入进入VBEVBEVBEVBE的基本方法的基本方法的基本方法的基本方法(了解了解了解了解选择题选择题选择题选择题)u在数据库窗口单击在数据库窗口单击“工具工具”“宏宏”“Visual BasicVisual Basic编

11、辑器编辑器”u双击要查看或编辑的模块对象双击要查看或编辑的模块对象 u新建一个模块对象新建一个模块对象 u对窗体和报表，在设计视图中点击对窗体和报表，在设计视图中点击“代码代码”按钮按钮 u对窗体和报表，在设计视图中，点击某一控件的对窗体和报表，在设计视图中，点击某一控件的“事件事件属性属性”第10页/共119页8.3 8.3 面向对象编程基本概念面向对象编程基本概念vv一、对象与类一、对象与类 对象对象对象对象：对象是基本的运行时的实体，如窗体、报表、各种对象是基本的运行时的实体，如窗体、报表、各种对象是基本的运行时的实体，如窗体、报表、各种对象是基本的运行时的实体，如窗体、报表、各种控件等

12、，控件等，控件等，控件等，包括包括包括包括作用于对象的作用于对象的作用于对象的作用于对象的操作（方法）操作（方法）操作（方法）操作（方法）和对象的和对象的和对象的和对象的响应响应响应响应（事件）。（事件）。（事件）。（事件）。将数据和处理这些数据的过程封装在一起。将数据和处理这些数据的过程封装在一起。将数据和处理这些数据的过程封装在一起。将数据和处理这些数据的过程封装在一起。类类类类：一个抽象的整体概念一个抽象的整体概念一个抽象的整体概念一个抽象的整体概念 ，对象是类的实例化。，对象是类的实例化。，对象是类的实例化。，对象是类的实例化。类与对象类与对象类与对象类与对象是面向对象程序设计语言的基

13、础。是面向对象程序设计语言的基础。是面向对象程序设计语言的基础。是面向对象程序设计语言的基础。例：例：例：例：“学生学生学生学生”类类类类，“张三张三张三张三”对象对象对象对象第11页/共119页8.3 8.3 面向对象编程基本概念面向对象编程基本概念vv二、属二、属 性（性（PropertyProperty）所有对象都有自己的属性。所有对象都有自己的属性。所有对象都有自己的属性。所有对象都有自己的属性。用来描述和反映对象特征的参用来描述和反映对象特征的参用来描述和反映对象特征的参用来描述和反映对象特征的参数。如：控件名称数。如：控件名称数。如：控件名称数。如：控件名称(Name)(Name)

14、(Name)(Name)、标题、标题、标题、标题(Caption)(Caption)(Caption)(Caption)、颜色、颜色、颜色、颜色(Color)(Color)(Color)(Color)、字、字、字、字体体体体(FontName)(FontName)(FontName)(FontName)等属性决定了对象展现给用户的界面具有什么样等属性决定了对象展现给用户的界面具有什么样等属性决定了对象展现给用户的界面具有什么样等属性决定了对象展现给用户的界面具有什么样的外观及功能。的外观及功能。的外观及功能。的外观及功能。对象属性设置的方法：对象属性设置的方法：对象属性设置的方法：对象属性设置

15、的方法：在设计模式下，通过属性窗口直接设置对象的属性。在设计模式下，通过属性窗口直接设置对象的属性。在设计模式下，通过属性窗口直接设置对象的属性。在设计模式下，通过属性窗口直接设置对象的属性。在程序的代码中通过赋值实现在程序的代码中通过赋值实现在程序的代码中通过赋值实现在程序的代码中通过赋值实现，其格式为：，其格式为：，其格式为：，其格式为：对象名对象名对象名对象名.属性名属性名属性名属性名=属性值属性值属性值属性值 例：例：例：例：Label10.Caption=Label10.Caption=Label10.Caption=Label10.Caption=“显示显示显示显示”第12页/共1

16、19页8.3 8.3 面向对象编程基本概念面向对象编程基本概念 在在在在VBAVBAVBAVBA中引用中引用中引用中引用ACCESSACCESSACCESSACCESS对象：对象：对象：对象：基本语法：基本语法：基本语法：基本语法：Forms(Forms(或或或或Reports)!Reports)!窗体窗体窗体窗体(或报表或报表或报表或报表)名称名称名称名称!控件名称控件名称控件名称控件名称.属性名属性名属性名属性名 注意要点注意要点注意要点注意要点 如果在通用模块或在一类模块中引用另一类模块的控件时，应该如果在通用模块或在一类模块中引用另一类模块的控件时，应该如果在通用模块或在一类模块中引用

17、另一类模块的控件时，应该如果在通用模块或在一类模块中引用另一类模块的控件时，应该使用上述完整语法。使用上述完整语法。使用上述完整语法。使用上述完整语法。l l如果在类模块中引用自己窗体上的控件，仅采用下面语法：如果在类模块中引用自己窗体上的控件，仅采用下面语法：如果在类模块中引用自己窗体上的控件，仅采用下面语法：如果在类模块中引用自己窗体上的控件，仅采用下面语法：控件名称控件名称控件名称控件名称.属性名属性名属性名属性名 例如：在窗体例如：在窗体Form1中引用中引用Form2上的上的Label1控件控件Forms!Form2!Label1.Caption=“教师信息表教师信息表”在引用在引用

18、Form2Form2上引用自己的上引用自己的Label1Label1控件控件 Label1.Caption=“教师信息表教师信息表第13页/共119页基本控件常用属性基本控件常用属性(详见教材详见教材P303P303附录附录C)C)属性属性属性属性说明说明说明说明NameName(名称名称名称名称)返回或设定对象的名字返回或设定对象的名字返回或设定对象的名字返回或设定对象的名字CaptionCaption(标题标题标题标题)返回或设定对象的标题文字返回或设定对象的标题文字返回或设定对象的标题文字返回或设定对象的标题文字ControlsourceControlsource(数据源数据源数据源数据

19、源)指定控件显示的数据源指定控件显示的数据源指定控件显示的数据源指定控件显示的数据源DecimalplacesDecimalplaces(格式格式格式格式)指定显示的小数位数指定显示的小数位数指定显示的小数位数指定显示的小数位数DefaulvalueDefaulvalue(默认值默认值默认值默认值)设定控件的默认值设定控件的默认值设定控件的默认值设定控件的默认值VisibleVisible(可见性可见性可见性可见性)控件或窗体、报表是否可见控件或窗体、报表是否可见控件或窗体、报表是否可见控件或窗体、报表是否可见ScrollbarsScrollbars(滚动条滚动条滚动条滚动条)窗体或组合框上的

20、滚动条窗体或组合框上的滚动条窗体或组合框上的滚动条窗体或组合框上的滚动条HeightHeight、WidthWidth(高、宽高、宽高、宽高、宽)设定控件的大小设定控件的大小设定控件的大小设定控件的大小LeftLeft、TopTop(左、上边距左、上边距左、上边距左、上边距)设定控件在窗体或报表中的位置设定控件在窗体或报表中的位置设定控件在窗体或报表中的位置设定控件在窗体或报表中的位置BackstyleBackstyle(背景样式背景样式背景样式背景样式)指定控件是否透明：常规为指定控件是否透明：常规为指定控件是否透明：常规为指定控件是否透明：常规为1 1 1 1，透明为，透明为，透明为，透明

21、为0 0 0 0BackcolorBackcolor(背景颜色背景颜色背景颜色背景颜色)指定控件或节的颜色指定控件或节的颜色指定控件或节的颜色指定控件或节的颜色fontNamefontName、FontSizeFontSize(字体名称、字体大小字体名称、字体大小字体名称、字体大小字体名称、字体大小)设定字体及字体大小设定字体及字体大小设定字体及字体大小设定字体及字体大小EnabledEnabled(控件是否可用）控件是否可用）控件是否可用）控件是否可用）控件是否接受焦点和响应用户操作控件是否接受焦点和响应用户操作控件是否接受焦点和响应用户操作控件是否接受焦点和响应用户操作TextText设置

22、或返回文本框、组合框中的文本设置或返回文本框、组合框中的文本设置或返回文本框、组合框中的文本设置或返回文本框、组合框中的文本第14页/共119页8.3 8.3 面向对象编程基本概念面向对象编程基本概念vv三、事件三、事件(Event)(Event)(Event)(Event)及事件过程及事件过程(Event(Event(Event(Event Procedure)Procedure)Procedure)Procedure)事件：可被对象识别的动作事件：可被对象识别的动作事件：可被对象识别的动作事件：可被对象识别的动作。如：窗体打开如：窗体打开如：窗体打开如：窗体打开OnOpenOnOpenOn

23、OpenOnOpen，按钮的单击，按钮的单击，按钮的单击，按钮的单击OnClickOnClickOnClickOnClick，双击，双击，双击，双击OnDbClickOnDbClickOnDbClickOnDbClick等等等等 事件过程：事件过程：事件过程：事件过程：是指是指是指是指附在该对象上的程序代码附在该对象上的程序代码附在该对象上的程序代码附在该对象上的程序代码，是事件触发后，是事件触发后，是事件触发后，是事件触发后处理的程序。事件过程的形式如下：处理的程序。事件过程的形式如下：处理的程序。事件过程的形式如下：处理的程序。事件过程的形式如下：SubSub对象名对象名对象名对象名_ _

24、事件过程名事件过程名事件过程名事件过程名（参数列表）（参数列表）（参数列表）（参数列表）.(.(事件过程代码）事件过程代码）事件过程代码）事件过程代码）EndSubEndSub例如：例如：SubcmdOk_Click()cmdOk.FontSize=20设置命令按钮的字体大小为设置命令按钮的字体大小为20EndSub第15页/共119页8.3 8.3 面向对象编程基本概念面向对象编程基本概念vv四、方四、方 法（法（MethodMethod）方法：方法：方法：方法：在对象上可操作的过程，是在对象上可操作的过程，是在对象上可操作的过程，是在对象上可操作的过程，是VBVBVBVB系统提供的一种特系

25、统提供的一种特系统提供的一种特系统提供的一种特殊的过程和函数殊的过程和函数殊的过程和函数殊的过程和函数 方法是面向对象的方法是面向对象的方法是面向对象的方法是面向对象的，所以方法调用一般要指明对象。，所以方法调用一般要指明对象。，所以方法调用一般要指明对象。，所以方法调用一般要指明对象。对象方法调用形式：对象方法调用形式：对象方法调用形式：对象方法调用形式：对象对象对象对象.方法方法方法方法 参数列表参数列表参数列表参数列表 例如：例如：Debug.print 欢迎您使用欢迎您使用ACCESS 在立即窗口中打印出文字在立即窗口中打印出文字第16页/共119页8.4 VBA8.4 VBA8.4

26、VBA8.4 VBA数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量vv本节内容及要求本节内容及要求 1.1.1.1.熟悉熟悉熟悉熟悉VBVBVBVB程序中代码和语句书写规则程序中代码和语句书写规则程序中代码和语句书写规则程序中代码和语句书写规则 2.2.2.2.掌握掌握掌握掌握VBVBVBVB的数据类型的数据类型的数据类型的数据类型 3.3.3.3.掌握掌握掌握掌握VBVBVBVB的运算符和表达式的使用的运算符和表达式的使用的运算符和表达式的使用的运算符和表达式的使用 4.4.4.4.掌握常用内部函数的使用掌握常用内部函数的使用掌握常用内部函数的使用掌握常用内

27、部函数的使用第17页/共119页8.4 VBA8.4 VBA8.4 VBA8.4 VBA数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量vv编码规则编码规则 1.VBA1.VBA1.VBA1.VBA代码中不区分字母的大小写。代码中不区分字母的大小写。代码中不区分字母的大小写。代码中不区分字母的大小写。2.2.2.2.一条语句写完后不需加任何结束符。一条语句写完后不需加任何结束符。一条语句写完后不需加任何结束符。一条语句写完后不需加任何结束符。3.3.3.3.同行上可以书写多条语句，语句间要用冒号同行上可以书写多条语句，语句间要用冒号同行上可以书写多条语句，语句间

28、要用冒号同行上可以书写多条语句，语句间要用冒号“:”分隔。分隔。分隔。分隔。4.4.4.4.若一个语句行不能写下全部语句时，可以换行。换行时若一个语句行不能写下全部语句时，可以换行。换行时若一个语句行不能写下全部语句时，可以换行。换行时若一个语句行不能写下全部语句时，可以换行。换行时需在本行后加入需在本行后加入需在本行后加入需在本行后加入续行符续行符续行符续行符，1 1 1 1个空格加下划线个空格加下划线个空格加下划线个空格加下划线“_ _ _ _”。5.5.5.5.一行最多允许一行最多允许一行最多允许一行最多允许255255255255个字符。个字符。个字符。个字符。6.6.6.6.注释以注

29、释以注释以注释以RemRemRemRem开头，也可以使用单引号开头，也可以使用单引号开头，也可以使用单引号开头，也可以使用单引号“”，注释内容可，注释内容可，注释内容可，注释内容可直接出现在语句的后面。直接出现在语句的后面。直接出现在语句的后面。直接出现在语句的后面。7.7.7.7.在在在在程序转向时需用到标号程序转向时需用到标号程序转向时需用到标号程序转向时需用到标号，标号标号标号标号是以字母开始而以冒号是以字母开始而以冒号是以字母开始而以冒号是以字母开始而以冒号结束的字符串。结束的字符串。结束的字符串。结束的字符串。8.8.8.8.函数和方法后应加上括号（）。函数和方法后应加上括号（）。函

30、数和方法后应加上括号（）。函数和方法后应加上括号（）。第18页/共119页8.4 VBA8.4 VBA8.4 VBA8.4 VBA数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量vv编码规则举例编码规则举例 LABEL10LABEL10LABEL10LABEL10与与与与label10label10label10label10相同相同相同相同 x=y+z:y=z+x:z=y+x x=y+z:y=z+x:z=y+x x=y+z:y=z+x:z=y+x x=y+z:y=z+x:z=y+x 在同一行书写了三个语句在同一行书写了三个语句在同一行书写了三个语句在同一行书写

31、了三个语句 MyVar=“MyVar=“这是一个这是一个 _&“&“例子说明如何例子说明如何 _&“&“续行代码续行代码“注意：采用注意：采用注意：采用注意：采用空白加下划线空白加下划线空白加下划线空白加下划线 (_)(_)(_)(_)可接续两行以上的代码。可接续两行以上的代码。可接续两行以上的代码。可接续两行以上的代码。Thisisacomment.Thisisacomment.()引导注释文本引导注释文本引导注释文本引导注释文本 RemThisisacommentRemThisisacommentRemRemRemRem引导注释文本引导注释文本引导注释文本引导注释文本 IfNumber=1

32、ThenGoToLine1ElseGoToLine2EndifIfNumber=1ThenGoToLine1ElseGoToLine2EndifLine1:Line1:标号标号标号标号1 1 1 1 MyString=“MyString=“数值等于数值等于1“1“Line2:Line2:标号标号标号标号2 2 2 2 MyString=MyString=数值等于数值等于22Sub x4()Dim x As Integer,y As Integer,z As Integery=1:z=1x=y+z:y=z+x:z=y+xDebug.Print x,y,z的值分别是：,x,y,zEnd Sub第1

33、9页/共119页8.4 VBA8.4 VBA8.4 VBA8.4 VBA数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量vv数据类型标准数据类型数据类型标准数据类型类型类型类型类型类型符类型符类型符类型符字段类型字段类型字段类型字段类型字节字节字节字节默认值默认值默认值默认值ByteByteByteByte（单单字字字字节节型）型）型）型）无无无无 1 1 1 1 0 0IntegerIntegerIntegerInteger（整型）（整型）（整型）（整型）%字节字节字节字节/整数整数整数整数/是是是是否否否否2 2 2 2 0 0LongLongLongLon

34、g（长长整型）整型）整型）整型）&长整型长整型长整型长整型/自动编自动编自动编自动编号号号号4 4 4 4 0 0SingleSingleSingleSingle（单单精度型）精度型）精度型）精度型）!单精度数单精度数单精度数单精度数4 4 4 4 0 0DoubleDoubleDoubleDouble（双精度型）（双精度型）（双精度型）（双精度型）#双精度数双精度数双精度数双精度数8 8 8 8 0 0CurrencyCurrencyCurrencyCurrency（货币货币型）型）型）型）货币货币货币货币8 8 8 8 0 0StringStringStringString（字符型）（字符

35、型）（字符型）（字符型）$文本文本文本文本 n*1 n*1 n*1 n*1“”“”BooleanBooleanBooleanBoolean（布（布（布（布尔尔型）型）型）型）无无无无是是是是/否否否否2 2 2 2 FalseFalseDateDateDateDate（日期型）（日期型）（日期型）（日期型）无无无无日期日期日期日期/时间时间时间时间8 8 8 8 0 0VariantVariantVariantVariant（变变体型）体型）体型）体型）无无无无任何任何任何任何按需分配按需分配按需分配按需分配 EmptyEmptyObjectObjectObjectObject（对对象型）象型

36、）象型）象型）无无无无4 4 4 4 第20页/共119页8.4 VBA8.4 VBA8.4 VBA8.4 VBA数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量 在在在在AccessAccessAccessAccess中，有中，有中，有中，有4 4 4 4种不同的编辑环境需要种不同的编辑环境需要种不同的编辑环境需要种不同的编辑环境需要用户指定数据类型用户指定数据类型用户指定数据类型用户指定数据类型表表表表设计视图、查询参数、设计视图、查询参数、设计视图、查询参数、设计视图、查询参数、VBAVBAVBAVBA代码、代码、代码、代码、SQLSQLSQLSQL查询视

37、图。查询视图。查询视图。查询视图。其其其其数据类型与数据类型与数据类型与数据类型与VBAVBAVBAVBA数据数据数据数据类型对比类型对比类型对比类型对比，如右图所示。，如右图所示。，如右图所示。，如右图所示。（了解一下了解一下了解一下了解一下）字段数据类型字段数据类型字段数据类型字段数据类型 VBAVBAVBAVBA数据数据数据数据类类型型型型 Yes/NoYes/NoYes/NoYes/No BooleanBooleanBooleanBoolean Number(Byte)Number(Byte)Number(Byte)Number(Byte)ByteByteByteByte AutoNu

38、mber(Long Integer)AutoNumber(Long Integer)AutoNumber(Long Integer)AutoNumber(Long Integer)LongLongLongLong CurrencyCurrencyCurrencyCurrency CurrencyCurrencyCurrencyCurrency Date/TimeDate/TimeDate/TimeDate/Time DateDateDateDate Number(Double)Number(Double)Number(Double)Number(Double)DoubleDoubleDoubl

39、eDouble OLE ObjectOLE ObjectOLE ObjectOLE Object StringStringStringString AutoNumber/GVIAutoNumber/GVIAutoNumber/GVIAutoNumber/GVI（同步复制（同步复制（同步复制（同步复制IDIDIDID）不支持不支持不支持不支持 MemroMemroMemroMemro stringstringstringstring Number(Single)Number(Single)Number(Single)Number(Single)SingleSingleSingleSingle N

40、umber(Integer)Number(Integer)Number(Integer)Number(Integer)IntegerIntegerIntegerInteger TextTextTextText StringStringStringString Hyper LinkHyper LinkHyper LinkHyper Link StringStringStringString 不支持不支持不支持不支持 VariantVariantVariantVariant vv数据类型的对比数据类型的对比第21页/共119页8.4 VBA8.4 VBA8.4 VBA8.4 VBA数据类型、常量、

41、变量数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量vv数据类型之间的转换数据类型之间的转换 在进行在进行在进行在进行VBAVBAVBAVBA编程过程中，用户可以将一种数据类型的数据转换成另一种特定类编程过程中，用户可以将一种数据类型的数据转换成另一种特定类编程过程中，用户可以将一种数据类型的数据转换成另一种特定类编程过程中，用户可以将一种数据类型的数据转换成另一种特定类型的数据。型的数据。型的数据。型的数据。函数名函数名函数名函数名 目标类型目标类型目标类型目标类型 例例例例CbyteCbyteCbyteCbyte ByteByteByteByte Cbyte(125.5678)

42、=126,Cbyte(12.50001)=13Cbyte(125.5678)=126,Cbyte(12.50001)=13CintCintCintCint IntegerIntegerIntegerInteger Cint(1.35)=1Cint(1.35)=1，Cint(1.55)=2Cint(1.55)=2，Cint(2.5)=2Cint(2.5)=2ClngClngClngClng LongLongLongLong Clng(1.35)=1,Clng(2.51)=3,Clng(4.50)=4Clng(1.35)=1,Clng(2.51)=3,Clng(4.50)=4CsngCsngCsn

43、gCsng SingleSingleSingleSingle Csng(125)=125.0Csng(125)=125.0CdblCdblCdblCdbl DoubleDoubleDoubleDouble Cdbl(125)=125.0Cdbl(125)=125.0CcurCcurCcurCcur CurrencyCurrencyCurrencyCurrency CdateCdateCdateCdate DateDateDateDate Cdate(“2008-3-25”)=#2008-3-35#Cdate(“2008-3-25”)=#2008-3-35#CvarCvarCvarCvar Va

44、rriantVarriantVarriantVarriant CboolCboolCboolCbool BooleanBooleanBooleanBoolean CBool(0)=falseCBool(0)=falseCstrCstrCstrCstr StringStringStringString Cstr(125.25)=“125.25”Cstr(125.25)=“125.25”4舍6入5留双的修约规则条件(1)当你要进行修约的小数位上是5的时候；条件(2)5后面的所有小数位上没有任何有效数值。当条件(1)(2)同时成立的时候，那么会有两种修约结果，需要判断5前面的数位上的数字是奇数还是偶

45、数。结果(1)：如果是奇数：那么修约这个小数位的结果是向上进1；结果(2)：否则修约这个小数位的结果是直接舍掉。当条件(1)条件(2)有一条不成立的时候会有第三中修约结果。结果（3）那就直接进行普通的四舍五入就好了。举例：3.15、3.25和3.251 修约后保留1位小数。3.15和3.25符合以下条件：（1）需要修约的小数位上恰好数值是5；（2）并且5后面没有任何数值了这时就是前面所说的，当条件(1)(2)同时成立的时候。对于3.15，5前面是1，属于奇数：此时修约位向上进1，修约结果是：3.2对于3.25，5前面是2，属于偶数：此时修约位进行舍弃，修约结果是：3.2对于3.251由于不符合

46、条件（2）直接进行普通的四舍五入，修约结果是：3.3第22页/共119页8.4 VBA8.4 VBA8.4 VBA8.4 VBA数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量vv数据类型数据类型自定义类型自定义类型 在模块级别中使用，用于定义包含在模块级别中使用，用于定义包含在模块级别中使用，用于定义包含在模块级别中使用，用于定义包含一个或多个元素一个或多个元素一个或多个元素一个或多个元素的用户自定义的数据类型。的用户自定义的数据类型。的用户自定义的数据类型。的用户自定义的数据类型。基本语法：基本语法：Private|PublicType类型名类型名元素名元素

47、名As数据类型数据类型元素名元素名As数据类型数据类型EndType例：定义学生类型数据例：定义学生类型数据PublicTypeStudentsNameAsString*8AgeAsIntegerEndType声明变量：声明变量：DimStudentAsStudents引用数据：引用数据：Student.Name=”张三张三”Student.Age=15第23页/共119页8.4 VBA8.4 VBA8.4 VBA8.4 VBA数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量数据类型、常量、变量vv标准数据类型要点标准数据类型要点 Boolean Boolean Boolean B

48、oolean 数据类型：数据类型：数据类型：数据类型：值值值值只能是只能是只能是只能是 True True True True 或是或是或是或是 FalseFalseFalseFalse。当转。当转。当转。当转换其他的数值类型为换其他的数值类型为换其他的数值类型为换其他的数值类型为 Boolean Boolean Boolean Boolean 值时，值时，值时，值时，0 0 0 0 会转成会转成会转成会转成 FalseFalseFalseFalse，而其他的值则变成而其他的值则变成而其他的值则变成而其他的值则变成 TrueTrueTrueTrue。当转换。当转换。当转换。当转换 Boolea

49、n Boolean Boolean Boolean 值为其他的值为其他的值为其他的值为其他的数据类型时，数据类型时，数据类型时，数据类型时，False False False False 成为成为成为成为 0 0 0 0，而，而，而，而 True True True True 成为成为成为成为 -1-1-1-1。Date Date Date Date 数据类型：数据类型：数据类型：数据类型：日期须以数字符号日期须以数字符号日期须以数字符号日期须以数字符号 (#)(#)(#)(#)扩起来，例如，扩起来，例如，扩起来，例如，扩起来，例如，#2008-3-23#2008-3-23#2008-3-23

50、#2008-3-23#Object Object Object Object 数据类型：数据类型：数据类型：数据类型：利用利用利用利用 Set Set Set Set 语句，声明为语句，声明为语句，声明为语句，声明为 Object Object Object Object 的的的的变量可以赋值为任何对象的引用。变量可以赋值为任何对象的引用。变量可以赋值为任何对象的引用。变量可以赋值为任何对象的引用。Variant Variant Variant Variant 数据类型：数据类型：数据类型：数据类型：所有所有所有所有没被显式声明没被显式声明没被显式声明没被显式声明(用如用如用如用如DimDim