代码题56套解析(全版).docVIP

16.3（5）设置所建命令按钮bC的单击事件，使用户单击该命令按钮后，CDID标签的显示颜色改为红色。要求用VBA代码实现。 注意：不允许修改窗体对象fCollect中未涉及的控件和属性；不允许修改表对象tCollect和查询对象qT。 本题相关知识点：ForeColor 前景颜色 ； 255 红色代码 Private Sub bC_Click() CDID_标签.ForeColor = 255 标签（CDID_标签） . 前景颜色（ForeColor）=255（红色代码） End Sub 18.2（3）补充窗体fTest上test1按钮（名为bt1）的单击事件代码，实现以下功能：打开窗体，在文本框tText中输入一段文字，然后单击窗体fTest上test1按钮（名为bt1），程序实现将文本框内容作为窗体上标签bTitle的标题显示。 注意：不允许修改窗体对象fTest中未涉及的控件和属性；只允许在*****Add*****与*****Add*****之间的空行内补充语句、完成设计。 本题相关知识点：Caption 显示标题 Private Sub bt1_Click() *****Add***** bTitle.Caption=tText 标签（bTitle）的. 显示标题（Caption）=来自文本框（tText）中输入的内容 *****Add***** End Sub 23.3.（4）单击刷新按钮（名为bt1），事件过程动态设置窗体记录源为查询对象qEmp，实现窗体数据按性别条件动态显示；单击退出按钮（名为bt2），关闭窗体。 注意：不允许修改数据库中的表对象tEmp；不允许修改查询对象qEmp中未涉及的内容；不允许修改窗体对象fEmp中未涉及的控件和属性；已给事件过程，只允许在*****Add*****与*****Add*****之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点：RecordSource 记录源 Private Sub bt1_Click() 动态设置窗体记录源属性 *****Add1***** RecordSource=”qEmp” 窗体或报表的记录源（RecordSource）是来自哪个表或查询=表名或查询 *****Add1***** 名（“qEmp”就是本题中要求作为记录来源的表名）（注意：表名或查询 刷新窗体 名必须加“ ” ） Me.Requery End Sub Private Sub bt2_Click() 关闭窗口 *****Add2***** DoCmd.Close 关闭窗体、报表、表都用固定语句：DoCmd.Close *****Add2***** End Sub 24.3. （5）在窗体中有一个显示全部记录命令按钮（名称为bList），单击该按钮后，应实现将tStudent表中的全部记录显示出来的功能。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。 注意：不允许修改窗体对象fQuery和fStudent中未涉及的控件、属性；不允许修改表对象tStudent。对于VBA代码，只允许****************与****************之间的一空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点：select语句格式：select 字段列表 from 表名 Private Sub Command4_Click() BBB.Form.RecordSource = select * from tStudent where 姓名 like Me![Text2] * End Sub Private Sub bList_Click() ***** 请在下面双引号内添入适当的SELECT语句 **** BBB.Form.RecordSource = select * from tStudent “ 选择(select) 通配符星号（*）所有记录来 ************************************************ 自于（from） 表名（tStudent） [Text2] = End Sub Private Sub 命令7_Click() DoCmd.Close End Su