关于access代码编写多条件查询出错的问题

lovdge　发表于：2013-05-27 18:32:09 　

Private Sub 课程号_Change()
Set mydb = CurrentDb
Set myds = mydb.OpenRecordset("SELECT 课程表.名称 FROM 课程表 where 课程表.课程号='" & 课程号 & "'")
课程名 = myds.Fields(0)
If 学号 <> "" Then
Set myds = mydb.OpenRecordset("SELECT 成绩表.成绩 FROM 成绩表 where 成绩表.课程号='" & 课程号 & "' and 成绩表.学号='" & 学号 & "'")
成绩 = myds.Fields(0)
End If
End Sub

请教大家，这里我用了两个条件就不好执行了，前面的就可以只有一相条件，是不是代码还需要修改呢，谢谢

Top

lovdge 发表于：2013-05-27 19:27:33

这个问题我已经知道了，是由于成绩表中查不到相关记录，导致myds.fields(0)为null产生的错误，但我想加一个条件判断，仍然不行。

if myds.fields(0)＝null then msgbox"无此记录"

这个语句有什么问题吗？

Top

lovdge 发表于：2013-05-27 19:32:24

知道昨办了，百度到了

On Error GoTo err
    Debug.Print 1 / 0
Exit Sub

err:
    MsgBox "自定义错误提示"
Exit Sub

Top

殷小宝发表于：2013-05-27 20:52:37

if myds.recordcount<1 then exit sub

Top

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

Access交流中心

关于access代码编写多条件查询出错的问题