Access VBA问题：关闭窗体导致数据表出现重复条目

我来帮你拆解下这个重复条目的问题，核心原因其实很直白：你的绑定子窗体本身就会自动把用户输入的内容同步到对应的数据表，而你又在保存按钮里用VBA额外执行了一次插入操作——等于同一个数据被添加了两次，自然就出现重复记录了。

下面给你两种针对性的解决思路，按需选择就行：

方案1：利用绑定窗体自带的保存功能（推荐） #

绑定控件的设计初衷就是简化数据同步，完全不需要额外写插入代码。你可以这么改：

• 删掉保存按钮里原来的VBA插入逻辑
• 替换成强制保存当前记录的代码，示例：

Private Sub cmdSave_Click()
    ' 保存当前绑定的记录
    DoCmd.RunCommand acCmdSaveRecord
    ' 关闭窗体
    DoCmd.Close acForm, Me.Name
End Sub

这样既完成了数据保存，又完全符合绑定窗体的设计逻辑，不会出现重复。

方案2：改成非绑定窗体，用VBA完全控制插入 #

如果你需要自定义复杂的校验或逻辑，不想用绑定模式，可以改成非绑定窗体：

1. 把所有文本框的Control Source清空，取消和数据表字段的绑定
2. 保留保存按钮的VBA，但要正确获取文本框的输入值，示例（含参数查询的规范写法，避免SQL注入）：

Private Sub cmdSave_Click()
    ' 先做必填项校验（可选）
    If IsNull(Me.txtField1) Or IsNull(Me.txtField2) Then
        MsgBox "必填字段不能为空哦！", vbExclamation
        Exit Sub
    End If
    
    ' 用参数查询执行插入，更安全规范
    Dim qd As QueryDef
    Set qd = CurrentDb.CreateQueryDef("", _
        "INSERT INTO 你的数据表名 (字段1, 字段2, 字段3, 字段4) VALUES (@val1, @val2, @val3, @val4)")
    
    ' 给参数赋值
    qd.Parameters("@val1") = Me.txtField1
    qd.Parameters("@val2") = Me.txtField2
    qd.Parameters("@val3") = Me.txtField3
    qd.Parameters("@val4") = Me.txtField4
    
    ' 执行插入
    qd.Execute
    Set qd = Nothing
    
    ' 关闭窗体
    DoCmd.Close acForm, Me.Name
End Sub

提示：如果字段是数字/日期类型，直接赋值就行，不用加单引号；参数查询是处理SQL插入的最佳实践，能避免输入特殊字符导致的错误。

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