如何阻止 MS 访问覆盖以前的记录？

Question

如何停止访问 2016 以停止擦除以前保存的记录中的数据？

非常感谢任何改进/建议！

（这是我有限的知识所能做的最好的事情）

有以下字段：Text7、ID、UPK、CheckTime。 要保存回表的数据只是每个扫描项目的检查时间字段。

表：

-ID 自动编号 | -UPK 编号 | -CheckTime 日期/时间 |-Text7（是唯一未绑定的控件）

我需要能够做到这一点：

1. 扫描 Text7 上的值
2. 更新后在表中搜索该值（已存在），请参阅下面的 Text7_AfterUpdate 事件
3. Text7_AfterUpdate 事件会将数据填充到表单中
4. 自动计算Now()并添加到CheckTime字段（表中该字段为空）
5. 保存记录
6. 清除所有文本框
7. 将焦点重新设置在 Text7 上
8. 移动到最后一个空记录并准备好接收下一次扫描

**编辑谢谢@Jiggles32 **

注意：废弃 VBA 代码对于我的知识水平来说太麻烦了，尝试了 @Minty 的建议并进行了查询

Answer 1

我想我现在更清楚地看到了这一点。看起来您希望保存在新记录上，而不是已经存在的记录上。

这是导致该问题的原因：

rs.FindFirst "[UPK]=" & Text7
If rs.NoMatch Then
    MsgBox "Sorry, no such record '" & Text7 & "' was found.", _
           vbOKOnly + vbInformation
Else
    Me.Recordset.Bookmark = rs.Bookmark
End If
rs.Close

基本上，这部分代码查找包含Text7 中的UPK 值的记录的第一个实例，并将该记录设置为表单上的当前Recordset.Bookmark 信息。因此，如果表中已经存在具有相同UPK 的值，则只会覆盖该值。

我确信您可以通过以下方式实现您想要的结果：

Dim ctrl As Control

...

'Update CheckTime to current time (for current UPK), save, and close
rs.AddNew
rs!UPK = Me.Text7
rs!CheckTime = Now()
rs.Update
rs.Close
Set rs = Nothing

'Clear all text boxes
For Each ctrl In Me.Controls
    If (ctrl.ControlType = acTextBox) Then
        ctrl.Value = Null
    End If
Next ctrl

'Reset focus on Text7
Me.Text7.SetFocus

您仍然需要在... 部分设置记录集等。