Access2019学习笔记-第VI部分

第VI部分ACCESS编程基础知识第22章使用Access宏宏简介1.创建宏创建MessageBox：Hello World！2.将宏分配到事件创建一个按钮，事件选择到宏cmdHelloWorld同时可以选择在窗体加载时就运行了解宏安全性略多操作宏就是一个宏对应多个操作，也是宏通常的使用方法子宏就是VBA的模块，建立特定的有通用性的操作，再通过顶级宏调用子宏子宏不显示在导航窗体中条件就是宏中的IF语句，可以一个IF运行多个操作临时变量就是类似VBA中DIM的一个变量语法为SetTempVar错误处理和宏调试1.OnError操作可以指示发生错误时如何处理如果使用MacroError对象时，可以使用比如说MessageBox来显示MacroError 对象的具体信息、2.MacroError对象储存一个最近运行的宏错误信息，包括如下对象可以调用：o操作名称o参数o条件o说明o宏名称o错误号：错误编号3.调试宏1）单步执行2）MessageBox3）StopMacro：和VBA的检查点类似，配合调试窗口可以看各个运行中的值4）调试窗口：详见27章嵌入的宏就是在控件中绑定宏，复制控件时会同时复制宏第23章使用Access数据宏了解表事件1.前期事件“更改前”事件可用于自动计算或以某个条件显示记录的值（通常就会使用到默认值）因为Access可以区分是更新还是新建，这时可以使用IF+[IsInsert]来锁定仅输入时触发否则“更改前”同样可以在更新时触发2.后期事件更多选项，几乎所有的事件都可供选择，比如插入后，更新后触发发送邮件，记录操作到某个表等等3.使用宏设计器处理数据宏和普通的宏设计器类似的方法使用，或者在设计视图中打开创建数据宏4.了解宏设计器的操作目录1）程序流程应用于宏的特定程序流程构造，COMMENT用于备注，GROUP用于模块化IF是最基础的分支结构2）数据块o CreateRecord: 往表中添加记录o EditRecord：编辑表中记录o ForEachRecord：循环构造，对查询或表中的每个记录执行一项操作o LookupRecord：返回在某个表中找到的一条记录，并提供一个宏操作区域，用于指定希望针对返回记录执行的操作。

3）数据操作o DeleteRecord：删除某条记录，必须谨慎！o CancelRecordChange：EditRecord和CreatRecord的更改都是不可取消的，CancelRecordChange和If结合可以在记录更改提交到数据库之前取消操作o ExitForEachRecord：和IF结合可以从ForEachRecord的查询中退出o LogEvent：ACCESS中其实隐藏的USysApplicationLog表，用于记录数据宏错误，也可以用于记录其他信息，LogEvent可以向这个表的Description中添加一条记录，其他字段Category，Context，DataMacroInstanceID，ErrorNumber,ObjectType和SourceObject都是宏本身提供的o SendEmail：使用默认程序发送邮件o SetLocalVar：设置局部变量o SetField：更新某个字段的值，不可用于“更改前”和“删除前”表事件o StopMacro：中断正在执行的宏并退出宏，没有参数，大多数和If或OnError 结合使用o StopAllMacro：和StopMacro类似，有时候事件会有多个宏同时运行，该操作可以全部停止o RunDataMacro：执行一个数据宏o OnError：错误时的指令，停止，忽略或跳到其他宏o RaiseError：将错误向上传递到用户界面层，并将错误详细信息添加到UsysApplicationLog中o ClearMacroError：通过RaiseError，OnError GoTo对错误进行处理后，清空错误对象MacroError，并使Access准备好处理下一个错误5.创建第一个数据宏见P448-450注意：表中的数据宏就算记录是在窗体中更改的仍然有效，因为修改的是表的底层数据6.管理宏对象1）展开和折叠每个条目的单独展开和折叠，方便阅读一个较大的宏2）移动宏条目o Ctrl+x结合Ctrl+vo鼠标拖动o右侧↑↓箭头3）将宏保存为XML宏设计界面Ctrl+A，Ctrl+C，之后就可以在Email或者记事本等软件中黏贴了7.了解数据宏的限制无消息框，无法打开窗体或报表，不能使用连接表第24章Access VBA入门简介比宏更具有灵活性，如果良好掌握，更便于使用了解VBA术语1.关键字：在VBA中具有特殊含义的单词2.语句：构成可由VBA引擎执行的指令的单个VBA单词或单词组合3.过程：组合到一起以执行某项任务的VBA语句集合存在两种类型的VBA过程，分别是子例程和函数o子例程：执行其中的语句，然后退出o函数：执行其中的语句，然后返回一个值，例如某个计算的4.模块：过程储存于模块中，如果语句类似于句子，过程类似于段落，那么模块就是章节或文档。

模块包括一个或多个过程，以及组合为应用程序中的单个实体的其他元素5.变量：实际就是应用程序保留在计算机内存中的一小块，可以命名它，以便以后引用它了解VBA代码基础知识例子：DoCmd.OpenForm "frmMyForm", acNormal此语句由一个操作（OpenForm）和一个名词（frmMyform）组成DoCmd是内置的Access对象，用于执行多种任务。

OpenForm是DoCmd的任务，FrmMyForm是任务要执行的目标名字，acNormal是一个修饰符，要求任务的完成状态。

在此意思为普通视图，拓展如下：创建VBA程序VBA可以扩展（能够调用Windows API例程），可以通过ActiveX数据对象（ActiveX Data Object, ADO）或数据访问对象（Data Access Object，DAO）与任何Access 或VBA数据类型进行交互1.模块和过程创建一个求平方的例子：Sub SquareIt()Dim lNumber As LonglNumber = 2MsgBox lNumber & " squared is " & lNumber ^ 2End Sub1）模块上例中第一部要先创建一个模块，模块是用于保存过程的容器，有两种类型：o标准模块标准模块独立于其他Access对象，例如窗体和报表，独立储存，公共调用、访问o类模块类模块的类定义对象的行为方式，可以创建自己的自定义类，但是最常用的类模块是绑定到窗体或报表的类模块。

上例中为标准模块，当向窗体或报表中添加VBA代码时则会自动创建类模块两种模块的重要差别为，类模块支持时间，事件响应用户操作，并运行包含在事件过程中的VBA代码o模块部分在创建模块时，根据环境设置的选项，ACCESS会自动插入一些代码。

模块中第一个过程上面的区域为声明部分。

声明部分用于储存将应用于模块中每个过程的选项和变量常见的选项声明为Option Compare Database和Option Explicit.▪Option Compare Database确定如何对两个字符串进行比较，通常情况是最佳选项拓展：Option Compare Text为不区分大小写比较，Option CompareDatabase为区分大小写比较▪Option Explicit限定了变量的使用，所有变量在使用前必须先声明不能将属于声明部分的语句放入代码中，反之亦然，否则报错2）过程和函数过程中每个语句都根据语言的语法进行结构化处理，这意味着语句中关键字的拼写以及单词顺序非常重要o子过程子过程是最简单的过程类型，有两个必须的语句，分别为Sub Procname和End SubProcname必须字母开头，不能包含大多数标点，最长255字符o变量声明在简单的子过程中，第一个语句是变量声明语句，该语句首先是Dim关键字接下来是变量名lNumber，和Precname相同的命名规则名称后是As关键字，后接该变量的数据类型（例子中声明为长整形Long）新手推荐：文本用String，无小数点数字用Long，有小数点用Double，True/False用Booleano变量赋值使用等于号（=）连接变量和所赋值lNumber = 2注意点：▪必须分配适用于变量的数据类型的值（否则可能无法正常使用或降低精度）▪变量名称位于等于号的左侧，值位于等于号的右侧实际逻辑为先将等于号右侧的所有内容求值，再分配给左侧的变量例子：bIsEqual为Boolean，dProduct为DoublebIsEqual = dProduct= 18.3第一个等于号为赋值运算符，后续的等于号均视为比较运算符因dProduct初始值默认为0，所以返回该比较不为真，返回Falseo函数与子过程类似，主要的区别为在结束时会返回一个值，内置的Now()就是一个例子，可以适用于页眉页脚等地除了内置函数还可以添加自定义函数，定义一种计算或操作在函数的主体内，可以通过为函数的名称复制来指定函数的返回值然后可以在较大的表达式中使用返回的值：Function SquareFeed(dHeight Ad Double, Dwidth As Double) AsDouble'Assign this function's value:SquareFeet = dHeight * dWidthEnd Function该模块后续就可以直接使用这个函数：dAnswer = SquareFeed(dHeight, Dwidth)2.在代码窗口中工作1）空白区域VBA会直接忽略行间和句首的空格和空行，空白主要用于排版和方便阅读2）续行空格后跟下划线3）多语句行使用冒号（:）可以在同一行里输入多语句，通常用于短语句4）智能感知Access提供的只能感知填充功能o自动完成关键字：快捷键Ctrl+空格，根据已书写的信息提示完整的关键字经常和输入法冲突，需要注意o自动列出成员：完成关键字后输入点（.）会自动列出该关键字的成员（对象/属性/方法）o自动快速信息同上，确定成员后自动提示下一步o自动常量一些参数不输入时，会自动使用默认值5）编译过程调试/编译→查看语法上是否有错误6）保存模块模块不显式保存在导航中类模块在保存对应的窗体或报表时保存了解VBA分支结构1.分支即根据不同的值，执行不同的任务VBA中提供了两组有条件处理语句o If…Then…Else…End Ifo Select Case …End Select1.If关键字有多种使用形式，但都是检查一个条件，如条件为True，则移动到If之后的行如果条件为False，则跳转到Else之后的语句，如果没有Else子句，就跳转到End If 语句之后的语句o If …Then 构造单行语句！If后为Ture执行Then，如果If后为False则跳过Then直接到之后的语句o If …End If 构造If后为True后可执行多个语句，使用End If作为结束，如为False则直接执行End If之后的语句o If …Else …End If构造If后为Ture执行Then后的语句为False执行Else之后的语句End If结束判断o If …ElseIf …End If 构造多判断条件结构If sCity = "Dallas" ThensState = "Texas"dTaxRate = 0.075ElseIf sCity = "Detroit" ThensState = "Michigan"dTaxRate = 0.05ElsesState = "Oregon"dTaxRate = 0.0625End If如果不带最后一个Else，当所有If和ElseIf都为False时，不执行If语句中的任何语句直接跳到End If之后的语句o嵌套If语句指一个If中跟着另一个If,实际是对一个集合的多重条件筛选o布尔值与条件当一个字段的值就是True/False形式时，无需书写为If IsNumber = True，直接为If IsNumber来简化2）Select Case …End Select 语句和ElseIf类似，语法更简洁，但不能使用布尔条件Select Case dSalesAmtCase 0.99, 1.99‘0.99或1.99dCommissionPct = 0.1Case 2 To 4.992到4.99dCommissionPct = 0.15Case Is >= 5大等于5（配合Is关键字可以是不等式）dCommissionPct = 0.17End Select2.循环VBA的另一员大将，满足特定的条件时，重复执行某个语句或语句组提供如下两种类型的循环构造o Do …Loopo For …Next通常在不知道要循环多少次时使用Do，知道要循环多少次时使用For1）Do …Loop 语句用于在满足某个条件时重复执行一组语句，知道满足某个条件为止常见构造1：Do [While/Until Condition][VBA 语句][Exit Do][VBA 语句]Loop常见构造2：Do [VBA 语句][Exit Do][VBA 语句]Loop [While/Until Condition]2）For …Next 语句常用构造For CounterVariable = start to End[VBA语句][Exit For][VBA语句]Next CounterVariable使用对象和集合1.对象入门每种类型的Access对象都包含自己的属性和方法，并与其他许多Access对象共享大量其他属性（例如Name）和方法集合通常命名为其中所包含对象的名称的复数形式。