[求助]如何查找是否存在记录并跳出循环

gdfsslec

下面的两个循环当出现找不到记录的时候怎么跳出循环呢？

  inta = 0
  inid = DateSerial(Year(DateAdd("m", -3, Now())), Month(DateAdd("m", -3, Now())), 1)
  rs.Open "查询结果", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  rs.MoveLast
       Do Until rs.Fields("发生日期") < inid
            rs.MovePrevious
       Loop
       Do Until inta >= (cq - 0.001) * 10000
            inta = inta + rs("出货金额")
            inid = rs("发生日期")
            rs.MovePrevious
       Loop

请高手帮忙看看！谢谢先！

gdfsslec

解决了。先记录第一条，然后判断是否回到了第一条，是则跳出循环。

tz-chf

Do Until rs.Fields("发生日期") < inid
            rs.MovePrevious
Loop
有可能死掉

gdfsslec

大师说的对！第一个循环会死啊！

gdfsslec

改成这样，暂时通过，不知道还有什么隐患？

inta = 0
inidq = DateSerial(Year(DateAdd("m", -6, Now())), Month(DateAdd("m", -6, Now())), 1)
rs.Open "查询结果", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
inida = rs("发生日期")
rs.MoveLast
Do Until rs.Fields("发生日期") < inidq
     inid = rs("发生日期")
     If inid = inida Then
        MsgBox inid & "之前没有记录"
        Exit Do
     End If
     rs.MovePrevious
Loop
Do Until inta >= (cq - 0.001) * 10000
     inta = inta + rs("出货金额")
     inid = rs("发生日期")
     If inid = inida Then

         MsgBox inid & "之前没有记录"

     Exit Do
     End If
     rs.MovePrevious
Loop

andymark

没看清你具体用意.试试先用条件筛选

inta = 0
inidq = DateSerial(Year(DateAdd("m", -6, Now())), Month(DateAdd("m", -6, Now())), 1)
rs.Open "select * from 查询结果 where 发生日期< inidq", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF Then
  MsgBox "没有记录"

  Exit Sub
End If

gdfsslec

谢谢andymark大师！

您给的答案正是我需要的，不仅消除隐患，而且速度也大大加快了。