Access课件第9章 VBA编程

第9章VBA编程,【本章要点】通过本章的学习，可以了解到什么是VBA，并掌握Access2003的VBA编程环境VBE的操作，学会使用基础VBA语法，并用它来编写短小实用的模块，帮助我们更方便有效的使用Access。,知识要点,1、理解VBA概念2、掌握VBA编程环境VBE的操作3、使用基础VBA语法,本章学习内容,9.1VBA编程环境9.2VBA语法9.3面向对象的程序设计基础,9.1VBA编程环境,9.1.1VBA简介虽然宏有很多功能，但是其运行速度比较慢，也不能直接运行Windows的程序，不能自定义函数，如果要对数据进行特殊的分析或操作时，宏的能力就有限了。因此，微软创建了一种新的语言VBA（VisualBasicforApplication），使用VBA可以创建“模块”，在其中包含执行相关操作的语句，它可以使Access自动化,可以创建自定义的解决方案。VBA是VB的子集，VB是微软公司推出的可视化Basic语言，用它来编程非常简单。它简单，而且功能强大，所以微软公司将它的一部分代码结合到Office中，形成今天所说的VBA。它的很多语法继承了“VB”，所以可以像编写VB语言那样来编写VBA程序，以实现某个功能。当这段程序编译通过以后，将这段程序保存在Access中的一个模块里，并通过类似在窗体中激发宏的操作那样来启动这个“模块”，从而实现相应的功能。不单单是Access，其它的Office应用程序，如Excel，PowerPoint等都可以通过VBA来辅助设计各种功能。,VBA是事件驱动的，简单来说，它等待能激活它的事件发生，比如说当鼠标被点击，一个键被按下或者一个表单被打开，等等。当事件发生时，VBA调用Windows操作系统的功能去实现“模块”中设定好的语句。这样看来，“模块”和“宏”的使用是差不多的。其实Access中的“宏”也可以存成“模块”，这样运行起来的速度还会更快。“宏”的每个基本操作在VBA中都有相应的等效语句，使用这些语句就可以实现所有单独“宏”命令。模块是书写和存放VBA代码的地方。它是一个代码容器，可以将一段具备特殊功能的代码放入模块中，当指定的事件激活模块时，其中包含的代码对应的操作就会被执行。模块有两种形态：,1标准模块简称“模块”，或称为“一般模块”。大多数模块都是标准模块，其中包含的代码和特定的数据库对象并无关联，当数据库中对象被移动时，模块还在原数据库中不动。标准模块包含与任何其他对象都无关的常规过程，以及可以从数据库任何位置运行的经常使用的过程。标准模块和与某个特定对象无关的类模块的主要区别在于其范围和生命周期。在没有相关对象的类模块中，声明或存在的任何变量、常量的值都仅在该代码运行时、仅在该对象中是可用的。2类模块可以包含新对象定义的模块。一个类的每个实例都新建一个对象。在模块中定义的过程成为该对象的属性和方法。类模块可以单独存在，也可以与窗体和报表一起存在。和窗体、报表相关联的分别称为窗口（form）模块和报表（report）模块，这种模块中的代码和特定的报表或窗口相关联。当对应的窗口或报表被移动到另一个数据库时，模块和其中代码通常也会跟着被移动。窗体模块（窗体模块：该模块中包含在指定的窗体或其控件上事件发生时触发的所有事件过程的代码。）和报表模块（报表模块：该模块中包含在指定报表或其控件上事件触发时的所有事件过程的代码。）都是类模块，它们各自与某一特定窗体或报表相关联。窗体模块和报表模块通常都含有事件过程（事件过程：自动执行的过程，以响应用户或程序代码启动的事件或系统触发的事件。），过程的运行用于响应窗体或报表上的事件。可以使用事件过程来控制窗体或报表的行为，以及对它们操作的响应，如单击命令按钮。,9.1VBA编程环境,9.1.2VBA代码编辑器(VBE)VBE就是VBA的代码编辑器，在Office的每个应用程序中都存在。可以在其中编辑VBA代码，创建各种功能模块。1.开启VBE有多种方式来打开VBE：在Access应用程序中，在菜单栏里单击【工具】|【宏】|VisualBasic编译器，打开VBE，如图9-1所示。在Access应用程序中，在菜单栏里单击【插入】|【模块】或者【类模块】，打开VBE，并且直接在其中创建一个模块或类模块，如图9-2所示。,图9-1打开VBE方法一,图9-2打开VBE方法二,刚打开数据库时，在对象栏中选中【模块】，然后选择【新建】，打开VBA，并在其中生成一个新的空标准模块。,2.VBE窗口组成如图9-3所示的VBE窗口。其中不包含任何代码。,图9-3不包含代码的VBE窗口,VBE窗口可大体分为如图9-3中所标的六部分：（1）菜单栏：VBE中所有的功能都可以在菜单栏中实现。（2）帮助搜索：在图9-3中标号为2的位置，可以输入你所要查询的知识点，就会激活VisualBasic帮助，如图9-4中，就是在搜索栏中输入“属性”，按回车后，激活了VisualBasic帮助窗口，并把搜索到的相关条目列出，你再点击感兴趣的条目，就会打开MiscrosoftVisualBasic帮助文档，示条目的具体内容。,图9-4帮助搜索和帮助文档,（3）工具栏：工具栏中包含各种快捷工具按钮，根据功能类型的不同各属于不同分组。比如：和代码编辑相关的工具按钮就属于“编辑”工具，和调试相关的工具按钮属于“调试”工具。（4）工程资源管理器：用来显示和管理当前数据库中包含的工程。刚打开VBE时，会自动产生一个与当前Access数据库同名的空工程，可以在其中插入模块。一个数据库可以对应多个工程，一个工程可以包含多个模块。工程资源管理器窗口标题下面有三个按钮，分别为：“查看代码”，显示代码窗口，以编写或编辑所选工程目标代码；“查看对象”，显示选取的工程，可以是文档或是UserForm的对象窗口；“切换文件夹”，当正在显示包含在对象文件夹中的个别工程时可以隐藏或显示它们。（5）属性窗口：用来显示所选定对象的属性，同时可以更改对象的属性。“对象下拉列表框”是用来列出当前所选的对象，只能列出现用窗体中的对象。如果选取了好几个对象，则以第一个对象为准。“属性列表”：“按字母序”选项卡按字母顺序列出所选对象的所有属性。“按分类序”选项卡根据性质列出所选对象的所有属性。可以折叠这个列表，这样将只看到分类；也可以扩充一个分类，并可以看到其所有的属性。当扩充或折叠列表时，可在分类名称的左边看到一个加号（+）或减号（-）图标。,（6）主显示区域：用来显示当前操作所对应的主窗体。一般情况显示的是“代码窗口”，在其中可以编辑模块代码，如图9-5所示。,9-5代码窗口,如果在【视图】菜单中，选择【对象浏览器】，在主显示区域中显示如图9-6中所示的对象浏览器窗口。如果选择【立即窗口】、【本地窗口】、【监视窗口】，在主显示区域的下端，显示出对应的窗口。,9-6对象浏览器,立即窗口：在此窗中键入或粘贴一行代码，然后按下ENTER键立即执行该代码。立即窗口中的代码是不能存储的。本地窗口：可自动显示出所有在当前过程中的变量声明及变量值。若本地窗口为可见的，则每当从执行方式切换到中断模式或是操纵堆栈中的变量时，它就会自动的重建显示。监视窗口：当工程中有定义监视表达式定义时，就会自动出现。也可以将选取的变量拖动到立即窗口或监视窗口中。提示：在VBE中的窗口都是可以移动的，你可以随意拖动窗口，设置出最适合自己编程习惯的窗口布局。,9.2VBA语法,和学习任何一门语言一样，想要使用VBA进行编程，必须先熟练掌握VBA的语法，它是VBA编程的工具。,9.2.1过程与函数模块是VBA程序功能的基本单位，其中包含用VBA代码编写的操作语句。模块又是由一个一个过程组成的，多个过程按一定的关系组成完整的模块。1.过程的概念：过程（Procedure），是有明显开始和结束标识的代码段，用来实现一个程序逻辑。它是有名字的语句序列，可作为单元来执行。例如，Function、Property和Sub都是过程类型。总是在模块级别定义过程的名称，所有可执行的代码必须包含在过程内，一过程不能套在其它过程中。在模块内的代码会被组织成过程，而过程会告诉应用程序如何去执行一个特定的任务。利用过程可将复杂的代码细分成许多部分，以便管理。过程按照其功能的不同分为3类，就是我们上面提到到Function过程、Property过程和Sub过程。下面我们分别来介绍。,2.Function过程：Function过程的概念：Function过程通常被称为“函数”，是一系列由Function和EndFunction语句所包含起来的VisualBasic语句。Function过程可以返回一个值。Function过程可经由调用者过程通过传递参数，例如常数、变量、或是表达式等来调用它。如果一个Function过程没有参数，它的Function语句必须包含一个空的圆括号。函数会在过程中的一个或多个语句中指定一个值给函数名称来返回值。Function过程的用途：Function程序会返回一个数据值，常用来返回计算的结果。VBA拥有许多内置函数，例如，Now()函数会返回目前的日期和时间。除了这些内置函数外，用户还可以建立自己的函数(也就是所谓的用户自定义函数)。由于函数会返回值，因此可以在表达式中使用它们。在Access中的许多地方都可以在表达式中使用函数，包括在VBA表达式或方法中、在许多属性设置值之中或在筛选或查询中的准则表达式中。Function过程的定义语法：声明Function过程的名称，参数以及构成其主体的代码。语法：Public|Private|FriendFunctionname(arglist)Astypestatementsname=expressionEndFunction,Function语句的语法包含下面部分：,Function过程的调用：在需要使用Function的过程中，可以直接用函数名（参数列表）来调用函数，也可以使用Call语句调用，Call函数名（参数列表）。如果函数有返回值，还可将函数放入表达式中使用。【例91】使用Function过程计算10的平方根。在本例中，要建立一个标准模块，然后在其中声明一个Function过程，用来开平方，再定义一个主过程，在其中调用Function过程计算10的平方根，然后调用系统MsgBox，弹出对话框，显示计算结果。具体操作步骤如下：打开本书配套例子数据库tushu，在数据库对象管理窗口中，单击左侧【对象】组中的【模板】，再点击【新建】按钮，会自动打开VBE，并且新建一个只包含一个声明语句的空模块。块如图9.7，9.8所示。在代码窗口中添加如下代码：SubMain()MsgBox10的平方根是Data_Source=C:tushu.mdb;按照自己存放数据库的位置填写Source属性DoWhilecount=2ThenMsgBox你已经无效登录4次！DoCmd.QuitEndIfEndFunction,使用设计视图创建一登录窗体，更改其中一些窗体属性值，如下：标题=登录，滚动条=两者皆无，记录选择器=否，导航按钮=否，分割线=否。如图9.16所示。然后在窗体中加入两个文本框，和两个按钮，其外观设计如图9.17所示。将两个标签标题分别改为“用户名”和“密码”，将两个文本框的名称分别改为“txtUser”和“txtPwd”。两个按钮标题分别设置为“登录”和“退出”。使得最终登录窗体的运行效果如图9.18所示。使用设计向导创建一显示数据的窗体，和数据库中的图书表相关联，用于显示图书表中数据，显示效果如图9.19所示为登录按钮设置单击事件过程，用来调用模块中的函数过程，判断用户输入的用户名和密码是否正确，代码如下。PrivateSubcmdLogin_Click()Dimstr1AsString,str2AsStringDimbAsBooleantxtUser.SetFocusstr1=txtUser.TexttxtPwd.SetFocusstr2=txtPwd.Textb=login(str1,str2)IfbThenUnloadMeEndIfEndSub,图9.16设置登录窗体属性,图9.17登录窗体外观设计,为退出按钮添加单击事件过程，用于退出Access程序PrivateSubcmdCancel_Click()DoCmd.QuitEndSub最后保存登陆窗体，将其命名为login点击菜单【工具】|【启动】，弹出Access程序的启动设置窗口。设置login为启动窗体，并且不显示数据库其他部分，设置如图9.20所示，这样设置之后，只有通过登录窗体验证，才能访问图书窗体，而且保护了数据库内部信息。打开“工作人员”表，在“xm”列中输入想要设置的用户名；在“kl”列中输入想要设置的密码口令，在登录时，用作用户名和密码。关闭数据库，保存所有设置，再双击数据库，将其打开。这次看到的就只有登录窗体了，如果在限定的4次中没有输入正确的用户名或密码，Access程序就会自动关闭；如果输入正确，就会显示图书窗体，以供查看数据。,图9.18登录窗体外观,9.19图书窗体外观,9.20设置数据库启动项,程序分析：在实例9.5中，创建了两个窗体，login用于登录，图书用于查看图书表中数据。并且设定了登录窗体为Access程序的启动窗体，不通过登录验证，就不能访问数据库；通过验证后可以查看图书窗体。登录逻辑通过登录窗体中的登录命令按钮激活，在登录按钮的单击事件中被调用，书写在模块1里，即PublicFunctionlogin。在模块1中，login函数过程之外，还定义了一个计数器count，用来记录错误登录次数，在DoWhile循环中，判断用户输入和数据库“工作人员”表中存放的用户名和密码是否相同，相同则登录，显示图书窗体；不同时，每错一次，count加一，如果错误超过4次，就退出Access程序。9.2.8错误处理再好的程序员也避免不了出错。有两个原因会导致应用程序中出错。第一，在运行应用程序时某些条件可能会使原本正确的代码产生错误。例如，如果代码尝试打开一个已被删除的表，就会出错。第二，代码可能包含不正确的逻辑，导致不能运行所需的操作。例如，如果在代码中试图将数值被0除，就会出现错误。如果没有做任何错误处理，则在代码出错时VisualBasic将停止运行并显示一条出错消息，还会在代码窗口中定位到编译器认为有错误代码的语句，高亮显示。可是编译器提示的错误代码位置并不十分准确，还需要手动去查找。,可以使用VBE自带调试功能来观测程序每一步的执行，以便查找错误。一般的做法是：首先为可能出错的代码语句添加“断点”，用左键单击选定语句的【代码窗口】最左边即可，如图9-21所示。然后打开“本地窗口”，运行程序。这时，没当程序运行到设置断点的语句之前就会停下，就可以在“本地窗口”（图9-22）中查看当前代码中的对象，变量等。接着根据自身需要，选择菜单【调试】下的【逐语句】，【逐过程】或者【跳出】来继续程序的运行。,图9-21设置了断点的代码语句,图9-22本地窗口,VBA还有一套错误处理程序语句，将其包含在代码中来处理可能产生的所有错误，可以预防许多问题。有兴趣的读者可以查看VBE中的帮助或相关资料来了解详细信息，在此不作详述。,9.3面向对象的程序设计基础,VBA不仅支持结构化的编程技术，更能很好的使用于面向对象的编程技术（ObjectOrientedProgramming，OOP）。面向对象的程序设计以对象为核心，以事件作为驱动，可以大提高程序的设计效率。9.3.1对象和类的概念客观世界里的任何实体都可以看作是对象。对象可以是具体的物，也可以指某些概念。例如一台计算机、一个相机、一个窗体、一个命令按钮等都可以作为对象。每个对象都有一定的状态，对一个窗体的大小、颜色、边框、背景、名称等。每一个对象也有自己的行为，如一个命令按钮的可以进行单击、双击等。使用面向对象的方法解决问题的首要任务是从客观世界里识别出相应的对象，并抽象出为解决问题所需要的对象属性和对象方法。属性用来表示对象的状态，方法用来描述对象的行为。类是客观对象的抽象和归纳，是对一类相似对象的性质描述，这些对象具有相同的性质：相同种类的属性以及方法。类好比是一类对象的模板，有了类定义后，基于类就可以生成这类对象中任何一个对象。,9.3.2属性和方法属性是对象所具有的物理性质及其特性的描述，通过设置对象的属性，可以定义对象的特征或某一方面的状态。如一个命令按钮的大小、标题、标题字号的大小、按钮的位置等就是这个命令按钮的属性。方法用来描述一个对象的行为，对象的方法就是对象可以执行的操作。如命令按钮的单击事件，双击事件，按下鼠标和释放鼠标等事件。在VBA代码中引用对象的属性和方法的格式为：对象名属性名对象名方法名（参数1，参数2）例如将文本框Text1的值赋给变Name。Name=MeText1Value如将Command1的标题设置为“确定”。Command1Caption=“确定”,9.3.3事件和事件过程1事件事件是Access预先定义好的，能被对象识别的动作。事件作用于对象，对象识别事件并作出相应的反应，如单击事件（Click）、双击事件(DblClick)、移动鼠标事件（MouseMove）等都能引起对象作出操作。事件是固定的，由系统定义好的，用户不能定义新的事件，只能引用。2事件过程事件过程是为事件的响应编写的一段程序，又称为事件响应代码。当对象的某一个事件被触发时，就会自动执行事件过程中的程序代码，完成相应的操作。事件的处理遵循独立性原则，即处个对象识别并处理属于自己的事件。例如，当单击窗体中的一个命令按钮时，将引发命令按钮的“单击（Click）”事件，而不会引发窗体的单击事件，也不会引发别的命令按钮的单击事件。如果没有指定命令按钮“单击（Click）”事件代码，该事件将不会有任何反应。3窗体事件的触发顺序Access窗体本身内置了许多事件，这些事件会被用户的动作所触发，且用户的一个动作可能触发窗体的多个事件。事件被触发是有先后顺序的，1）窗体第一次打开时依次触发的事件打开(Open)加载(Load)调整大小(Resize)激活(Activate)成为当前(Current)。,打开(Open）：在窗体已经打开，但第一条记录尚未显示时，“打开（Open）”事件发生。对于报表，事件发生在报表被预览或被打印之前。加载(Load)：窗体打开并且显示其中记录时，“加载(Load)”事件发生。调整大小(Resize)：在窗体打开后，只要窗体大小有变化，“调整大小(Resize)事件”就发生。激活(Activate)：“激活(Activate)”在窗体或报表获得焦点并成为活动窗口时发生。成为当前(Current)：当把焦点移动到一条记录，使之成为当前记录时触发“成为当前(Current)”事件。2）关闭窗体时依次触发的事件卸载(Unload)停用(Deactivate)关闭(Close)卸载(Unload)：“卸载(Unload)”事件发生在窗体被关闭之后，从屏幕上删除之前。当窗体重新加载时，Access将重新显示窗体并重新初始化其中所有控件的内容。对于报表，事件发生在报表被预览或被打印之前。停用(Deactivate)：当焦点从窗体或报表移到“表”、“查询”、其它“窗体”等对象时，“停用(Deactivate)”事件发生。关闭(Close)：当窗体或报表被关闭并从屏幕删除时，“关闭(Close)”事件发生。窗体中有两个与获得焦点有关的事件“获得焦点（GotFocus）”事件与“失去焦点（LostFocus）事件，“激活”事件发性在“获得焦点”事件之前，“停用”事件发生在“失去焦点”事件之后。如果在两个已经打开的窗体之间进行切换，切换的窗体将发生“停用”事件，而切换到的窗体发生“激活”事件,3）插入数据时依次触发的事件插入前(BeforeInsert)更新前(BeforeUpdate)更新后(AfterUpdate)插入后(AfterInsert)插入前（BeforeInsert）：在新记录中输入第一个字符时，并且实际创建该记录之前将发生“插入前（BeforeInsert）”事件。更新前(BeforeUpdate)：“更新前(BeforeUpdate)”事件在控件中的数据被改变或记录被更新之前发生。更新后(AfterUpdate)：“更新后(AfterUpdate)”事件在控件中的数据被改变或记录被更新之后发生。插入后(AfterInsert)：“插入后(AfterInsert)”事件在添加新记录之后发生。4）删除数据时依次触发的事件删除(Delete)确任删除前(BeforeDelConfirm)确任删除后(AfterDelConfirm)删除（Delete）：在执行某些操作来删除记录，或按下Delete键删除一条记录，并且记录实际被删除之前，“删除（Delete）”事件发生。确任删除前(BeforeDelConfirm)：将一条或多条记录删除到缓冲区之后，在系统显示对话框询问用户确认删除操作之前，“确任删除前(BeforeDelConfirm)”事件发生。确任删除后(AfterDelConfirm)：”确任删除后(AfterDelConfirm)”事件在用户确认删除操作，并且记录确实已被删除或者删除操作已被取消之后发生。,5)更新数据依次触发事件有脏数据时(Dirty)更新前(BeforeUpdate)更新后(AfterUpdate)有脏数据时（Dirty）：当窗体的内容或组合框的文本部分的内容改变时，“有脏数据时(Dirty)”事件发生；在选项卡中控件从一页移到另一页时，该事件也发生。更新前(BeforeUpdate)：在记录的数据被更新之前触发事件。更新后(AfterUpdate)：在记录的数据被更新之后触发该事件。9.3.4DoCmd对象DoCmd对象的主要功能是通过调用用包含在其内部的方法，来实现在VBA编程中对Access数据库的操作。例如：打开窗体、打开报表等。1OpenForm方法格式：DoCmdOpenForm，视图，筛选名称，Where条件，数据模式，窗口模式OpenForm方法共有7个参数，下面分别介绍一下每个参数的含义。1）窗体名称窗体名称是一个必填的，用于指示Access打开哪个窗体。例如：DoCmdOpenForm“学生信息查询”其中学生信息查询是被打开窗体的名称。窗体名称必须用英文引号包括起来。2）视图参数,视图参数是一个可选项目，由以下一些常量表示。acDesign以设计模式打开窗体。acFormDS以数据表模式打开窗体。acFormPivotChart以图表模式打开窗体。acFormpivotTable以透视表方式打开窗体。acNormal默认。在“窗体”视图中打开窗体。acPreview以预览方式打开窗体。如果该参数为空，则系统认为是默认常量AcNormal，在“窗体”视图中打开窗体。DoCmdOpenForm“借书情况查询”执行的结果如图9-23所示。,图9-23在“窗体”视图中打开窗体,例如：DoCmdOpenForm“借书情况查询”,acFormDS表示以数据表模式打开“借书情况查询”窗体，结果如图9-24所示。,图9-24以“数据表模式”开窗体,DoCmdOpenForm“借阅图书”,acDesign表示以设计模式打开窗体。运行结果如图9-25所示。,图9-25以设计模式打开窗体,3）筛选名称（FilterName）参数筛选名称（FilterName）参数是可选项目，是一个字符表达式，数据类型为Variant型，用于表示当前数据库中查询的效名称。这个查询是用来对窗体的记录进行限制或排序的筛选。但是，查询必须包括被打开的窗体内的所有字段，或者将它的“输出所有字段”属性设置为“是”。,4）Where条件参数Where条件（whereCondition）参数是可选项目，是Variant型，为字符串表达式，表示不包括Where的有效SQLWhere子句。可以用来限定窗体中显示数据的范围，比如以下SQL语句可以在“借还记录”表中查询“借书证号”为“010120050101”的记录：Select*Form借还记录wheresjzh=”010120050101”在打开“借书情况查询”窗体是，可以在OpenForm方法中进行筛选，如：DoCmd.OpenForm借书情况查询,acFormDS,jszh=010120050101“查询窗体中只显示“借书证号”为“010120050101”的数据。如图9-26。,图9-26有筛选参数打开的窗体,5）数据模式参数数据模式（DataMode）参数是可选项目，窗体的数据库入模式。该参数只应用于“窗体”视图各“数据表”视图中打开的窗体。可以是以下asFormOpenDataMOde常量之一。acFormAdd可以添加新记录，但是不能编辑现有记录。acFormEdit可以编辑现有记录和添加新记录acFormPropertySettings默认，按窗体上的属性设置。acFormReadOnly只能查看记录。如果不选择该参数，则Access将在由窗体的AllowEdits、AllowDeletions、AllowAdditions和DataEntry属性设置的数据模式中打开窗体。如果在打开的窗体中只能查看数据而不能修改数据，就可以以只读方式打开窗体。代码如下：DoCmdOpenForm“借阅图书”,acFormReadOnly6）窗口模式参数窗口模式（WindowMode）参数是可选项目，用于指定打开窗体时所采用的窗口模式。它可以是下列acWindowMode常量之一。AcDialog窗体的Modal和PopUp属性设为“是”。AcHidden窗体隐藏。AcIcon打开窗体并在Window工具栏中最小化。AcWindowNormal默认值，窗体采用它的属性所设置的模式。,2OpenReport方法格式：DoCmdOpenRepot，视图，筛选名称，Where条件，窗口模式各参数的用法与OpenRepot宏操作中各参数的用法相同。例如，用DoCmd对象OpenRepot方法打开“借书情况”报表，其语句如下：DoCmdOpenRepot“借书情况”3RunMarco方法使用该方法