access8第8章 模块与VBA程序设计.ppt

1、Access计程仪编程，文科补正机小共同授课补正画教材，总目录，第1章数据库基础第2章数据库和表第3章第4章窗体第5章报告书第6章宏命令第7章第8章模块和VBA计程仪编程第9章第2级公共基础知识， 第8章模块和VBA计程仪编程6【难重点】类模块和特罗尔对象的查询密码表现运算符和公式选择结构的计程仪编程常用系统函数、知识网状图，【例8.1】用户注册表的“结束”按钮VBA查询密码(1)“结束”命令按钮上通告(2)事件代码Command7_Click ()表示过程名称。 在access中，过程名称必须为console特罗尔名称_上通告名称()，过程名称后面必须为()。 Command7是“退出”按钮

2、的名称，Click是喀呖声上通告。 上通告过程查询密码Private Sub Command7_Click ()和End Sub中间的几行查询密码是实现“退出”功能的VBA查询密码，实现退出的具体查询密码是DoCmd.Quit，其他查询密码用于错误处理。 稍后将详细讨论这些个的查询密码作用。8.1初始知识VBA编辑、8.1.1表单上通告(event ) :在特罗尔对象上发生的、可以识别的动作(喀呖声鼠标、按下牛鼻子等)中，可以根据该动作写入某种查询密码。 对上通告的响应有两种方法：使用宏命令响应特罗尔对象上通告，以及编写VBA查询密码过程。 使用8.1初始知识VBA篇、【例8.2】宏命令对特罗

3、尔对象上通告进行响应时，例如同样制作能够结束access计程仪程序的按钮时，(1)制作宏命令，宏命令名选择“结束系统”，操作选择“Quit”。 (2)制作表单。 在表单中添加命令按钮。 (3)打开“命令按钮职业腻子粉”窗口，切换到“上通告”标签页，喀呖声上通告下拉框，从弹出列表中选择“完成系统”宏命令；(2)在窗体或refa的“设计视图”中单击工具条的【代码】按钮(3)在数据库窗口中，喀呖声“工具”|“宏命令”|【Visual Basic编辑器”命令。 (4)选择数据库模块对象，喀呖声数据库窗口的【新建】，或者双喀呖声已有的模块对象、VBE、模块、模块中的任意一个，是用VBA语言写的计程仪项目

4、的集合。 模块分类1，类模块：与某个表单或记录通讯端口相关联的2，标准模块：将类模块、标准模块、宏命令转换为模块，将宏命令转换为模块，加快执行速度，因为有与宏命令各操作对应的VBA语句。图8.8“转换宏命令”对话框计程仪、标准模块名称、创建模块、类模块：在对某个特罗尔写入上通告查询密码时，自动创建标准模块： 1、在数据库窗口或VBE窗口中，执行菜单【插入】|【模块】命令。 2 .在数据库窗口中，喀呖声【模块】对象，喀呖声【新建】按钮。VBA计程仪编程基础，1、注释格式1: rem注释内容格式2 :注释内容说明：“ ”为英文符号单引号2，要在连续书写同一行上书写多个句子，必须用“:”号分隔不同的

5、句子。 3 .换行一个句子太长，可以把那个句子写在几行上，在换行上加上空白下划线(_ )。 数据类型、变量、宣言变量格式： dim变量名as数据类型说明：如果存在as数据类型选项，则该变量只能存储该类型的值。 如果不是，可以是任何类型。 示例： Dim userid as string Dim x as integer，y as integer Dim i说明：第二个语句向云同步声明了两个变量。 I是一种备选类型，可以存储任意类型的数据。变量代入userid=11080 X=1变量的值X=x 1说明：将x的值增加1，常数，VBA中反复使用的常数是为了容易记忆和维护，可以用名称表现的常数。 格式

6、： Public | Private Const常量名as数据类型=值说明： public仅在标准模块中可用，在所有模块中均可用。 Private此常量声明仅在该模块中可用。 例如： Public Const fine=0.1说明：如果用标准模块声明，则所有模块都可以使用pi常量。 数组，1，声明数组格式： Dim数组名(n) as数据类型Dim数组名(m to n) as数据类型n是数组的下标上界，m是数组的下标下界，m可以省略，如省略表示0那样，数组共有n-m 1个要素。 例如dim a(2to5) as整体说明：共享数组a (2)、a(3)、a(4)、a(5)四个要素dim b (5)

7、as整体说明。 (1)声明格式： Dim数组名(m1 to n1，m2 to n2) as数据类型n1，m1的第一维下标上下边界，n2，m2是第二维下标上下边界，m1，m2均可省略，省略表示为0。 示例dim matrix (3，4 ) as integer (2)代入matrix (0，4 )=20、运算符和表达式、(1)算术运算：算术运算符的优先关系： notandorxor、表8- 5逻辑运算符、表达式情况、【示例8.4】表达式的结果为VBE窗口如果在输入的编号、问号后面输入公式，返回车辆后将显示公式的结果。 例：3*33/39从优先关系来看，(3*3)(3/3)、图8.9即时窗口、表8

8、-6表达式例、8.4系统常用函数和对象、8.4.1标准函数在VBA中。 在计程仪编程中直接引用就可以，所以很方便。 函数有三个元素：函数名称、残奥仪表和返还值。 函数格式：函数名称(残奥仪表列表)说明： (1)残奥仪表列表表示以逗号分隔的值或表达式，不同函数的残奥仪表数不同，有些函数没有残奥仪表。 (2)一般函数有返还值、即函数的运算结果，通常函数的返还值的类型是固定的，在调用时被分配给变量。 主要根据其功能将系统函数分类为数学函数、日期函数、字符串函数、变换函数。 系统提供了许多系统函数，可以通过VBE的即时窗口进行验证。 1数值函数(1)求绝对值格式： Abs (数值)功能：返回残奥仪表的

9、绝对值Abs(-10 )结果： 10 (2)舍入部分格式： int (数值)功能：返回小于或等于残奥仪表的最大整数部分inns的结果：-14 (3)整数部分函数功能：残奥仪表的整数部分Fix(13.4 )结果： 13 Fix(13.6 )结果：取13 Fix(-13.6 )的2日期函数(1)当前日期函数格式： date ()功能：返回系统当前日期(2)当前时间函数格式： time ()功能：系统当前时间当前日期时间函数格式： now ()功能：返回整数类型Year(date () )结果：返回系统日期的年(5)检索日月函数格式： month (日期)功能：检索括号日期的月的整数类型。Month

10、(date () )结果：返回系统日期的月份。 3字符串函数(1)长度函数格式： len (字符串)功能：返回括号中的字符串长度，即字符串中的字符数。 len结果： 18说明：包含两个空格。 (2)转换大写和小写的格式： ucase (字符串)、lcase (字符串)功能：将字符串全部转换为大写和小写的Ucase(Beijing )结果： BEIJING (4)左回形针格式： left right(beijing2008 )， 4 )结果： 2008 (6)中间截取字符串格式： mid (字符串，开始位置N1，截取长度N2)功能：从字符串左起第N1个位置截取N2字符串。 Mid (北京牌欢迎你

11、，3，2 )结果：欢迎，3字符串函数(7)删除左空格格式： ltrim (字符串)功能：字符串左空格ltrim (欢迎你，3，2 )结果：删除(10 )字符串检索格式： instr(N，str1，str1) 如果找不到返回位置的整数，则返还值为0。 Instr(6 (回车，o )结果： 5说明：在回车中搜索o并返回o的位置Instr(6，回车，o )结果。 4转换函数(1)将数字转换为字符串格式： str (数字)功能：将数字转换为字符串北京牌2008结果：错误字符串和无法进行数值运算的北京牌str(2008 )结果：北京牌2008 (2)将字符串转换为数值格式： val (字符串)功能：将数

12、值字符串转换为数值返回字符aal的结果： 97说明：小写字母a的ASCII查询密码返回97 (4)从字符查询密码到字符格式的转换： chr (字符查询密码)功能：字符查询密码(与ASCII查询密码对应的字符)。 Chr(97 )结果： a其他类型的转换函数确定使用数字输入的数值是否是数值，该数字输入是使用CBool、CByte、CCur、CDate、CDbl、CDec、CInt、CLng、CSng、CStr或CStr isnumeric、isDate、isNull、isEmpty、6投入产出函数(1)InputBox在对话框中提示信息，等待用户键入正文或按下按钮，返回包含字符框内容的字符串的格

13、式： 1)InputBox (inputbox (请输入名称)弹出图8.11的对话框，输入“王小风”，喀呖声“确定”按钮，恢复为输入值。 (2)MsgBox在对话框中显示信息，等待用户喀呖声按钮，返回Integer类型值的格式：输入MsgBox(prompt，buttons，title )【例8.5】图8.12即时窗口吗？ msgBox (确认系统的结束吗？vbYesNo，结束警告)，出现图8.13的对话框计程仪，如果喀呖声“否(n )”按钮，则返还值为7。 如果喀呖声“是”，则返还值为6。 7数据库函数格式：标识返回DLookup(expr，domain，criteria) expr值的字段

14、的表达式。 它可以是标识表或查询中字段的字符串表达式，也可以是用该字段上的数据进行修正的表达式。 domain可以是表名或不需要残奥仪表的查询名。 criteria选项字符串表达式，用于限制DLookup函数执行的数据范围。例如，criteria通常与SQL表达式的WHERE子句相同，但不包含WHERE关牛鼻子字。 示例：立即填写窗口： DLookup (密码、用户、用户号=11038 )返还值： welcome说明：在“用户”表中，查找“用户号”为11038的记录查询密码的“密码”字段中的值。8分支函数(1)IIF函数格式： IIf(expr，truepart，falsepart) expr必需的残奥参数。 判断真伪的公式。 truepart必需的残奥仪表。 如果expr为True，则此部分的值或返回表达式。 falsepart必需的残奥仪表。 如果expr为False，则此部分的值或返回表达式。 输入即时窗口： score=85？ iif(score=60，合格，不合格)结果：合格，(2)Switch函数格式： switch (条件1，