1、蚌埠蓝图学校版权所有 13855224318 QQ:276708862全国计算机等级考试二级 ACCESS 上机 42 题重点难点解析01 题格式 mm 月 dd 日 yyyy更新查询，删除查询，窗体基本控件的使用02 题输入掩码0 代表数字而且必填窗体基体属性的设置 浏览按钮，窗体标题xxxx 年 xx 月（不允许使用格式属性）=Year(Date() & “年“ & Month(Date() & “月“报表分组,按编号字段前四位分组=left(编号,4)03 题查询题目中，(注意)建立两表中的关系时，没有实施参照完整性在查询中实现计算平均成绩:（数学+计算机+英语）/304 题有效性规则
2、的使用方式0当前日期前一天 date()-1怎样判断一个表中的主键，一个表中可以设置多个主键主键能够唯一标识每一条记录，不允许中重复值或空值查询年龄小于平均年龄0 Then*Add1*MsgBox “无党员职工的年龄数据“sage = 0Exit SubElsesage = rs.Fields(0)End If*Add2*tAge.Value = sage*Add2*rs.Closecn.CloseSet rs = NothingSet cn = Nothing28将窗体上文本框 tss 更改为组合框类型并保持名称不变选择 tss 右击，选择更改为组合框 组合框，值列表，行来源 男，女将 qe
3、mp 更改为参数查询性别条件为：forms!fEmp!tSS关闭窗体代码 docmd.close 关闭当前窗体关闭指定的窗体比如说职工查询Docmd.close acform,”职工查询”29.工资总额: 基本工资+津贴-住房公积金-失业保险本大题，第三题窗体注意 宏和窗体的综合应用30报表的综合应用（在报表中实现计算型字段）31.Private Sub bList_Click()* 请在下面双引号内添入适当的 SELECT 语句 *BBB.Form.RecordSource = “select *from tStudent“*Text2 = “ “End Sub32.设置有效性规则为成绩应输
4、入非负数！成绩=0 应输入非负数关闭当前窗体代码 docmd.close关闭指定窗体代码 docmd.close acform, “指定的窗体名称”33.表的基本操作，只能输入 10 位数字或空格形式9999999999第二大题，第三小题统计每门课程的平均成绩，通过本题给出图例可以看出本题是交叉表查询而且要求把题目的成绩属性字段设置格式，固定，小数位数 0 位窗体加载时显示当前日期Private Sub Form_Load()设置窗体标题为当前日期*Add*Me.Caption = Date*Add*End Sub34.交叉表查询显示各门课程男女生不及格的同学必须确保男生在前，女生在后，应该是
5、先男后女升序排序第三大题Me!tEnter.Visible = True visible 表示按钮是否可视CmdSave.Enabled = True enabled 表示按钮是否可以使用*Add*MsgBox “请重新输入口令“, vbOKOnly*Add*End If35.查询第（2） 小题统计年龄小于 30 医生被预约的次数查询预约日期为 10 月的记录通过输入科室名来进行查询科室 ID 和预约日期下图就是查询 qT4 的设计界面第三大题设置按钮是否可用代码 CmdSave.Enabled = True用鼠标操作右击命令按钮选择属性，在数据选项卡中选择数据，在可用中选择否即可36.（3）
6、以 Tb 表为基础创建一个交叉表查询（4）创建一个查询统计出各类房屋的数量第三大题报表题第 4 小题Option Compare DatabasePrivate Sub btnP_Click()Dim k As String*Add1*k = InputBox(“请输入大于 0 的整数值 “)*Add1*If k = “ Then Exit SubSelect Case Val(k)Case Is = 3DoCmd.RunMacro “mEmp“Case 2*Add2*DoCmd.OpenReport “rEmp“, acViewPreview*Add2*Case 1DoCmd.CloseEn
7、d SelectEnd Sub语句使用格式如下：Select case 表达式Case 表达式 1 case 1,3表达式的值与表达式 1 的值相等时执行语句序列Case 表达式 2 to 表达式 3 case 2 to 5表达式的值介与表达式 2 和表达式 3 之间的值相等时执行语句序列Case is 关系运算符 4 case is=3满足表达式 4Case else 上面情况均不满足K=inputbox(“请输入一个数值”,”标题”,”1”)本题考点链接以不同的方式打开学生窗体Docmd.openform “学生”,acNormal 默认值 窗体视图打开Docmd.openform ”学生
8、”,acDesign 设计视图打开Docmd.openform “学生”,acpreview 预览视图打开本题考点链接以不同的方式打开学生报表Docmd.openreport “学生”,acviewNormal 默认值 打印模式Docmd.openreport ”学生”,acviewDesign 设计模式Docmd.openreport “学生”,acviewpreview 预览模式37第一大题将考生文件夹下文本文件，test.txt 中的数据导入追加到当前数据库的数据表 tTemp 中要点， 一定要选择第一行包含行标题不然会出现错误第三大题报表排序题如果想要显示出 -1/15- =“-“ &
9、 Page & “/“ & Pages & “-“ page代表当前页数 pages代表总页数让一个宏在打开的时候自动运行，命名为 autoexec 当在打开数据的库不想让它运行按住shift 键它就不会运行了38.第二大题(第 3 小题)Private Sub bt1_Click()*Add1*bTitle.Caption = Trim(tText.Value) & “等级考试测试“*Add1*End Sub第三大题第四小题Private Sub bt1_Click()Dim ADOcn As New ADODB.ConnectionDim ADOrs As New ADODB.RecordsetDim strDB As String建立连接Set ADOcn = CurrentProject.ConnectionADOrs.ActiveConnection = ADOcnADOrs.Open “Select 编号 From tEmp Where 编号=“ + tNo + “, , adOpenForwardOnly, adLockReadOnly*Add1*If Not ADOrs.EOF() Then*Add1*MsgBox “该编号已存在，不能追加！“Else
