afterupdate事件处理

adge

在窗体里建一个保存按纽并写CLICK事件，在数据更改后点击保存按纽后，可在绑定的文本框内记录下修改时间，但是修改数据后不点击保存按纽而直接移动到下一条记录，这个修改时间就不能被记录？怎么做才能够在修改数据后不论是点击保存按纽或直接移动下一条记录都能准确地将修改完成的时间记录在绑定的文本框内?

adge

在窗体里有以下控件
保存按纽，记录员，记录时间，审核员，审核时间
当录入新数据时，只保存记录员，记录时间。数据修改时，记录员和记录时间不变，只改变审核员，审核时间。
这样的事件要怎样才能记录下准确的资料？

LYP6160

' 在记录员输入框的更新事件中写下如下代码
Private Sub 记录员_AfterUpdate()
Me.[记录时间] =Time()
End Sub
'在审核员输入框的更新事件中写下如下代码
Private Sub 审核员_AfterUpdate()
Me.[审核时间] =Time()
End Sub

adge

我参照阿罗的方法不用手工输入，直接由程序取得当前登录用户，做为录入员和审核员的。而且录入员和审核员的文本框锁定，由于刚开始没有说清楚，谢谢LYP6160提供的方法，有没有其它方法？？？？？

LYP6160

这只是变通的问题，你只要在可能要输入数据的文体框写入上面的代码就可以了，加多一句
Me.[录入员（或审核员）]＝登陆用户

西西弗斯

Private Sub Form_AfterUpdate()
Me.[审核时间] =Time()


End Sub