access答案总结

access答案总结
1、显示页码，控件来源中根据要求的书写形式：
=[page] & "/" & [pages]1/2
="第" & [page] & "页/共" & [pages] & "页"
第1页/共2页
="-" & [page] & "/" & [pages] & "-" -1/4- 2、以XXXX年XX 月显示
=year(date()) & "年" & month (date()) & "月"
3、计算机平均单价并且保留两位小数：
=round(avg([单价]),2)
4、统计团队数量：
=count([团队ID])
5、先修课程中含有101或102的条件：
like "*101*" or like "*102*"
6、更新查询，在编号前面加入05,切换查询类型到更新查询，在“更新到”行写入：
"05" & [编号]
7、将编号和姓名合并为一列显示,在字段行写入：
管理人员: [编号] & [姓名]
8、已知入住时间和价格，计算应交金额：
应交金额: (date()-[入住时间]) * [价格]
9、默认值为本年度的一月一日：
dateserial(year(date()),1,1)
10、根据产品ID的第一位查找，第一位为2的条件写法：
left([表名]![产品ID],1)="2"
11、单价高于平均单价的条件,在单价字段的条件行写入：
>(select avg([单价]) from tBook)
12、查找姓王的姓名为两个字的条件：
Like "王?"
13、创建查询计算优惠后价格，在字段行写入：
优惠后价格:[费用]*0.9
14、预约日期在星期一的条件：
weekday([预约日期])=2
15、查询中根据单价数量计算奖金，在字段行写入：
奖金: SUM([单价]*[数量])*0.05
16、出发日期在2002年以前，在出发时间条件行写入：
year([出发时间])<2002
17、创建查询，根据学号前8位计算班级：
班级: left([学号],8)
18、输入掩码类：
电话号码的设置："010-"00000000
灯泡规格设置："220V-"00"W"
三位整数两位小数：999.00
19、第一个字符只能是A，后面必须是三位数字：
"A"000
20、让小于20岁的男生复选框打勾，在控件来源中写入：
=iif([性别]="男" and [年龄]<20,-1,0)
21、参数查询，查找某月出生.,出生日期字段条件行写入：month([出生日期])=[请输入月份]
22、引用记录源外的表中内容=dlookup("名称","tGroup","部门编号='"& [所属部门] &"'")
23、已知年龄，计算出生年份：
=year(date())-[年龄]
24、已知出生日期，计算年龄的值：
=Year(Date())-Year([出生日期])
25、入校时间只能输入1月到10月的值：
month([入校时间])>=1 and month([入校时间])<=10 26、金额合计的大小决定是否达标：
=iif(Sum([单价]*[数量])>30000,"达标","未达标") 27、学号的第
5、6位决定系别：
=iif(Mid([学号],5,2)="10","信息","经济")
28、将查询设置为参数查询，某窗体的控件作为参数，在控件内容所对应的字段的条件行写入：
[forms]![控件所在窗体名]![控件名]
如：[forms]![femp]![tss]
29、显示系统当前日期：
=date()
30、上一年度5月1日前的日期：
<=dateserial(year(date())-1,5,1)
31、设置日期的显示形式：
要求：9月1日1990年
格式中输入：m月d日yyyy年
要求：09月01日1990
格式中输入：mm月dd日yyyy
32、设置复合主键：
将所设置字段同时选中设置
33、设置表的有效性规则,使最低储备小于最高储备，在表的设计视图下选择“属性表”，在有效性规则中写入：
[最低储备]<[最高储备]
34、姓名为两个字：
len([姓名])=2
35、根据党员否字段的值显示“党员”或“非党员”
=iif([党员否]=-1,"党员","非党员")
36、根据性别字段的1和2显示男和女
=switch([性别]=”1”,”男”,[性别]=”2”,”女”)
37、将编号的第一位更新为“1”，编号字段更新到写：
"1" & Mid([编号],2)
38、判断年龄是奇数：
[年龄] Mod 2=1
39、参数查询，查找输入的爱好，在简历字段条件行写：
Like "*" & [请输入爱好] & "*"
40、参数查询，查找输入的姓氏，在姓名字段条件行写：
like [请输入姓氏] & ”*”
代码总结：在两行***之间写入下面冒号后的内容
2-3-5保存按钮不可用、用户名只读、弹出提示框、关闭窗体ADD1: CmdSave.Enabled = False
ADD2: tUser_1.Enabled = False
科普教育老安相信努力必有收获，你肯定能顺利通过考试，加油！
ADD3: MsgBox "请重新输入口令!"
ADD4: Docmd.Close
3-3-5 如果名字和密码输入正确、将光标置于tuser中、关闭窗体ADD1: If name = "cueb" And pass = "1234" Then ADD2: tUser.SetFocus
ADD3: DoCmd.Close
4-3 ldetail显示citem的选择项再加“内容：”、fdetail子窗体的记录源、弹出提示框
ADD1: Ldetail.Caption = cItem & "内容："
ADD2: fDetail.Form.RecordSource = "tstud"
ADD3: MsgBox "查询项目和查询内容不能为空！！！", vbOKOnly "，注意"
5-3 窗体标题为“****年度报表输出”、“退出”按钮的文字以红色显示、预览打开报表、错误处理
ADD1: Me.Caption = Year(Date) & "年度报表输出" ADD2: bt2.ForeColor = 255
ADD3: DoCmd.OpenReport "rEmp", acViewPreview ADD4: ErrHanle:
22-3 显示全部记录
ADD: BBB.Form.RecordSource = "select * from tStudent"
24-3-5 保存按钮可用
ADD: CmdSave.Enabled = True
25-3-5 计算党员职工平均年龄，写入外部文件
ADD1: If rs.EOF Then
ADD2: tAge = sage
28-3-5 弹出提示框
ADD: MsgBox "请重新输入口令!"
29-2-3 将btitle的标题设置为tText的内容加“等级考试测试”，去除tText中的空格
ADD: bTitle.Caption = Trim(tText) & "等级考试测试" 29-3-4 弹出输入框、预览输出报表
ADD1: k = InputBox("请输入大于0的整数值")
ADD2: DoCmd.OpenReport "rEmp", acViewPreview 30-3-4 当>=3、预览输出报表
ADD1: Case Is >= 3
ADD2: DoCmd.OpenReport "rEmp", acViewPreview 32-3-4 追加职工信息、关闭窗体
ADD1: If Not ADOrs.EOF Then
ADD2: DoCmd.Close
34-3-4 弹出提示框
MsgBox "请重新输入口令!"
39-3-4 计算斐波那契数列第19项，
ADD1: Dim f(19) As Integer
ADD2: f(i) = f(i - 1) + f(i - 2)
ADD3: tData = f(19)
41-3-3 标签红色字体显示、调用用户编写mdpnt预览输出报表ADD1: bTitle.ForeColor = 255ADD2: mdPnt acViewPreview 51-3 窗体标题显示“**年度报表输出”、“退出”按钮字体加粗、预览输出报表、错误处理
ADD1: Caption= Format(Date, "yy") & "年度报表输出" ADD2: bt2.FontBold = True
ADD3: DoCmd.OpenReport "rEmp", acViewPreview ADD4: errhanle:
53-3: 设置窗体的标题为标签的标题、计算10000以内素数、运行宏
ADD1: Caption = bTitle.Caption
ADD2:Dim i As Integer
n = 0
For i = 0 To 10000
If sushu(i) = True Then
n = n + 1
mn = i
End If
Next i
ADD3:DoCmd.RunMacro "mEmp"
56-3 窗体的标题为标签的标题、1+2+...<=30000、运行宏ADD1: Caption = bTitle.Caption
ADD2: For i = 0 To 30000
sum = sum + i
If sum <= 30000 Then
n = i
End If
Next i
ADD3: DoCmd.RunMacro "mEmp"
新题型
窗体的标题为“XXXX年XX月”再加标签的标题
me.Caption=year(date()) & "年" & month(date()) & "月" & tTitle.Caption
窗体的标题为“本周第X天库存浏览”
Me.Caption = "本周第" & Weekday(Date) & "天库存浏览"
按年代分组，添加文本框显示“1960年代”形式，在文本框控件
来源
=(Year([聘用时间])\10)*10 & "年代"
男性最大年龄、记录遍历
ADD1: MAgeMax = rs.Fields("年龄")
ADD2: rs.MoveNext
雇员查找
ADD1: Set rs = New ADODB.Recordset ADD2: If rs.EOF Then
ADD3: Me.TxtDetail = ""
科普教育老安相信努力必有收获，
你肯定能顺利通过考试！。