有的时候，可能希望能记录审批人和审批时间，你可以将“审批”列改为字符型，用于记录审批人，另外增加一个日期时间列，名为“审批日期”，用于记录审批日期。
然后在窗口或菜单中加一个审批按钮，将按钮的代码设置为：

If User.Group = "经理" Then
    Tables("表A").Current("审批") = UserName
    Tables("表A").Current("审批日期") = Date.Today()
Else
    MessageBox.show("你无审批权限!")
End If

当然还得来个取消审批的按钮，代码为：

If User.Group = "经理" Then
    Tables("表A").Current("审批") = Nothing
    Tables("表A").Current("审批日期") = Nothing
Else
    MessageBox.show("你无取消审批权限!")
End If

最后将表事件PrepareEdit的代码设置为：

If e.Row.IsNull("审批") = False Then \'如果审批列不为空
    e.Cancel = True \'则禁止编辑
End If

这样经过审批的行，将不能编辑。

审批那显示的是登陆电脑所用的名字，我想问下可不可以在审批那列显示登陆帐号的名字，就是现实审批人的用户名，可以吗？？？代码怎么写呢？？？

这样：

Tables("表A").Current("审批") = User.Name