MS Access中如何通过VBA代码点击添加记录时将子窗体数据存入RetailQuality表？

当然有办法实现啦！我来给你拆解两种常见场景的解决方案，还有通用的代码模板供你复用～

一、如果子窗体已经绑定到RetailQuality表 #

如果你的子窗体MultipleDataEnter已经直接绑定到RetailQuality（也就是子窗体的RecordSource设置成了这个表），其实Access本身就会自动保存数据——比如你切换记录、关闭窗体的时候，数据都会自动写入表中。不过要是你想点击“添加记录”按钮时手动强制保存当前录入的内容，可以用这段简单的代码：

手动保存绑定子窗体的代码 #

在主窗体frmIFMultipleEntry的“添加记录”按钮点击事件里写：

Private Sub cmdAddRecord_Click()
    ' 触发子窗体保存当前记录
    Me.MultipleDataEnter.Form.Dirty = False
    
    ' 可选：自动新增一条空白记录，方便继续录入
    Me.MultipleDataEnter.Form.Recordset.AddNew
End Sub

简单解释下：当子窗体里的内容有修改时，Dirty属性会变成True，把它设为False就会触发Access自动保存这条记录，非常省心。

二、如果子窗体是非绑定的（手动录入控件） #

要是你的子窗体没绑定到表，只是用单独的文本框、下拉框让用户录入数据，那就需要写VBA代码把这些值手动插入到RetailQuality表中。下面是两种可靠的实现方式：

方案1：用SQL INSERT语句插入 #

Private Sub cmdAddRecord_Click()
    Dim db As DAO.Database
    Dim strSQL As String
    
    ' 先做必填字段验证（示例：假设ProductID和QualityScore是必填项）
    If IsNull(Me.MultipleDataEnter.Form.txtProductID) Or IsNull(Me.MultipleDataEnter.Form.txtQualityScore) Then
        MsgBox "请填完所有必填字段再保存哦！", vbExclamation, "提示"
        Exit Sub
    End If
    
    ' 拼接SQL插入语句，注意字段和控件要对应
    strSQL = "INSERT INTO RetailQuality (ProductID, QualityScore, CheckDate, InspectorName) " & _
             "VALUES (" & Me.MultipleDataEnter.Form.txtProductID & ", " & _
             Me.MultipleDataEnter.Form.txtQualityScore & ", #" & Date() & "#, '" & _
             Me.MultipleDataEnter.Form.txtInspectorName & "')"
    
    Set db = CurrentDb
    ' 执行SQL，出错时会抛出提示方便调试
    db.Execute strSQL, dbFailOnError
    
    ' 清空子窗体控件，准备下一次录入
    Me.MultipleDataEnter.Form.txtProductID = ""
    Me.MultipleDataEnter.Form.txtQualityScore = ""
    Me.MultipleDataEnter.Form.txtInspectorName = ""
    
    ' 刷新子窗体，让刚插入的记录显示出来
    Me.MultipleDataEnter.Requery
    
    MsgBox "记录保存成功！", vbInformation, "搞定啦"
End Sub

方案2：用DAO记录集插入（更安全推荐） #

这种方式不用拼接SQL字符串，能避免SQL注入风险，处理文本、日期这类特殊字段也不容易出错：

Private Sub cmdAddRecord_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    ' 同样先验证必填字段
    If IsNull(Me.MultipleDataEnter.Form.txtProductID) Or IsNull(Me.MultipleDataEnter.Form.txtQualityScore) Then
        MsgBox "请填完所有必填字段再保存哦！", vbExclamation, "提示"
        Exit Sub
    End If
    
    Set db = CurrentDb
    ' 打开目标表的记录集
    Set rs = db.OpenRecordset("RetailQuality", dbOpenDynaset)
    
    ' 添加新记录并赋值
    rs.AddNew
    rs!ProductID = Me.MultipleDataEnter.Form.txtProductID
    rs!QualityScore = Me.MultipleDataEnter.Form.txtQualityScore
    rs!CheckDate = Date() ' 自动填入当前日期
    rs!InspectorName = Me.MultipleDataEnter.Form.txtInspectorName
    rs.Update ' 保存记录
    
    ' 清理对象、清空控件、刷新子窗体
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    Me.MultipleDataEnter.Form.txtProductID = ""
    Me.MultipleDataEnter.Form.txtQualityScore = ""
    Me.MultipleDataEnter.Form.txtInspectorName = ""
    
    Me.MultipleDataEnter.Requery
    
    MsgBox "记录保存成功！", vbInformation, "搞定啦"
End Sub

三、通用VBA代码模板（适用于任意子窗体→数据表场景） #

如果你以后还要处理类似需求，这个通用模板可以直接复用，只需要替换几个关键参数就行：

Private Sub SaveSubformData()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim subform As Form
    Dim isSaved As Boolean
    
    ' 替换这里的子窗体控件名（是主窗体中子窗体控件的名字，不是子窗体本身的名称）
    Set subform = Me.YourSubformControlName.Form
    Set db = CurrentDb
    
    ' 检查有没有需要保存的数据
    If subform.Dirty = False Then
        MsgBox "没有新数据需要保存哦！", vbInformation, "提示"
        Exit Sub
    End If
    
    On Error GoTo SaveError
    
    ' 情况1：子窗体是绑定的，直接保存
    If subform.RecordSource <> "" Then
        subform.Dirty = False
        isSaved = True
    Else
        ' 情况2：子窗体是非绑定的，用记录集插入
        Set rs = db.OpenRecordset("YourTargetTableName", dbOpenDynaset)
        rs.AddNew
        ' 替换下面的字段名和控件名，一一对应
        rs!TableField1 = subform.SubformControl1.Value
        rs!TableField2 = subform.SubformControl2.Value
        rs!TableDateField = subform.SubformDateControl.Value
        rs.Update
        rs.Close
        isSaved = True
        
        ' 清空子窗体控件
        subform.SubformControl1 = ""
        subform.SubformControl2 = ""
        subform.SubformDateControl = ""
    End If
    
    If isSaved Then
        MsgBox "数据保存成功！", vbInformation, "完成"
        ' 刷新子窗体显示最新数据
        Me.YourSubformControlName.Requery
    End If
    
Cleanup:
    Set rs = Nothing
    Set db = Nothing
    Set subform = Nothing
    Exit Sub
    
SaveError:
    MsgBox "保存失败：" & Err.Description, vbCritical, "出错啦"
    Resume Cleanup
End Sub

使用时只需要修改这几个地方：

• YourSubformControlName：主窗体中子窗体控件的名称
• YourTargetTableName：要保存数据的目标数据表名
• TableField1/SubformControl1：数据表字段和子窗体中对应的控件，按需添加或删除

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