43考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计好表对象“tStud”、查询对象“qStud”和“tTimer”窗体对象,同时还设计出以“qStud”为数据源的报表对象“rStud”。试在此基础上按照以下要求补充报表和窗体设计。 在

admin2019-01-09  21

问题 43考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计好表对象“tStud”、查询对象“qStud”和“tTimer”窗体对象,同时还设计出以“qStud”为数据源的报表对象“rStud”。试在此基础上按照以下要求补充报表和窗体设计。
在报表的报表页眉节区添加一个标签控件,其名称为“bTitle”,显示内容为“学生信息表”;预览报表时,报表标题显示内容为“****年度#####,请按照VBA代码中的指示将代码补充完整。
    说明:①显示标题中,“****”为本年度年份,要求使用函数获取。②显示标题中,“#####”为标签控件“bTitle”中的内容。
    要求:标题显示内容中间和前后不允许出现空格。

选项

答案【操作步骤】 步骤1:选择“报表”对象,右键单击“rStud”报表,在弹出的快捷菜单中选择“设计视图”命令。 步骤2:单击“设计”选项卡下“控件”组中的“标签”按钮,然后单击报表页眉节的任意区域,在新添加的控件文本框中输入“学生信息表”,如图4—247所示。 [*] 步骤3:右键单击刚创建的“学生信息表”标签控件,在弹出的快捷菜单中选择“属性”命令,打开“属性表”对话框,在该对话框中单击“全部”选项卡,然后在该选项卡的“名称”行中输入“bTitle”,如图4—248所示。 [*] 步骤4:双击标尺相交处的“报表选定器”,弹出“属性表”对话框,在该对话框中单击“事件”选项卡,再单击该选项卡下的“加载”行右侧的事件生成器按钮,如图4—249所示,进入VBA代码编辑区。 [*] 步骤5:在“’*****Add*****”区域的空白行输入如下代码: Report.Caption=Trim(Year(Date)&"年度"&bTitle.Caption) 代码输入位置如图4—250所示。 [*] 步骤6:单击快速工具栏中的“保存”按钮,然后关闭VBA代码编辑区。 步骤7:关闭属性表。然后单击快速工具栏中的“保存”按钮。

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

最新回复(0)