计算机二级Access理论培训-VBA编程.ppt

全国计算机等级考试二级Access数据库 目录 数据结构与算法程序设计基础软件工程基础数据库设计基础Access数据库知识 1 VBA编程基础 数据类型 如何将数据存储在内存中Access常用的10种数据类型文本备注数字日期 时间货币自动编号是 否OLE对象超级链接查阅向导 1 VBA编程基础 VBA的数据类型Byte 字节型 Integer 整型 Long 长整型 Single 单精度型 Double 双精度型 Currency 货币型 String 字符型 Boolean 布尔型 Date 日期型 Variant 变体型 Object 对象型 1 VBA编程基础 Byte类型无符号整数取值范围 0 255Integer类型有符号整数取值范围 32768 32767Long类型有符号整数取值范围 2147483648 2147483647Single类型实数取值范围 1 401298E 45 3 402823E38Double类型实数取值范围 4 94065645841247E 324 1 79769313486232E308 1 VBA编程基础 Boolean数据类型只能是True或False与其他类型转换其他类型转Boolean 0转False 其他值转TrueBoolean转其他类型 False转0 True转 1 1 VBA编程基础 Date类型日期文字必须用符号 扩起来例 08 15 2009 Variant类型当一个类型没有被显式声明为其他类型时 缺省为variant类型是特殊的类型 可以转换和替换其他类型当variant变量没有值时 则用Empty表示 当variant变量有一个空值时 用NULL表示 1 VBA编程基础 用户自定义数据类型用Type语句定义把多个数据类型组合成用户自定义类型例 TypeMyInfoNameAsStringBirthdayAsDateSexAsIntegerEndType 1 VBA编程基础 变量存取数据 提供数据存放信息的容器每个变量都有一个名字VBA变量的命名规则变量名必须以英文字母开头变量名长度不超过255个字符用字母 数字 下划线来命名不能与VBA本身的函数 语句等关键字同名VBA变量不区分大小写 1 VBA编程基础 变量的声明显示声明格式 Dim变量名As类型DimIAsIntegerDimAAsString BAsCurrency CAsIneger隐式声明格式 Dim变量名Dimx由于容易出错 一般不用隐式声明 1 VBA编程基础 变量的作用域局部范围 在子过程或子函数中起作用模块范围 在整个模块起作用全局范围 在整个系统起作用 1 VBA编程基础 常量在程序执行过程中 不发生改变的值或字符串格式 Const常量名 表达式Constpi 3 1415926ConstBornDay 03 23 80 ConstA1 Abcdef258 VBA系统内部有若干个内部符号常量 可以直接使用 True False Yes No On Off Null等 1 VBA编程基础 数组格式 Dim数组名 下标 To上界 As数据类型DimWorkers 8 AsInteger下标默认为0 上界为8 共9个元素DimStudents 1to8 AsInteger二维数组格式 Dim数组名 下标 To上界 下标 To上标 As数据类型DimAa 19 19 AsIntegerDimBb 1to20 1to20 AsInteger 1 VBA编程基础 运算符数学运算符 乘幂 整数除法 Mod 求模 比较运算符 连接运算符把两个字符串连接在一起 有 和 运算符A1 厦门 A2 大学 A3 A1 A2逻辑运算符AND 与 OR 或 NOT 非 运算的结果是 True或False 1 VBA编程基础 表达式和优先级把常量 变量用运算符连接在一起所构成的式子当一个表达式有多个运算符 进行运算的顺序是由运算符的优先级决定的算术运算 连接运算 比较运算 逻辑运算例 x 1 y 2 z 3 x y zANDx y z 1 VBA编程基础 标准函数数学函数Sin N Cos N Tan N Atn N Sgn N 返回自变量N的符号 N0 返回1Abs N 求绝对值Sqr N 求平方根Exp N 求e的N次幂Log N N的自然对数Int N 不大于N的整数 Int 5 2 5 Int 5 2 6Fix N 取整 Fix 5 2 5 Fix 5 2 5Cint N 四舍五入整数Rnd N 0 1之间的随机小数 1 VBA编程基础 标准函数转换函数Asc C 字符串C首字母的ASCII值 Asc A 65Chr N ASCII码值N的字符 Chr 65 AVal C 把数字组成的字符串转换成数值 Val 456 456Str N 把数值转换成字符 Str 357 357 Str 123 123 1 VBA编程基础 标准函数字符串函数Trim C 去掉字符串c两端的空格 Trim av av Left c n 取C的左边n个字符 Left command 3 com Right c n 去C的右边n个字符 Right command 3 and Mid C m n 取C的m个字符开始的n个字符 Mid command 3 2 mm Len c c的字符数 汉字算一个字符 Len 中 1 1 VBA编程基础 标准函数日期与时间函数Time 当前时间Date 当前日期Now 当前时间和日期Day c 当前日Month c 当前月Year c 当前年WeekDay C 星期几 2 VBA流程控制语句 VBA语句 一条语句就是一个命令 可包含关键字 运算符 变量 常量和表达式语句分类声明语句执行语句通常一条语句占一行 一行写不下使用 将语句写在下一行 2 VBA流程控制语句 流程控制 条件语句If thenIfI10000thentax Money 0 2ElseifMoney 1000thentax Money 0 15Elsetax Money 0 1EndifIIf 条件式 表达式1 表达式2 2 VBA流程控制语句 流程控制 条件语句SelectcaseSelectCaseXcase1Print One case2Print Two case3Print Three case4Print Best CaseelsePrint Bad EndCase 2 VBA流程控制语句 流程控制 循环语句For NextFori 1to10step1Print2 iNextiDimNumbers 1to15 AsIntegerDimIAsIntegerForI 1to15Numbers I 30NextI 2 VBA流程控制语句 流程控制 循环语句Do While Loop 条件为真时循环Do Until Loop 条件为假时循环DimIAsIntegerI 1DoWhileI 20PrintII I 1LoopDimIAsIntegerI 1DoPrintII I 1LoopWhileI 20 2 VBA流程控制语句 流程控制 循环语句Do While Loop 条件为真时循环Do Until Loop 条件为假时循环DimIAsIntegerI 1DoUntilI 20PrintII I 1LoopDimIAsIntegerI 1DoPrintII I 1LoopUntilI 20 2 VBA流程控制语句 流程控制 循环语句While WendI 1WhileI 5PrintII I 1Wend 2 VBA流程控制语句 流程控制 循环语句循环退出 ExitPrivateSubCommand1 click DimI JAsIntegerJ Form Text2 ValueForI 1To100IfI JThenExitForEndIfNextIMsgBox 你输入的值是 IEndSub 3 过程调用和参数传递 过程调用子过程的定义PublicSub子过程名 参数名 子过程语句EndSub子过程的调用Call子过程名 参数名 或子过程名 参数名 3 过程调用和参数传递 过程调用子过程的定义PublicSub子过程名 参数名 子过程语句EndSub子过程的调用Call子过程名 参数名 或子过程名 参数名 3 过程调用和参数传递 过程调用函数过程的定义PublicFunction函数过程名 参数名 As数据类型 函数过程语句EndFunction函数过程的调用函数过程名 参数名 3 过程调用和参数传递 参数传递ByVal 按值传递ByRef 按址传递 默认选项 4 VBA程序运行错误处理 OnErrorGoTo标号OnErrorResumeNextOnErrorGoTo0 VBA数据库编程 VBA常见操作打开和关闭操作DoCmd OpenFormDoCmd OpenReportDoCmd Close输入