考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象“tCollect”，同时还设计出以“tCollect”为数据源的窗体对象“fCollect”。 试在此基础上按...
（1）将窗体“fCollect”的记录源设置为根据输入的“CDID”，查找“CDID”、“主题名称”、“价格”、“购买日期”、“出版单位ID”和“介绍”等字段的数据。
注意：输入提示参数为“请输入CDID：”。
（2）在窗体“fCollect”的窗体页眉节区位置添加一个标签控件，其名称为“bTitle”，标题显示为“CD明细”，字体名称为“黑体”，字号为14，字体粗细为“加粗”。
（3）打开窗体时，将窗体标题栏上的显示文字设为“CD明细显示”，请按照VBA代码中的指示将代码补充完整。
要求：①显示文字中的“CD明细”使用“bTitle”标签控件的内容。
②将程序代码填写在“*******Add******”与“*******Add******”之间的空行内，只允许补充一行语句。
（4）在窗体页脚节区位置添加一个命令按钮，命名为“bC”，按钮标题为“改变颜色”；设置所建命令按钮bC的单击事件，使用户单击该命令按钮后，将标签“CDID_标签”的文字显示颜色改为红色。要求用VBA代码实现。
注意：不允许修改窗体对象“fCollect”中未涉及的控件和属性；不允许修改表对象“tCollect”。
参考解析: 【考点分析】本题考点：窗体控件以及记录源属性的设置和窗体事件代码VBA编程的实现。
【解题思路】第1、2小题单击窗体的设计视图按题目要求设置相关属性，第3、4小题单击“设计”选项卡“工具”组中的“查看代码”按钮进入VBA代码编辑界面。
（1）【操作步骤】
步骤1：打开考生文件夹下的数据库文件samp3.accdb，右键单击“tCollect”窗体，在弹出的快捷菜单中选择“设计视图”命令。
步骤2：单击“设计”选项卡下“工具”功能组中的“属性表”按钮，在弹出的“属性表”对话框中单击 “数据”选项卡，在“记录源”行中输入表达式“SELECT * FROM tCollect WHERE (((tCollect.［CDID］)=［请输入CDID：］))”。
步骤3：按Ctrl+S组合键保存修改，关闭“属性表”对话框。
（2）【操作步骤】
步骤1：右键单击窗体的“主节”区，在弹出的快捷菜单中选择“窗体页眉/页脚”命令。
步骤2：单击“设计”选项卡下“控件”功能组中的“标签”控件，在“窗体页眉”区域内拖动，产生一个标签控件。
步骤3：在“标签”控件中输入“CD明细”，右键单击该“标签”控件，在弹出的快捷菜单中选择“属性”命令，在弹出“属性表”对话框中单击“全部”选项卡，在“名称”行中输入“bTitle”，在“字体名称”行中选择“黑体”；在“字号”行中选择“14”；在“字体粗细”行中选择“加粗”。
步骤4：按Ctrl+S组合键保存修改，关闭“属性表”对话框。
（3）【操作步骤】
步骤1：单击“设计”选项卡下“工具”功能组中的“查看代码”按钮进入VBA代码编辑界面。
步骤2：在“****Add****”行之间添加代码“Me.Caption = bTitle.Caption & “显示””。
步骤3：按Ctrl+S组合键保存修改，关闭VBA代码编辑器。
（4）【操作步骤】
步骤1：单击“设计”选项卡下“控件”功能组中的“按钮”控件，在“窗体页脚”区域内拖动，产生一个按钮控件。
步骤2：右键单击该按钮控件，在弹出的快捷菜单中选择“属性”命令，弹出“属性表”对话框中单击“全部”选项卡，在“名称”行中输入“bC”，在“标题”行中输入“改变颜色”。
步骤3：单击“事件”选项卡，单击“单击”属性最右侧，在弹出“选择生成器”对话框中选择“代码生成器”，单击“确定”按钮，进入VBA代码编辑界面。
步骤4：在“bC_Click”事件过程中添加如下代码：“CDID_标签.ForeColor = 255”。
步骤5：按Ctrl+S组合键保存修改，关闭VBA代码编辑器。
百度扫一扫练题
关注千题库公众号
