如何实现仅点击保存按钮时才将表单数据写入数据表？

这个问题在Access里太常见了——默认的绑定表单机制会在你离开字段或者切换记录时自动保存，确实很容易产生一堆没填完的空记录。给你两种实用的解决思路，你可以根据自己的习惯选：

方法一：改造现有绑定表单（保留数据输入模式） #

如果你想继续用当前的绑定表单，只需要加几行代码拦截自动保存，让保存行为完全由按钮触发：

1. 添加表单级控制变量
   打开表单的VBA编辑器（按Alt+F11），在表单代码窗口的顶部（通用声明区域）添加：

   Dim blnAllowSave As Boolean
   

   这个变量相当于一个“开关”，默认是关闭状态，只有点击保存按钮时才临时打开。

2. 拦截自动保存事件
   在表单的BeforeUpdate事件中添加代码，阻止非手动触发的保存：

   Private Sub Form_BeforeUpdate(Cancel As Integer)
       If Not blnAllowSave Then
           Cancel = True ' 取消自动保存操作
           MsgBox "请点击【保存】按钮提交数据！", vbInformation
           Me.Undo ' 可选：撤销当前输入的临时内容，避免残留
       End If
   End Sub
   

   这样只要你没点保存按钮，哪怕切换字段或者记录，Access都不会自动存数据。

3. 编写保存按钮的触发代码
   在表单上添加一个按钮（比如命名为cmdSave，标题设为“保存”），然后在它的Click事件里写：

   Private Sub cmdSave_Click()
       ' 先做必填字段验证（非常重要，避免存空记录）
       If IsNull(Me.你的必填字段名称) Then
           MsgBox "请填写必填字段！", vbExclamation
           Me.你的必填字段名称.SetFocus
           Exit Sub
       End If
   
       ' 打开保存开关，执行保存
       blnAllowSave = True
       DoCmd.RunCommand acCmdSaveRecord
       blnAllowSave = False
   
       ' 保存成功后自动重置表单，准备下一条记录
       MsgBox "数据保存成功！", vbInformation
       DoCmd.RunCommand acCmdRecordsGoToNew
   End Sub
   

   把代码里的你的必填字段名称替换成你实际的字段控件名就行，比如Me.txtUserName。

4. 处理表单关闭的场景（可选）
   为了避免用户没保存就关表单导致数据丢失，可以在Form_Unload事件里加个提示：

   Private Sub Form_Unload(Cancel As Integer)
       If Me.Dirty Then ' 检查是否有未保存的修改
           Dim response As Integer
           response = MsgBox("有未保存的数据，是否保存？", vbYesNoCancel)
           Select Case response
               Case vbYes
                   blnAllowSave = True
                   DoCmd.RunCommand acCmdSaveRecord
               Case vbCancel
                   Cancel = True ' 取消关闭表单
               Case vbNo
                   Me.Undo ' 放弃未保存的修改
           End Select
       End If
   End Sub
   

方法二：使用未绑定表单（完全手动控制） #

如果觉得绑定表单的自动机制太啰嗦，也可以直接用未绑定表单，完全通过代码控制数据写入：

1. 设置表单为未绑定
   打开表单的属性窗口，清空记录源字段，确保表单不绑定到任何数据表；同时保持数据输入属性为是，这样打开时会显示空白控件。

2. 编写保存按钮的插入代码
   添加保存按钮后，在它的Click事件里用SQL语句把数据插入到数据表：

   Private Sub cmdSave_Click()
       ' 先做必填字段验证
       If IsNull(Me.txtName) Or IsNull(Me.txtPhone) Then ' 替换成你的控件名
           MsgBox "请填写所有必填字段！", vbExclamation
           Exit Sub
       End If
   
       ' 构造SQL插入语句（注意处理字符串里的单引号，避免报错）
       Dim strSQL As String
       strSQL = "INSERT INTO 你的数据表名称 (字段1, 字段2, 字段3) " & _
                "VALUES ('" & Replace(Me.txtName, "'", "''") & "', " & _
                Me.txtAge & ", '" & Replace(Me.txtEmail, "'", "''") & "')"
       
       ' 执行插入操作
       CurrentDb.Execute strSQL, dbFailOnError
   
       ' 清空控件，准备下一条记录
       MsgBox "数据保存成功！", vbInformation
       Me.txtName = ""
       Me.txtAge = ""
       Me.txtEmail = ""
       Me.txtName.SetFocus
   End Sub
   

   这种方法完全没有自动保存的问题，只有点击按钮时数据才会写入数据表，适合对数据控制要求高的场景。

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