第07章 VBA和宏.ppt

第7章 VBA编程;7.1 编程的基本概念;对象：表示实体，如一个学生等。一种对象包含多种属性，如学号、姓名、入学总分、所在班级等。对象还带自己的方法，即对象所能执行的行为，如查询学生情况等。;属性和方法：描述了对象的性质和行为。 引用：对象.属性 或 对象.方法;?打开当前数据库中的“雇员”窗体 DoCmd.OpenForm Employees, , , [Title] = Sales Representative ?在数据库窗口中选择Costomers窗体 DoCmd.SelectObject acForm, “Costomers”, True ?在数据库窗口中关闭OrderReview窗体 DoCmd.Close acForm, “OrderReview”, acSaveYes ?在表视图中打开Sales totals Query查询 DoCmd.OpenQuery “Sales totals Query”, , acReaOnly ?删除Former Employees Table表 DoCmd.DeleteObject “Former Employees Table” ?查找符合以参数指定的准则的第一个数据实例 DoCmd.FindRocord “Smith”, , True, , True; 5. 事件;Option Compare Database Private Sub com清除_Click() com清除按钮的单击事件 Me.txt你好.SetFocus 聚焦文本框 Me.txt你好.Text = “” 清空文本框表面文字 End Sub 结束过程;7.2 过程及模块分类 1. 过程的概念;子程序：执行一系列操作的过程。 使用过程的主要优点：写一个功能模块，必要时可多次调用，若模块有错误，改正之后，则程序中所有引用它的地方都得到维护。 格式： [Public|Private][Static] Sub 子程序名([参数])[As 数据类型] [一组语句] [Exit Sub] [一组语句] End Sub ?Public 所有模块的所有其他过程都可调用 ?Private 适用于同一模块中的其他过程 ?Static 过程中的变量在模块打开期间始终有效 ;计算球的体积，并加入错误捕获 Public Function V(R As Single) As Single ’ R为形参 On Error GoTo Err_求解出错 ’ 出错则转入错误处理 V＝3.1416*R^3*4/3 Exit_求解出错: Exit Function Err_求解出错: ’ 出错则显示错误消息 MsgBox Err.Description Resume Exit_求解出错 End Function 函数的调用： ?计算半径为5的球的体积：V(5) ?变量做实参：Dim MyR As Single V(MyR);VBA的模块有两种基本类型：类模块和标准???块。 ?标准模块：包含在数据库窗口的模块对象列表中，其中有通用过程和常用过程，这些过程不与Access数据库文件中的任何对象相关联。若控件没有恰当的前缀，这些过程没有指向Me或控件名的引用。但可在数据库中任何其他对象中引用标准模块中的过程。 ?类模块：包含类的定义（属性和方法）的模块，有三种基本形式：窗体类模块、报表类模块和自定义类模块，它们各自与某一窗体或报表相关联。为窗体或报表创建第一个事件过程时，Microsoft Access将自动创建与之关联的窗体或报表模块。 类模块也可脱离窗体或报表而单独存在，这种类模块可在数据库窗口的模块页中显示。;7.3 VBA编程环境 1. VBA编程窗口; 2. 标准工具条; 3. 工程、属性、代码窗口; 4. 在代码窗口中编程;7.4 变量、常量与数据类型; 2. VBA主要数据类型; 3. 数据类型的特殊情况;?Variant (变体)数据类型：若未给变量指定数据类型， Access自动指定其为Variant类型。 Variant可包含除定长String数据及用户定义类型之外的 任何种类的数据。也可包含Empty、Error、Nothing 及 Null特殊值。 例如，若声明和赋值语句为： Dim MyVar As Variant MyVar = 9805