Office中国论坛/Access中国论坛

标题: 【求助】如何让空数据输不进去 [打印本页]

作者: 孤客 时间: 2008-10-25 18:44
标题: 【求助】如何让空数据输不进去
要如何改代码，才能使在成绩输入窗口中没有输入数据就不能被保存
If 学号 = "" Then
   MsgBox ("学号不能为空！")
   Exit Sub
End If
If 姓名 = "" Then
   MsgBox ("姓名不能为空！")
   Exit Sub
End If
If 数学 = "" Then
   MsgBox ("数学不能为空！")
   Exit Sub
End If
If 物理 = "" Then
   MsgBox ("物理不能为空！")
   Exit Sub
End If
If 化学 = "" Then
   MsgBox ("化学不能为空！")
   Exit Sub
End If
yn = MsgBox("确定保存成绩吗？", 1 + 32, "提示")
If yn = 1 Then
Set rs = New ADODB.Recordset
rs.Open "select * from 成绩表", CurrentProject.Connection, 3, 3
rs.AddNew
rs("学号") = 学号
rs("数学") = 数学
rs("物理") = 物理
rs("化学") = 化学
rs.Update

MsgBox ("成绩保存成功！")
学号 = ""
数学 = ""
物理 = ""
化学 = ""
Else
学号 = ""
数学 = ""
物理 = ""
化学 = ""
End If

为什么当我数学成绩没输入的时候它还是能让我保存成绩？！

作者: sxgaobo 时间: 2008-10-25 18:53
isnull([数学]) or [数学]=""

作者: Henry D. Sy 时间: 2008-10-25 20:40
8888888888888888888888888888

作者: 孤客 时间: 2008-10-25 21:04
谢谢3楼
不过请问下我的代码哪边出了问题啊？

作者: Henry D. Sy 时间: 2008-10-25 21:52
null跟“”是两回事

作者: 孤客 时间: 2008-10-25 22:28
不过我把上部分的“”改成null还是用不了啊？~

作者: Henry D. Sy 时间: 2008-10-25 23:00
是 isnull（aaa）
而不是aaa=null

作者: 孤客 时间: 2008-10-25 23:42
谢了
知道错在哪了~~

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)