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