ACCESS上机必备各种函数代码总结上机必备亲

1（取平均值）单击菜单栏【视图】|【SQL视图】，将"Avg(tGrade.成绩)"修改为"int(Avg(tGrade.成绩))"
2，（年龄为偶数 ）在"年龄"字段的"条件"行输入"[年龄] Mod 2＝0"，单击"显示"行取消该字段的显示。在"简历"字段"更新到"行输入"" ""
3，在"身份证"字段的"条件"行输入"Mid([身份证],4,3)=102"，单击"显示"行取消该字段显示。
4，（没有摄影爱好） 在"简历"字段的"条件"行输入"not like"*摄影*""，单击"显示"行取消该字段的显示。
5 在"字段"行第一列位置输入"班级编号: Left([tStudent]![学号],6)"，在"条件"行输入"[请输入班级编号：]"
6，创建一个查询，将所有学生设置为非党员。
双击字段 "党员否"，在"党员否"字段的"更新到"行输入"not yes"
7，在"字段"行的第一列输入"标识: [学号]+Left([姓名],1)"
8，SELECT TOP 5 tStud.学号, tStud.姓名, tStud.年龄 （追加前5条记录）
9，<>"04"
10，在"学号"字段的"条件"行中输入：Not In (select tScore.学号 from tScore)，
11，"DateSerial(Year(Date())＋1,1,1)"
12，系统日期的前一天 在"默认值"行输入"Date()－1"
13，输入数字或者字母 在"输入掩码"行输入"AAAAAAAA"。
14，窗体加载时窗体标题属性为系统当前日期。代码 Form.Caption ＝ Date
15，右键单击命令按钮"bList",从弹出的快捷菜单中选择【事件生成器】，在空行内输入代码：
'*****Add1*****

DoCmd.RunMacro"m1"
'*****Add1*****

16，*****Add1*****
Tda.Caption=Date
'*****Add1*****

17，查询 选中"查询"对象，单击"新建"按钮，选中"查找不配项查询"，单击"确定"按钮。（54)

18， BBB.Form.RecordSource = "select * from tStudent 显示表中记录vba

19，分析两表的字段，共同字段为"部门号"，设置"员工表"中"部门号"字段的"索引"为"有（有重复）"，并在字段的"说明"列注明"部门表的外键"。 设置外键

20，1）将退出钮标题变成红色(255)，2）以预览打开报表remp 编码：1）bt2.ForeColor = 255 2） DoCmd.OpenReport "rEmp", acViewPreview

21，窗体加载事件实现的功能是显示窗体标题，显示内容为“****年度报表输出”其中****为系统当前年份编码：Form.bTitle.Caption = Year(Date) & "年度报表输出"

22，将编号字段的前面均加05两个字符 ： 双击"编号"字段，在"编号"字段的"更新到"行输入"05＋[编号]"。

23，创建一个查询，计算每名雇员的奖金，显示标题为雇员号和奖金。说明奖金=每名雇员的销售金额（单价*数量）合计数*5%

双击"雇员号"字段，在下一字段行输入"奖金:[单价]*[数量]*0.05"

24，查找单价低于定价的图书
步骤2：双击"书籍名称"、"类别"、"作者名"、"出版社名称"字段。
步骤3：在下一字段输入"[单价]-[定价]"，在条件行

输入"<0"，并单击"显示"行

25，控件显示每本书的金额： 在"控件来源"行输入"=[单价]*[数量]"，关闭属性界面。

控件计算图书平均价格 右键单击【该文本框】|【属性】，单击"全部"选项卡,在"名称"行输入"txtAvg"；在"控件来源"行输入"=Round(Avg( [单价]))"，关闭属性界面

26，文本框(txtif),判断所受图书的金额合计，如果大于30000，则显示“达标”否则“未达标” 编码为：右键单击【该文本框】|【属性】，单击"全部"选项卡,在"名称"行输入"txtIf"；在"控件来源"行输入"=IIf（txtMoney>30000,"达标","不达标")"，关闭属性界面。

27，“退出”命令按钮功能关闭窗体
*****Add*****
DoCmd.Close
'*****Add*****
28，双击"年龄"字段添加到"字段"行，在"条件"行输入"[年龄]mod 2<>0 删除年龄为奇数的记录

29，设置属性显示姓氏信息 在"控件来源"行输入"Left([姓名]，1)"，关闭属性界面

30，事件过程动态设置窗体记录源为查询对象“qEmp”编码
'*****
Form.RecordSource ＝ "qEmp"
'*****

31，查找未婚的信息：在"婚否"字段的"条件"行输入"0"，单击"显示"行取消该字段显示

32，在"控件来源"行输入"Year(Date())－[年龄]"，关闭属性界面计算出生年

33，在空行内输入代码"CDID_标签.ForeColor = vbRed"，关闭界面 显示颜色为红色

34，计算控件设置
在"名称"行输入"ySalary"，在"控件来源"行输入"[基本工资]＋[津贴]＋[补贴]"，关闭属性界面。
按步骤1～3添加另一个计算控件"Salary"，"控件来源"行输入"[基本工资]＋[津贴]＋[补贴]－[住房基金]－[失业保险]"。

35，步骤1：单击菜单栏【视图】|【数据表视图】。
步骤2：右键单击学号为"000019"对应的照片列，选择"插入对象"，在"对象类型"列表中选中"位图图像"，然后单击"确定"按钮。
步骤3：弹出"位图图像"界面，单击菜单栏【编辑】|【粘贴来源】，在"考生文件夹"处找到要插入图片的位置。
步骤3：双击"000019.bmp"文件，关闭"位图图像"界面。

36，Month([入校时间])>=1 And Month([入校时间])<=10
37

，Private Sub bt1_Click()
'*****Add1*****
bTitle.Caption = Trim(tText) & "等级考试测试"
'*****Add1*****
End Sub