求助：我编的过程为何达不到预期目的？

yanghua1900363

恳请各位帮我看一看，我写的这个过程为何达不到预期的目的。
过程中涉及2个表：销售订单表(其主键为销售订单id)和Appraisal（即订单评审表，其主键为appraisalID） 其中Appraisal 表中有一个字段是销售订单id。我想达到的目的是：如果当前订单没有评审，则进行评审；如果当前订单已经完成评审，则提醒是否需要再次评审。下边是我写的过程，运行结果总是直接跳到“该订单已经完成评审，是否需要进行再评审？”
Dim intmessage As Integer


Dim rst As New 记录集封装程序

If rst.OpenRecordset("appraisal", "[销售订单id]=" & Me.销售订单id) Then
   'With rst.Recordset
   If IsNull(rst.Recordset("appraisalID")) Then
   intmessage = MsgBox("该订单尚未评审，是否进行评审？", vbYesNo)
     If intmessage = vbYes Then
       Call 订单评审
     End If
   Else
    If Not IsNull(rst.Recordset("appraisalid")) Then
   
    intmessage = MsgBox("该订单已被评审，是否再次进行评审？", 4)
       If intmessage = vbYes Then
       Call 订单评审
       End If
    End If
   ' End With
   ' Else
     '  Exit Sub
End If

End If

todaynew

问题出在rst.Recordset("appraisalID")的返回值上，请检查  记录集封装程序 是否正确。

另外该段程序应简化为如下：


Dim rst As New 记录集封装程序
Dim str as string
If rst.OpenRecordset("appraisal", "[销售订单id]=" & Me.销售订单id) Then
        If IsNull(rst.Recordset("appraisalID"))=true Then
                    str = "该订单尚未评审，是否进行评审？",
        Else
                     str = "该订单已被评审，是否再次进行评审？"
        end if
              If  MsgBox(str, vbYesNo) = vbYes Then    Call 订单评审
End If

yanghua1900363

todaynew 发表于 2012-10-19 10:22
问题出在rst.Recordset("appraisalID")的返回值上，请检查  记录集封装程序 是否正确。

另外该段程序应简 ...

谢谢版主的指点 我再试试看

andymark

If Not IsNull(rst.Recordset("appraisalid")) Then  --这句有点多余