问答题
请在“答题”菜单下选择相应命令,并按照题目要求完成下面的操作,具体要求如下:
考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”、查询对象“qStud”、窗体对象“fStud”和子窗体对象“fDetail”,同时还设计出以“qStud”为数据源的报表对象“rStud”。请在此基础上按照以下要求补充“fStud”窗体和“rStud”报表的设计: 试根据以下窗体功能要求,对已给的事件过程进行代码补充,并运行涮试。
在窗体中有一个组合框控件和一个文本框控件,名称分别为“CItem”和“TxtDetail”;有两个标签控件,名称分别为“Label3”和“Ldetail”;还有三个命令按钮,名称分别为“CmdList”、“CmdRefer”和“CmdClear”。在“CItem”组合框中选择某一项目后,“Ldetail”标签控件将显示出所选项目名加上“内容:”。在“TxtDetail”文本框中输入具体项目值后,单击“CmdRefer”命令按钮,如果“CItem”和“TxtDetail”两个控件中均有值,则在子窗体中显示找出的相应记录,如果两个控件中没有值,显示提示框,提示框标题为“注意”,提示文字为“查询项目或查询内容不能为空!!!”,提示框中只有一个“确定”按钮;单击“CmdList”命令按钮,在子窗体中显示“tStud”表中的全部记录;单击“CmdClear”命令按钮,将清空控件“cItem”和“TxtDetail”中的值。
注意:不允许修改窗体对象“fStud”和子窗体对象“fDetail”中未涉及的控件、属性和任何VBA代码;不允许修改报表对象“rStud”中已有的控件和属性;不允许修改表对象“tStud”和查询对象“qStud”。只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一条代码语句、完成设计,不允许增删和修改其他位置已存在的语句。
【参考答案】
[微步骤] 在代码窗口中输入以下代码: ’**********Add1********** Dim aa aa=cIte......
(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)