第5章窗体
窗体1-5：2、4、10、16、71 窗体6-10：2、3、18、32、35
窗体11-15：47、53、56、59、62 窗体16-20：70、72、107、109、130
Access窗体操作题
代码中常用的属性：标题Caption ；前景色foreColor ；是否可用Enabled ；记录源RecordSource
4、
（5）设置命令按钮bTest的单击事件属性为给定的宏对象m1；
本题直接选择事件，运行宏m1
如果要求写入运行宏的代码就为：docmd.runmacro “宏名称”
即：docmd.runmacro “m1”
35、
（5）设置所建命令按钮bC的单击事件，使用户单击该命令按钮后，CDID标签的显示颜色改为红色。
要求用VBA代码实现。
属性设置为：对象名.属性名=值
窗体为：form.属性名=值如：form.caption=time() 也可以：me.caption=time()
本题是将CDID文本框所带标签改变颜色： CDID_标签.forecolor=vbred 或 CDID_标签.forecolor=rgb(255,0,0)
53、（1）将窗体"fEmp"上文本框"tSS"更改为组合框类型，保持控件名称不变。
设置其相关属性实现下拉列表形式输入性别"男"和"女"；
选择文本框右键，选择更改为组合框，在属性窗口设置属性行来源：男;女（不要选择控件来源），行来源类型：值列表。
（2）修改查询对象"qEmp"为参数查询，参数为引用窗体对象"fEmp"上文本框"tSS"的输入值；
在查询qemp的设计视图下：添加性别字段，在条件行输入：[forms]![femp]![tss]。
注意：性别不显示。
（3）设置窗体对象"fEmp"上文本框"tPa"为计算控件。
要求依据"党员否"字段值显示内容："党员否"字段值为True，显示"党员"两字；"党员否"字段值为False，显示"非党员"三字；
=iif([党员否]=true,”党员”,”非党员”)
（4）单击"刷新"按钮（名为"bt1"），事件过程动态设置窗体记录源为查询对象"qEmp"，实现窗体数据按性别条件动态显示；单击"退出"按钮（名为"bt2"），关闭窗体。
Form.recordsource=”qemp”
Docmd.close
56、（5）在窗体中有一个"显示全部记录"命令按钮（名称为bList），单击该按钮后，应实现将"tStudent"表中的全部记录显示出来的功能。
现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
Select * from tstudent 可以参考这条语句上面的语句。
59、（5）在窗体中有一个"退出"命令按钮（名称为bQuit），单击该按钮后，应关闭"fStudent"窗体。
现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
Docmd.close
62、（5）在窗体中还有"修改"和"保存"两个命令按钮，名称分别为"CmdEdit"和"CmdSave"，其中"保存"命令按钮在初始状态为不可用，当单击"修改"按钮后，应使"保存"按钮变为可用。
现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
cmdsave.enabled=true
70、（1）将窗体"fEmp"上文本框"tSS"更改为组合框类型，并保持控件名称不变；
同53题
（2）修改查询对象"qEmp"为参数查询，参数为引用窗体对象"fEmp"上文本框"tSS"的输入值；
同53题
（3）设置窗体对象"fEmp"上文本框"tAge"为计算控件。
要求根据"年龄"字段值依据以下计算公式计算并显示人员的出生年；计算公式：出生年=Year(Date())-年龄或出生年=Year(Now())-年龄
= Year(Date())-[年龄]
（4）单击"退出"按钮（名为"bt2"），关闭窗体。
补充事件代码。
Docmd.close
71、
（5）当单击"退出"命令按钮时，运行宏"关闭窗口"，关闭"menu"窗体，返回到数据库窗口下。
本题以命令按钮向导做最为容易，学会是否出现控件向导的操作
72、（5）在窗体中还有"修改"和"保存"两个命令按钮，名称分别为"CmdEdit"和"CmdSave"，其中"保存"命令按钮在初始状态为不可用，当单击"修改"按钮后，"保存"按钮变为可用，同时在窗体的左侧显示出相应的信息和可修改的信息。
如果在"口令"文本框中输入的内容与在"确认口令"文本框中输入的内容不相符，当单击"保存"按钮后，屏幕上应弹出如下图所示的提示框。
现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
Cmdsave.enabled=true
另一个代码在学完编程再做
107、（5）在"窗体页眉"中距左边0.5厘米，上边0.3厘米处添加一个标签控件，控件名称为"Tda"，标题为"系统日期"。
窗体加载时，将添加标签标题设置为系统当前日期。
窗体"加载"事件已提供，请补充完整。
在窗体的加载事件写入代码：docmd.runmacro “m1”
tda.caption=date()
109、（4）窗体加载时设置窗体标题属性为"****年职工信息输出"，其中****为系统当前年。
窗体"加载"事件代码已提供，请补充完整。
窗体的加载事件写入代码
Form.Caption=year(date()) & “年职工信息输出”
130、（4）假设"tStud"表中，"学号"字段的第5位和6位编码代表该生的专业信息，当这两位编码为"10"时表示"信息"专业，为其他值时表示"管理"专业。
设置窗体中名称为"tSub"的文本框控件的相应属性，使其根据"学号"字段的第5位和第6位编码显示对应的专业名称。
=iif(mid([学号],5,2)=”10”,”信息”,”管理”)
（5）在窗体中有一个"退出"命令按钮，名称为"CmdQuit"，其功能为关闭"fStud"窗体。
请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。
Docmd.close
第6章报表
报表1-5
1、dlookup(“名称”,”tgroup”,”部门编号=’”&[所属部门]&”’”)
2、[基本工资]+[津贴]+[补贴] [基本工资]+[津贴]+[补贴]-[住房基金]-[失业保险]
3、year(date())&”年”& month(date())&”月”
4、count[团队ID]
5、[page]&”/”&[ pages]
报表6-9
设置窗体背景是图片属性
iif([性别]=1,”男”,”女”)
iif([性别]= “男” and [年龄]<20,true,false)
4、year(date())-[年龄]
报表10-13
2、form.caption=date
3、round(avg([单价]),2)
4、iif(sum([数量]*[单价])>30000,”达标”,”未达标”)。