如何停止不断重复“当前”事件的例行程序

Question

我非常困惑的问题是，我有一个表格，当用户选择其中一个记录时，会有一个当前事件更新它的基础表，并带有一些SQL查询。一切正常，直到例程结束，我需要添加一些VBA代码，将所选记录从用户选择的记录移动到以下记录（如果用户选择了记录集中的最后一条记录，则为第一条记录） ）。非常奇怪的是，在添加下面的代码时，on-current事件的执行变为连续循环类型事件，迫使我必须CTRL-ALT删除并手动关闭Access。对我来说很奇怪，我的指令很简单，理论上应该将用户带到下一条记录而不是执行无限查询。

If CurrentRecord = Recordset.RecordCount And CurrentRecord <> 1 Then
    DoCmd.GoToRecord , "", acFirst

Else
    DoCmd.GoToRecord , "", acNext

End If

Answer 1

通过将更新表查询与GoToRecord if子句分开来解决问题。从本质上讲，我将所有更新查询留在了＆＃39; On Curren＆＃39;表格的事件，并采取If Clause（上面）并将其附加到更新后的＆＃39;表格的事件。现在工作正常。