请教,遍历一个查询,找出数量字段的空值,并提示.该如何做.

liuweisunjing

这是我东拼西凑的代码,运行提示少参数.请高手指点一下.多谢了.
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
shuliang = "SELECT 订单明细.订单ID, 订单明细.数量 FROM 订单明细 GROUP BY 订单明细.订单ID, 订单明细.数量 HAVING (((订单明细.订单ID)=[forms]![订单]![订单ID]));"
rs.Open shuliang, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

Do While rs.EOF
    If IsNull(rs.Fields("数量")) = True Then
      MsgBox "至少一条记录没有数量,请核对后保存", vbDefaultButton1
     Else
      rs.MoveNext
     End If
  Loop
Set rs = Nothing

glw

Private Sub Command41_Click()

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
shuliang = "SELECT 订单明细.订单ID, 订单明细.数量 FROM 订单明细 GROUP BY 订单明细.订单ID, 订单明细.数量 HAVING (((订单明细.订单ID)='" & [Forms]![订单]![订单ID] & "'));"
rs.Open shuliang, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

Do While Not rs.EOF
    If IsNull(rs.Fields("数量")) = True Then
      MsgBox "至少一条记录没有数量,请核对后保存", vbDefaultButton1
      Exit Do   '加上这一句,不然死循环
     Else
      rs.MoveNext
     End If
  Loop
Set rs = Nothing
Me.Command37.SetFocus
Me.Command41.Enabled = False
Call bukebianji

End Sub

[ 本帖最后由 glw 于 2008-2-16 17:49 编辑 ]

haemon

不如把库传上来, 这样好象无法调试, 也看不出哪的问题

liuweisunjing

好的,请帮忙看看

haemon

shuliang = "SELECT 订单明细.订单ID, 订单明细.数量 FROM 订单明细 GROUP BY 订单明细.订单ID, 订单明细.数量 HAVING (((订单明细.订单ID)='" & [Forms]![订单]![订单ID] & "'));"

haemon

[Forms]![订单]![订单ID]是变量呀!

liuweisunjing

没有成功,不报错了,但判断不出数量有空值啊.

glw

Do While rs.EOF
改为
do while not rs.eof

fswxs

学习

liuweisunjing

感谢 glw 和 haemon ,问题解决的非常理想.呵呵.谢谢二位.