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

admin2017-07-04  34

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

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

选项

答案步骤1:单击<窗体设计工具>选项卡中<视图>命令组的“设计视图”命令,切换到窗体的设计视图。 步骤2:在<属性表>对话框上方的对象选择器中选中“COMBO1”组合框,单击“事件”选项卡,在“更新后”行内选择“事件过程”,单击“代码生成器”按钮,进入到VBA代码编辑界面。 步骤3:在“****Add1****”之间输入: Me.btitle2.Caption=’’性别查询结果:’’&Round(DLookup(’’平均年龄’’,”qEmp",’’性别=’’’&Me.COMBO1.Value&’’’’),5) 说明,通过观察不同性别平均年龄已经通过“qEmp”查询计算得到,所以利用“COMBO1”组合框的值去查询“qEmp”中的相应性别平均年龄;由于“btitle2”标签显示的平均年龄保留小数点后面5位,所以用Round对得到的平均年龄进行四舍五入。 步骤4:在“****Add2****”之间输入: Me.COMBO1.Addltem(”男”) Me.COMBO1.Addltem(’’女’’) 步骤5:在’’****Add3****’’之间输入: Me.btitle2.Caption=’’性别查询结果:’’ 步骤5:单击快速访问工具栏中的“保存”按钮,关闭代码窗口。单击<窗体设计工具>选项卡中<视图>命令组的“窗体视图”命令运行窗体,通过选中“COMBO1”组合框的选项查看下方平均年龄的变化。 步骤6:并关闭窗体。关闭“samp3.accdb”窗口。

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

随机试题
最新回复(0)