访问VBA-记录集丢失位置

选项比较数据库 专用rs作为记录集

Private Sub Send_Click()
Dim strLocation As String

 If MsgBox("Please confirm you wish to run todays tasks.", vbYesNo) = vbNo Then
    Exit Sub
End If


Set rs = Me.RecordsetClone

rs.MoveFirst
Do Until rs.EOF
Debug.Print rs("title")

    'Call Update_Progress("Test", rs("ID"))

rs.MoveNext
Loop

rs.Close
Set rs = Nothing

End Sub

你好,

请看上面的代码。 当我在函数/子函数之间移动时，有人能告诉我如何保持记录集的位置吗

如果我注意到“Update_Progess”函数，那么这段代码在记录中循环很好，但是当这个函数出现时，它会继续循环第一条记录吗

提前感谢

如评论所示

---

我在其中一个函数中对表单进行了重新查询，导致记录集重置其位置，这是通过修改为刷新来修复的。

这应该有效。您能否在显示问题的同时尽可能减少更新进度代码（“最小可重复示例”），并将其添加到您的问题中？（你可以使用问题下方的“编辑”链接。）嗨，谢谢你的提示，一旦我知道它应该工作，我检查了功能，我在那里有一个导致问题的重新查询，我已更改为刷新，它正在工作。我不该以为是潜艇我猜，我的坏小子干得好，恭喜你修好了！我建议你把你的评论复制到一个答案中，然后“接受”它，这样这个问题就不再显示为“未回答”。完成了，完成了，干杯