编辑组合框时，访问表单不会更新，必须移动到下一条记录

Question

我有一个连续的表格，其中有一个组合框列表，图片如下：

正如您所看到的，访问表单左侧有一个小铅笔，用于显示正在编辑表单中的当前记录。我需要将其更改为三角形，以便其他表单使用按钮正确更新。是否有VBA“失去焦点”或将铅笔改为黑色三角形？我尝试移动到下一个记录，但由于一些奇怪的原因它崩溃了。另外它非常复杂，因为如果用户在最后一条记录上，我必须添加逻辑，因为它会抛出错误，因为它无法转到最后一条记录的下一条记录。我的vba在下面（由于某种原因目前崩溃访问）

with recordset
if .recordcount=1 then
docmd.gotorecord record:=acfirst

elseif .absoluteposition = .recordcount - 1 then
docmd.gotorecord record:=acprevious
docmd.gotorecord record:=acnext
else
docmd.gotorecord record:=acnext
docmd.gotorecord record:=acprevious
end if
end with
end sub

Answer 1

通常的方法是保存：

 If Me.Dirty Then
     Me.Dirty = False
 End If

选择合适的活动。

如果Access崩溃，通常意味着您需要进行备份，压缩和修复以及反编译。