vba - 执行vb代码(删除记录)后记录被删除错误

Question

我的一个数据库出现问题已经有一段时间了，这有点令人烦恼。

我有一个连续 View 的表单，用户必须在其中为每条记录填写一些信息，然后单击“提交”按钮(对于每条记录)。

根据为该记录输入的值，“提交”按钮将首先在两个表中的一个中插入信息，然后从表单正在查询的临时表中删除该记录。

它的伪代码在这里:

IF x.checked && y > 70 then
  db.execute "Insert into tblCompleted values (me.empID,'completed',me.y);
else
  db.execute "insert into tblIncompleted values (me.empid, 'incomplete', 'me.y);
end if
db.execute "delete * from tblTemporary WHERE empid = me.empID"
 'form.requery
'form.refresh

我有时会收到“记录已删除”运行时错误，有时同一记录会出现两次。但是，所有操作都有效。然而，完成后，记录显示##DELETED。为了解决这个问题，我在代码末尾放置了 Form.refresh 和 Form.requery 语句。这将消除 ##DELETED 记录，但经常会抛出“记录已删除”错误。

在你说“你为什么要使用两个表，这不能只用一个表建模”之前，这是我实际所做的简化版本，对我来说，使用两个表更有意义的设计-明智的。

我主要担心的是这个运行时错误。我可以捕获它而不处理它，但我更愿意实际修复它并整理出这个有问题的表格。有什么想法吗？

Answer 1

我认为原因是删除记录后，您的表单仍在尝试显示它。相关post中的答案建议在使用类似 this 的代码删除当前记录之前将书签移动到上一条记录.