Access 2016复制记录时自动更新日期时间字段的技术问询

嘿，作为一个常年和Access VBA打交道的老玩家，我太懂你复制记录时不想带旧日期时间的烦恼了！结合你用Access 2016开发的场景，给你几个实用的解决方案：

方法1：在复制记录的宏/VBA代码中直接重置字段 #

这是最精准的方式，复制记录时跳过原日期时间字段，直接给新记录赋值当前的日期和时间。

如果用VBA代码实现复制，可以这么写：

Sub DuplicateRecordWithFreshDateTime()
    Dim rs As Recordset
    Set rs = Me.RecordsetClone
    
    ' 定位到当前选中的要复制的记录
    rs.Bookmark = Me.Bookmark
    
    ' 新增一条空白记录
    Me.Recordset.AddNew
    ' 复制除日期时间外的所有字段（替换成你实际的字段名）
    For Each fld In rs.Fields
        If fld.Name <> "NoteDate" And fld.Name <> "NoteTime" Then
            Me(fld.Name).Value = rs(fld.Name).Value
        End If
    Next fld
    
    ' 填充当前日期和时间
    Me("NoteDate").Value = Date ' 仅日期
    Me("NoteTime").Value = Time ' 仅时间
    
    ' 保存新记录
    Me.Recordset.Update
    Set rs = Nothing
End Sub

如果用宏来复制记录，在宏的最后添加两个SetValue操作即可：

• 第一个SetValue：项目为[你的表单名]![NoteDate]，表达式为Date()
• 第二个SetValue：项目为[你的表单名]![NoteTime]，表达式为Time()

方法2：利用表单的AfterInsert事件自动刷新 #

如果你的日期时间字段原本就设置了默认值，但复制时Access会沿用原记录的值，那可以在表单的AfterInsert事件里强制重置：

Private Sub Form_AfterInsert()
    ' 不管是手动新增还是复制的记录，都自动填充当前日期时间
    Me("NoteDate").Value = Date
    Me("NoteTime").Value = Time
End Sub

这个方法的好处是，手动新增记录时也能自动填充日期时间，刚好符合你表单的需求！

方法3：用BeforeUpdate事件精准控制新记录 #

如果你想只在创建新记录（包括复制的）时填充日期时间，不会误改已有记录的字段，可以用BeforeUpdate事件：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    ' 只在新记录创建时赋值
    If Me.NewRecord Then
        Me("NoteDate").Value = Date
        Me("NoteTime").Value = Time
    End If
End Sub

这个逻辑更严谨，能避免后续编辑记录时不小心覆盖掉已有的日期时间。

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