Access 2010数据库应用技术教程 何胜利 主编 第9章 模块与VBA

《Access 2010数据库应用技术教程 何胜利 主编 第9章 模块与VBA》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第9章模块与VBA在Access系统中，借助宏对象可以完成一些事件的响应处理，例如，打开一个窗体，打开一个报表，输出一个消息框，但是它的功能有限。它只能处理一些简单的操作，对实现较复杂的操作，例如循环、判断以及与其它高级语言的接口以及对数据库中的数据项的直接操作（例如直接操作数据表，表间的操作）等，还需要编制一些程序配合以上所介绍的如表、查询、窗体、报表与宏的应用共同来实现。对于学习了“计算机基础知识”的用户，再学习一些编程技术也十分必要。在Access系统中，编程的应用在“模块”对象下实现。在Acces

2、s系统中使用编程技术，比起学习其它高级语言编程还是要容易的多。本章主要介绍Access数据库的VBA代码操作及代码容器（类模块）与标准模块的设计与应用。第9章模块与VBA-导言转下页2021/7/16第9章模块与VBA-目录9.1模块与VBA概述9.2VBA编程基础9.3创建VBA模块与编程环境9.4Access编程入门9.5程序的组成与基本结构形式9.6程序的调试方法9.7本章小结习题9<本章结束>9.1模块与VBA概述在Access系统中，借助宏对象可以完成一些事件的响应处理，例如，打开一个窗体，打开

3、一个报表，输出一个消息框，但是它的功能有限。它只能处理一些简单的操作，对实现较复杂的操作，例如循环、判断以及与其它高级语言的接口以及对数据库中的数据项的直接操作（例如直接操作数据表，表间的操作）等，还需要编制一些程序配合以上所介绍的如表、查询、窗体、报表与宏的应用共同来实现。对于学习了“计算机基础知识”的用户，再学习一些编程技术也十分必要。在Access系统中，编程的应用在“模块”对象下实现。在Access系统中使用编程技术，比起学习其它高级语言编程还是要容易的多。本章主要介绍Access数据库的VBA代

4、码操作及代码容器（类模块）与标准模块的设计与应用。转下页9.1.1关于模块1．模块的定义模块是Access系统的7个对象之一。模块由模块名称、模块声明语句与在其中创建的若干个过程组成的。当用户在模块对象下，新建一个模块时，则进入VBE编程环境并自动在模块顶部（声明区域）出现声明语句：（可可参见图10-15所示）OpentionCompareDatabase(由系统自动给出)2．模块的种类模块有两个基本类型：类模块和标准模块。模块中的每一个过程都可以是一个Function过程或一个Sub过程。(1)类模块窗

5、体模块和报表模块都是类模块，而且它们各自与某一窗体或报表相关联。窗体和报表模块通常都含有事件过程，该过程用于响应窗体或报表中的事件。可以使用事件过程来控制窗体或报表的行为，以及它们对用户操作的响应，例如用鼠标单击某个命令按钮。(2)标准模块标准模块包含的是通用过程和常用过程，这些通用过程不与任何对象相关联，常用过程可以在数据库中的任何位置运行。3．将宏转换为模块在Access系统中，可以根据需要，将宏转换为模块。关于模块的创建与设计在后面的“程序设计”一节中介绍。转下页9.1.2关于VBAVBA（Visu

6、alBasicforApplications）是一种高级可视化编程版本，为Microsoft开发，是Office套装内置编程语言，其语法规则与VisualBasic互相兼容。在Access系统设计某一任务时，若基本“对象”操作不能满足要求时，则可使用系统提供的VBA编程功能来实现。诚然，初学用户，实现小的系统设计，尽量使用Access的各种“对象”，对于编程，需由浅入深，逐步掌握。返回9.2VBA编程基础9.2.1语句的语法规则9.2.2编程中用到的常量与变量9.2.3函数9.2.4数组9.2.5运算符与

7、表达式9.2.6对象、属性、方法9.2.7事件与事件过程9.2.8数据类型返回9.2.1语句的语法规则分类名称功能注释语句REM/‘注释声明语句SUB子过程名（）ENDSUB定义1个子过程CONST变量名=AS定义一个常量名及类型DIM变量名=ASPRIVATE声明私有的模块级变量PUBLIC声明公有的模块级变量STATIC声明过程级局部变量赋值语句LET（可选）转移语句GOTO标号条件语句IF…THEN…ELSE…ENDIFSELECTCASE…CASEELSE…ENDSELECTIIF(条件,值1,值

8、2）SWITH(条件1,条件2…,）返回条件1为真的值CHOOSE(索引式,选项1…）索引式值为1返回选项1的值转下页表10.1VBA编程中常用程序语句循环FOR…NEXTDOWHILE(UNTIL）…LOOPWHILE…WEND过程调用和参数传递SUB子过程名[形参][AS...][EXITSUB]ENDSUB定义1个子过程CALL子过程名[实参]FUNCTION函数过程名[形参][AS...][EXITFUNCTION…E