考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象“tEmployee”和“tGroup”及查询对象“qEmployee”，同时还设计出以“qEmployee”为数据源的报...
（1）在报表的报表页眉节区位置添加一个标签控件，其名称为“bTitle”，标题显示为“职工基本信息表”。
（2）预览报表时，报表标题显示标签控件“bTitle”的内容，请按照VBA代码中的指示将代码补充完整。
（3）在“性别”字段标题对应的报表主体节区距上边0.1厘米、距左侧5.2厘米位置添加一个文本框，显示出“性别”字段值，并命名为“tSex”； 在报表适当位置添加一个文本框，计算并显示每类职务的平均年龄，文本框名为tAvg。注意：报表适当位置是指报表页脚、页面页脚或组页脚。
（4）设置报表主体节区内文本框“tDept”的控件来源属性为计算控件。要求该控件可以根据报表数据源里的“所属部门”字段值，从非数据源表对象“tGroup”中检索出对应的部门名称并显示输出。（提示：考虑域聚合函数的使用。）
注意：不允许修改数据库中的表对象“tEmployee” 和“tGroup”及查询对象“qEmployee”；不允许修改报表对象“qEmployee”中未涉及的控件和属性。程序代码只允许在“*******Add******”与“*******Add******”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。
参考解析: 【考点分析】本题考点：报表控件以及相关属性的设置，报表分组、排序的设置以及DLookup函数的使用。
【解题思路】第1、3小题在报表的设计视图按题目要求设置相关属性，第2、4小题在报表的设计视图中单击“设计”选项卡“工具”组中的“查看代码”按钮进入VBA代码编辑界面。
（1）【操作步骤】
步骤1：打开考生文件夹下的数据库文件samp3.accdb，右键单击“rEmployee”报表，在弹出的快捷菜单中选择“设计视图”命令。
步骤2：单击“设计”选项卡下“控件”功能组中的“标签”控件，在报表页眉区上绘制一个矩形区域，输入内容“职工基本信息表”；右键单击“职工基本信息表”控件，在弹出的快捷菜单中选择“属性”命令。
步骤3：在“属性表”对话框中单击“全部”选项卡，在“名称”行中输入“bTitle”，按Ctrl+S组合键保存修改，关闭“属性表”对话框。
（2）【操作步骤】
步骤1：单击“设计”选项卡下“工具”功能组中的“查看代码”按钮进入VBA代码编辑界面。
步骤2：在“****Add****”行之间添加代码“Me.Caption = bTitle.Caption”。
步骤3：按Ctrl+S组合键保存修改，关闭VBA代码编辑器。
（3）【操作步骤】
步骤1：单击“设计”选项卡下“控件”功能组中的“文本框”控件，在主体节区内拖动，产生一个“文本框”（删除“文本框”前新增的“标签”控件）。
步骤2：右键单击该“文本框”，在弹出的快捷菜单中选择“属性”命令，在“属性表”对话框中单击“全部”选项卡，在“名称”行中输入“tSex”；单击“控件来源”下三角按钮，在下拉的列表框中选择“性别”，将“上边距”属性值修改为“0.1cm”，将“左”属性值修改为“5.2cm”，关闭“属性表”对话框。
步骤3：单击“设计”选项卡下“分组和汇总”功能组中的“分组和排序”按钮，打开“分组、排序和汇总”窗口。
步骤4：单击“添加组”按钮，在弹出的字段选择器中选择“职务”字段，单击“更多”按钮，设置“无页眉节”“有页脚节”。
步骤5：单击“设计”选项卡下“控件”功能组中的“文本框”控件，在“职务页脚”区域内拖动，产生一个“文本框”（删除“文本框”前新增的“标签”控件）。
步骤6：右键单击该“文本框”，在弹出的快捷菜单中选择“属性”命令，在“属性表”对话框中单击“全部”选项卡，在“名称”行中输入“tAvg”；在“控件来源”行中输入“=Avg(［年龄］)”。
步骤7：按Ctrl+S组合键保存修改，关闭“属性表”对话框。
（4）【操作步骤】
步骤1：右键单击“tDept”控件，在弹出的快捷菜单中选择“属性”命令，在弹出的“属性表”对话框中单击“全部”选项卡，在“控件来源”行中输入表达式“=DLookup("名称","tGroup","部门编号=′" & ［所属部门］ & "′")”。
步骤2：按Ctrl+S组合键保存修改，关闭“属性表”对话框，关闭“rEmployee”报表的设计视图。
百度扫一扫练题
关注千题库公众号
