包颖 发表于:2011-03-18 15:01:20
我想在一个文本框输入内容后,在更新后事件中,自动更新本条记录的另一个字段,代码如下:
Private Sub aicnum_BeforeUpdate(Cancel As Integer)
Dim strSql
'判断证号是否为空
If (Not IsNull(Me.aicnum)) And (Me.aicnum <> "") Then
'不为空则更新状态为店址确认
strSql = "update t_ea_candidate set shopstate='店址确认' where ([id] like '" & Me.pid & "')"
CurrentDb.Execute (strSql)
End If
End Sub
但是在用TAB键走完窗体中的全部内容自动更新时,就会报“写入冲突,从您开始编辑此记录以来,该记录已被另一用户更改,如果现在保存此记录,将会覆盖其他用户所做的更改”这个错误,如果点了保存的话,那我上面代码中更新的字段就没有了,被覆盖了,请问各位大侠,可有好方法克服这个问题?感激不尽
不知道自己是不是没表述清楚,补充一下,窗体绑定的就是上面代码中更新的那个表t_ea_candidate ,而窗体更新我是用的TAB键依顺序走到最后自动更新的方式。
麻烦您先帮我想想能否克服这个问题,就是因为触发的事件和窗体更新的都是同一个表,才报的这个问题。请各位帮帮忙啊!!!
事件过程弄错了.应该是:
aicnum_AfterUpdate()
总记录:2篇 页次:1/1 9 1 :