在考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。同时,给出窗体对象“fEmp”的若干事件代码,试按以下功能要求补充设计。 加载窗体时,代码将“b

admin2019-01-09  25

问题 在考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。同时,给出窗体对象“fEmp”的若干事件代码,试按以下功能要求补充设计。
加载窗体时,代码将“bTitle”标签的标题重置为“员工最大年龄差为XXX”,其中“XXX”是从“tEmp”表中获取计算得到;单击“报表输出”按钮,事件代码会弹出一个消息框,以选择是否进行预览报表“rEmp”;单击“退出”按钮,调用设计好的宏“mEmp”来关闭窗体。根据以上描述,将VBA代码补充完整。
    注意:不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”;不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。
    程序代码只允许在“*****木Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案【操作步骤】 步骤1:选择“窗体”对象,右键单击“fEmp”窗体,在弹出的快捷菜单中选择“设计视图”命令。打开窗体的设计视图。 步骤2:双击标尺相交的“窗体选择器”,弹出“属性表”对话框,在该对话框中单击“事件”选项卡,然后再单击该选项卡的“加载”行的事件生成器按钮,如图4—214所示,进入VBA代码编辑区。 [*] 步骤3:在“’*****Add1*****”区域的空白行输入如下代码: “Me.bTitle.Caption=”员工最大年龄差为"&(DMax("年龄","tEmp")-DMin("年龄","tEmp"))” 在“’*****Add2*****”区域的空白行输入如下代码: “If MsgBox("报表预览",vbOKCancel,"标题")=vbOK Then” 代码输入位置如图4—215所示。 [*] 步骤4:单击快速工具栏中的“保存”按钮,关闭VBA代码编辑区。 步骤5:右键单击命令按钮“bt2”,在弹出的快捷菜单中选择“属性”命令,打开“属性表”对话框,在其“事件”选项卡下的“单击”属性行中选择“mEmp”,如图4—216所示,然后关闭“属性表”。 [*] 步骤6:单击快速工具栏中“保存”按钮,然后关闭“设计视图”。

解析
转载请注明原文地址:https://jikaoti.com/ti/Ou10FFFM
0

最新回复(0)