使用 Form_BeforeUpdate 将创建日期添加到 MS Access 中的数据

Question

在customer master中我想保存4条信息，数据是什么时候创建的，谁创建的，什么时候更新的，谁更新的。

在表单中，我有 4 个文本字段。（启用属性设置为 FALSE，因此，用户无法编辑它）

我正在使用表单的 BeforeUpdate 事件来更新数据。

Private Sub Form_BeforeUpdate(Cancel As Integer)
    'Add Created by and Create Date
    If Me.CreatedBy = vbNull Then
        Me.CreateDate = Date
        Me.CreatedBy = CONST_User
    End If

    'Add Edited By and Date
    Me.EditedBy = CONST_User
    Me.EditDate = Date
End Sub

我面临的问题是，上面的代码更新了 Me.EditedBy 和 Me.EditDate 但 Me.CreateDate 和 Me.CreatedBy 留空了。

无法弄清楚为什么 Me.CreateDate 和 Me.CreatedBy 没有被填充。

Answer 1

将此行修改为：

If IsNull(Me.CreatedBy) Then

使用 Form_BeforeUpdate 将创建日期添加到 MS Access 中的数据

Add Created date to Data in MS Access using Form_BeforeUpdate

ms-access

vba

insert-update