根据多个条件来更新表中的数据

仇国平　发表于：2011-01-21 13:53:09 　

如果表1中字段1的值>80,字段则更新为优，如果表1中字段1的值在70到80之间，则字段1更新为良，否则更新为合格，在按钮单击事件中如何写代码

煮江品茶发表于：2011-01-21 14:10:45

设需要更新的表名称为“成绩表”，需要更新的字段名称为“生物评价”，则：

dim ssql as string
ssql="UPDATE 成绩表 SET [生物评价]=IIf([生物]<60,'不合格',iif([生物]<70,'合格',IIf([生物]<85,'良','优')))"
currentdb.execunte ssql

Top

煮茶论道发表于：2011-01-21 14:41:17

煮江老师;

感谢你的回答，可能我的理解能力不够，不能达到效果，能不能麻烦你帮我在实例上改一下，谢谢！

点击下载此附件

Top

煮江品茶发表于：2011-01-21 15:10:13

Private Sub Command0_Click()
Call 等第("政治1")
Call 等第("语文1")
Call 等第("数学1")
Call 等第("英语1")
End Sub

Sub 等第(字段名 As String)
Dim ssql As String
If IsNumeric(Val(DLookup(字段名, "学生期中成绩表"))) = True Then
ssql = "UPDATE 学生期中成绩表 SET " & 字段名 & "=IIf(val(" & 字段名 & ")<60,'不合格',iif(val(" & 字段名 & ")<70,'合格',IIf(val(" & 字段名 & ")<85,'良','优')))"
CurrentDb.Execute ssql
End If
End Sub

Top

煮江品茶发表于：2011-01-21 15:18:13

点击下载此附件

Top

煮茶论道发表于：2011-01-21 15:20:12

谢谢！好了

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

根据多个条件来更新表中的数据