ACCESS中如何自字义函数

问题描述：

建立函数，按分值进行分段，成绩>=90为“优秀”，成绩>=80为“良好”，成绩>=60为“及格”，成绩 <60为“不及格”.
以“成绩”表建查询4,显示“工号，姓名，考核”,其中考核要利用自定义函数，分为“优秀、良好、及格、不及格”。
成绩表:
ID 工号 姓名 理论 操作
1 0001 蓝伯光 83 81
2 0002 刘妙韦 69 90
3 0003 俞抗非 73 86
4 0004 叶宝惜 68 81
5 0005 张国谦 82 85
6 0006 谢荣河 92 94
7 0007 易飞翔 84 84
8 0008 王学东 74 83
9 0009 杜晓平 79 80
10 0010 王茂强 90 88
12 0012 蔡金棒 77 90
13 0013 姚成权 80 86
14 0014 林旭峰 86 76
15 0015 陈俊吉 74 85
16 0016 吴新标 91 88
17 0017 陈俊罡 57 58
18 0018 洪永生 76 88
19 0019 武杰 67 58
20 0020 施恭贵 83 88
21 0022 邱锡玲 73 81
22 0023 温东华 94 87
23 0024 苏志佳 81 93
24 0026 林淑珍 81 80

问题解答：

ACCESS没有自定义函数吧，你可以用 IIF 函数实现。

一样有自定义函数的。

新建一个模块，在模块中，插入过程,选择函数.写入这样的代码.

Public Function L(x)
If x >= 90 Then L = "优秀"
If x < 90 And x >= 80 Then L = "良好"
If x < 80 And x >= 60 Then L = "及格"
If x < 60 Then L = "不及格"
End Function

然后,用这表建立一个查询,考核这个字段下写入:=L([成绩表]![理论]+[成绩表]![操作])，其它按常规操作即可