窗体报表操作题答案

1、精品文档第 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、 130access 窗体操作题代码中常用的属性：标题 caption；前景色forecolor；是否可用enabled；记录源recordsource4、（ 5）设置命令按钮btest 的单击事件属性为给定的宏对象m1；本题直接选择事件，运行宏m1如果要求写入运行宏的代码就为：docmd.runmacro“宏名称 ”即： docmd.runmacro“m1”35、（

2、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 更改为组合框类型，保持控件名称不变。设置其相关属性实现下拉列表形式输入性别 男 和 女 ；选择文本框右键，选择更改为组

3、合框，在属性窗口设置属性行来源：男; 女（不要选择控件来源），行来源类型：值列表。（ 2）修改查询对象qemp为参数查询，参数为引用窗体对象femp 上文本框 tss 的输入值；在查询 qemp的设计视图下：添加性别字段，在条件行输入：forms!femp!tss。注意：性别不显示。（ 3）设置窗体对象femp 上文本框 tpa 为计算控件。要求依据 党员否 字段值显示内容： 党员否 字段值为 true ，显示 党员 两字； 党员否 字段值为 false ，显示 非党员 三字；=iif(党员否 =true,”党员 ”,”非党员 ”)（ 4）单击 刷新 按钮（名为 bt1 ），事件过程动态设置窗

4、体记录源为查询对象qemp，实现窗体数据按性别条件动态显示；单击 退出 按钮（名为 bt2 ），关闭窗体。form.recordsource=”qemp”docmd.close56、（ 5）在窗体中有一个 显示全部记录 命令按钮（名称为blist ），单击该按钮后，应实现将tstudent表中的全部记录显示出来的功能。现已编写了部分vba代码，请按照 vba代码中的指示将代码补充完整。select * from tstudent可以参考这条语句上面的语句。59、（ 5）在窗体中有一个 退出 命令按钮（名称为bquit ），单击该按钮后，应关闭fstudent窗体。现已编写了部分vba代码，请按

5、照vba代码中的指示将代码补充完整。docmd.close62、（ 5）在窗体中还有 修改 和 保存 两个命令按钮，名称分别为 cmdedit 和 cmdsave，其中 保存 命令按钮在初始状态为不可用，当单击 修改 按钮后，应使 保存 按钮变为可用。现已编写了部分 vba代码，请按照 vba代码中的指示将代码补充完整。cmdsave.enabled=true70、（ 1）将窗体 femp 上文本框 tss 更改为组合框类型，并保持控件名称不变；同 53题（ 2）修改查询对象qemp为参数查询，参数为引用窗体对象femp 上文本框 tss 的输入值；同 53题。1 欢迎下载精品文档（ 3）设置

6、窗体对象femp 上文本框 tage 为计算控件。要求根据 年龄 字段值依据以下计算公式计算并显示人员的出生年；计算公式：出生年 =year(date()-年龄或 出生年 =year(now()-年龄= year(date()-年龄 （ 4）单击 退出 按钮（名为 bt2 ），关闭窗体。补充事件代码。docmd.close71、（ 5）当单击 退出 命令按钮时，运行宏 关闭窗口 ，关闭 menu窗体，返回到数据库窗口下。本题以命令按钮向导做最为容易，学会是否出现控件向导的操作72、（ 5）在窗体中还有 修改 和 保存 两个命令按钮，名称分别为cmdedit 和 cmdsave，其中 保存 命令

7、按钮在初始状态为不可用，当单击 修改 按钮后， 保存 按钮变为可用，同时在窗体的左侧显示出相应的信息和可修改的信息。如果在 口令 文本框中输入的内容与在 确认口令 文本框中输入的内容不相符，当单击 保存 按钮后，屏幕上应弹出如下图所示的提示框。现已编写了部分vba代码，请按照vba代码中的指示将代码补充完整。cmdsave.enabled=true另一个代码在学完编程再做107、（ 5）在 窗体页眉 中距左边 0.5 厘米，上边 0.3 厘米处添加一个标签控件，控件名称为tda ，标题为 系统日期 。窗体加载时，将添加标签标题设置为系统当前日期。窗体 加载 事件已提供，请补充完整。在窗体的加载

8、事件写入代码：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-51、 dlookup( “名称 ”,”tgroup ”,”部门编号 =”&所属部门 & ”)2、 基本工资 + 津贴 + 补贴 基本工资 + 津贴 + 补贴 -住房基金 -失业保险 3、 year(date()&”年 ”& month(date()&”月 ”4、 count 团队 id5、 page& ”/”& pages报表 6-