【求助】如何让空数据输不进去

孤客

要如何改代码，才能使在成绩输入窗口中没有输入数据就不能被保存
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

isnull([数学]) or [数学]=""

Henry D. Sy

8888888888888888888888888888

孤客

谢谢3楼
不过请问下我的代码哪边出了问题啊？

Henry D. Sy

null跟“”是两回事

孤客

不过我把上部分的“”改成null还是用不了啊？~

Henry D. Sy

是 isnull（aaa）
而不是aaa=null

孤客

谢了
知道错在哪了~~