Question

选项比较数据库私人记录集

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

您好，

请参阅上面的代码。当我在函数/ subs之间移动时，有人可以建议我如何保持记录集的位置。

如果我注意到＆＃34; Update_Progess＆＃34;这段代码可以很好地循环记录。功能，但当它进入时，它会不断循环通过第一条记录？

提前致谢

Answer 1

与评论一样，

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

访问VBA - 记录集丢失位置

1 个答案: