考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、查询对象“qEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“。mEmp”。试在此基础上按照以下要求补充设计: 在“fEmp”窗体的左侧有一个名称为“

admin2019-01-09  19

问题 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、查询对象“qEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“。mEmp”。试在此基础上按照以下要求补充设计:
在“fEmp”窗体的左侧有一个名称为“COMBO1”的组合框和两个名称分别为“btitle1”、“btitle2”的标签。“btitle1”标签用于显示组合框左侧的标题内,“btitle2”标签用于显示计算的平均年龄。“COMBO1”组合框中列出性别值“男”和“女”,当在组合框中选择某一性别值后,计算该性别的平均年龄,并将计算的结果显示在“btitle2”标签中,显示内容及格式如下图所示。请按照VBA代码中的指示将代码补充完整。

注意:不允许修改数据库中的宏对象“mEmp”;不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性;不允许修改表对象“tEmp”和查询对象“qEmp”中未涉及的字段和属性。程序代码只允许在“*******Add*******”与“*******Add*******”之间的空行内补充一行语句、完成设计,不允许增删和修改其它位置已存在的语句。

选项

答案步骤1:在窗体“fEmp”设计视图中,单击“设计”选项卡“工具”组中的“查看代码”按钮进入VBA代码编辑界面。 步骤2:在“*****Add1*****”行之间添加代码: Me.btitle2.Caption="性别查询结果:"&Me.COMBO1.Value&"的平均年龄为"&DLokup("平均年龄","qEmp","性别="&Me.COMBO1.Value&"") 步骤3:在“*****Add2*****”行之间添加如下代码: Me.COMBO1.RowSource="男;女" 步骤4:在“*****Add3*****”行之间添加如下代码: Me.btitle2.Caption="性别查询结果:" 设置完成结果如图5.21所示。 [*] 步骤5:关闭VBA代码编辑窗口,按Ctrl+S组合键保存修按钮,关闭“fEmp”窗体设计视图。

解析
转载请注明原文地址:https://kaotiyun.com/show/3eMp777K
0

最新回复(0)