如何在Microsoft Access数据更新表单中捕获记录修改用户？

当然可以！在Access里，你完全能实现记录谁修改了数据表记录的需求，和你已经设置的Last modified Date and Time字段搭配使用，刚好能完整记录每条记录的修改轨迹。下面是两种最实用的实现方法：

方法1：用内置CurrentUser()函数（适配Access本地账户/工作组） #

如果你的数据库用的是Access本地账户（比如默认管理员、自定义工作组账户），直接用CurrentUser()就能获取当前操作用户，简单高效。

操作步骤： #

• 先给数据表新增一个文本字段，推荐命名为Last Modified By，字段大小设为50就足够。
• 打开你的数据更新表单，切换到设计视图，右键表单选择【属性】→ 切换到【事件】标签，找到Before Update事件。
• 选择【事件过程】，点击右侧省略号打开VBA编辑器，输入以下代码：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    ' 更新已有的修改时间字段
    Me![Last modified Date and Time] = Now()
    ' 自动填充修改用户
    Me![Last Modified By] = CurrentUser()
End Sub

• 保存代码后测试：修改一条记录并保存，Last Modified By字段会自动填入当前登录的Access用户名。

方法2：获取Windows系统登录用户（适配域环境/真实系统账户） #

如果需要捕获用户的Windows系统登录名（比如公司域账户），CurrentUser()就满足不了了，这时候可以用VBA调用Windows API来实现。

操作步骤： #

• 同样先给数据表添加Last Modified By文本字段。
• 打开表单的VBA编辑器，在所有代码过程的最顶部（模块声明区）添加API声明：

Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

注意：如果是32位版本的Access，去掉代码里的PtrSafe关键字。

• 然后在表单的Before Update事件过程中写入以下代码：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim userName As String
    Dim bufferSize As Long
    
    ' 初始化存储用户名的缓冲区
    bufferSize = 256
    userName = String(bufferSize, vbNullChar)
    
    ' 调用API获取Windows用户名
    GetUserName userName, bufferSize
    
    ' 去除字符串末尾的空字符
    userName = Left(userName, InStr(userName, vbNullChar) - 1)
    
    ' 更新修改时间和用户字段
    Me![Last modified Date and Time] = Now()
    Me![Last Modified By] = userName
End Sub

• 保存后测试，Last Modified By会显示当前登录Windows的完整用户名，比如域环境下的DOMAIN\ZhangSan。

小提示 #

• 为了避免用户手动修改Last Modified By字段，可以在数据表的权限设置里把该字段设为只读，只允许通过表单的VBA代码自动更新。
• 以上方法仅适用于本地Access数据库，Access Web App（已逐步淘汰）的实现逻辑会有差异。

内容的提问来源于stack exchange，提问作者kazzi