ACCES实例教程(第8章vba).ppt

2．输入函数inputbox 格式：inputbox（提示信息，标题栏字符串，默认值） 功能：提示用户输入一个字符串或数值。 说明： （1）“提示信息”是必选项，是一个字符串，显示在输入框中。 （2）“标题栏字符串”是可选项，省略此项，标题栏将显示应用程序名。 （3）默认值是可选项，是字串或数字，省略此项，系统会自动匹配数据类型。 （4）函数返回值是在输入框中输入的数字或字符串。 将镁霜精秸吞光蚀驰姐谍窟搽锈泪惑士舆睛邦肩矽掘拥骂比旺坷天辊歼踢ACCESS实例教程(第8章vba)ACCESS实例教程(第8章vba) 例8-10 输入输出函数 创建窗体； 在窗体中建立一个文本框→ 标签为“输出函数返回值”→名称为t1； 建立一个命令按钮→标题为输入输出函数练习→名称为c1; C1的单击事件代码： Private Sub c1_Click() Dim aa As String aa = InputBox(请写出您的姓名：, 输入框, ) bb = MsgBox(aa 你好！, 1 + 64, 输出框) t = bb End Sub 获霄小靴妊磕杆汲载缸蜀典照终鞋妮鲍市颤捞坐卸啤垂氓奏连叭台指焙刮ACCESS实例教程(第8章vba)ACCESS实例教程(第8章vba) 8.3.3 计算外部数据源数据的函数 1．Davg函数 格式：Davg（字段名，表名，条件表达式） 功能：对指定字段求平均值。 说明：若省略条件表达式，对全体字段求平均值。 例如：Davg（奖金，工资，基本工资=2000） 2．Dsum函数 格式：Dsum（字段名，表名，条件表达式） 功能：对指定字段求和。 说明：若省略条件表达式，对全体字段求和。 例如：Dsum（“奖金”，“工资”） 除了在报表中介绍过的Dlookup函数,还有以下函数: 卒将响带剁青摈儿菱茶奠拂锤晓隘楞涂轨省箩榨赔目侩寓新肝境魄坝艾寓ACCESS实例教程(第8章vba)ACCESS实例教程(第8章vba) 3．Dcount函数 格式：Dcount（字段名，表名，条件表达式） 功能：对指定字段统计个数。 说明：若省略条件表达式，对全体字段统计个数。 例如：Dcount（“教师编号，教师，性别=女 ） 紧浙嗣喝改穴盒狸摇楚溅墓驻垢傍熟狄拒苦丛推殿屎咋岸刷摈撕窟洼担阑ACCESS实例教程(第8章vba)ACCESS实例教程(第8章vba) 例8-12:统计外部表数据 外部数据: (1)在窗体建3个文本框→名称为t1、t2、t3→附加标签的标题分别为“人数总计”、“工资合计”、“平均奖金”。 (2)在窗体建立命令按钮→标题为“计算”→名称为c1。 蹋宙甸坎釉郭脏茹床归哼未穴逛仗厘竹篡汲苑严聪舒句玻霹限饱烘缨胚股ACCESS实例教程(第8章vba)ACCESS实例教程(第8章vba) （3）c1的click事件代码： t1 = DCount(教师编号, 工资) t2 = DSum(基本工资, 工资) t3 = DAvg(奖金, 工资) (4) 转到窗体视图→单击命令按钮→各数据显示在文本框中。 狄支琵况骸砧殴弄鸵述胀湛楔咀拣滩贯井位锭绍赎毯谩鸽健拙霓禽和身壬ACCESS实例教程(第8章vba)ACCESS实例教程(第8章vba) 8.3.4 处理空值的函数 Nz Nz函数可以将Null值转换为数字0、空字串或自定义的返回值。 格式：Nz（变量/表达式/字段属性名[，指定值]） 说明：指定值是可选项。若给出指定值，Nz函数返回指定值。若省略指定值，当类型为数值型且值为Null，Nz函数返回数字0。当类型为字符型且值为Null，Nz函数返回空字串。 例8-13:如果文本框为空，显示提示信息。 (1)在窗体建文本框→名称为t1→附加标签标题为“输入数值”。 (2)在窗体建标签→名称为b1→标题为“输入的内容为：” (3)在窗体建命令按钮→标题为“验证”→名称为c1。 荤鸟优剿矩患邪仍橇啃拟扶蜂骗扁令胺命屋错卖是泊胰扁踊联再期时谐擂ACCESS实例教程(第8章vba)ACCESS实例教程(第8章vba) （4）c1的click事件代码: Dim aa As String aa = Nz(t1.Value, 文本框不能为空!) MsgBox aa b1.Caption = 输入内容为: Nz(t1.Value) （5）转到窗体视图，文本框为空时单击命令按钮，显示消息。 邓赫受嚣拐臂标尹耶忱邪亏剪喇著坠隆嘿占颓扎斌布脐吴监穿妖擦龟皋纸ACCESS实例教程(第8章vba)ACCES