Access中ComboBox NotInList时新增记录并关联更新相关表的方法

前提确认 #

先核对你的表结构（如果字段名不一样，下面代码里的名称要对应替换）：

• Partner表：主键PartnerID（自动编号），名称字段PartnerName
• 父表单绑定的Projects表：主键ProjectID
• 多对多关系表Projects by Partners：字段ProjectID、PartnerID（联合主键）
• 子表单的ComboBox：列设置为PartnerID（宽度设为0，隐藏）、PartnerName（显示名称），属性里勾选LimitToList = Yes

编写NotInList事件代码 #

1. 打开子表单的设计视图，右键点击目标ComboBox → 选择事件生成器 → 选代码生成器，进入VBA编辑器。
2. 删除默认的空代码，粘贴以下代码（注意替换注释里提示的字段/表名）：

Private Sub cboPartner_NotInList(NewData As String, Response As Integer)
    Dim db As DAO.Database
    Dim rsPartner As DAO.Recordset
    Dim rsRelation As DAO.Recordset
    Dim strMsg As String
    Dim newPartnerID As Long
    Dim currentProjectID As Long
    
    ' 弹出确认框，询问是否新增合作伙伴
    strMsg = "合作伙伴 '" & NewData & "' 不存在，是否新增？"
    If MsgBox(strMsg, vbYesNo + vbQuestion) = vbYes Then
        ' 获取当前父表单的项目ID
        currentProjectID = Me.Parent!ProjectID ' 这里的ProjectID要和父表单的主键字段名一致
        
        Set db = CurrentDb()
        
        ' 1. 新增记录到Partner表
        Set rsPartner = db.OpenRecordset("Partner", dbOpenDynaset)
        rsPartner.AddNew
        rsPartner!PartnerName = NewData ' 替换为你的Partner表名称字段名
        rsPartner.Update
        ' 获取刚新增的PartnerID
        rsPartner.Bookmark = rsPartner.LastModified
        newPartnerID = rsPartner!PartnerID
        rsPartner.Close
        
        ' 2. 新增关联记录到Projects by Partners关系表
        Set rsRelation = db.OpenRecordset("[Projects by Partners]", dbOpenDynaset) ' 表名有空格必须加方括号
        rsRelation.AddNew
        rsRelation!ProjectID = currentProjectID
        rsRelation!PartnerID = newPartnerID
        rsRelation.Update
        rsRelation.Close
        
        ' 刷新ComboBox，显示新增的选项
        Response = acDataErrAdded
        Me.cboPartner.Requery
    Else
        ' 用户选择不新增，取消输入
        Response = acDataErrContinue
        Me.cboPartner.Undo
    End If
    
    ' 释放对象
    Set rsRelation = Nothing
    Set rsPartner = Nothing
    Set db = Nothing
End Sub

关键注意事项 #

• 表名/字段名如果有空格或特殊字符，必须用[]括起来（比如[Projects by Partners]），这是你之前出现语法错误的核心原因。
• 代码里的cboPartner要改成你实际的ComboBox控件名称。
• 父表单的主键字段如果不是ProjectID，要替换Me.Parent!ProjectID里的字段名。
• 确保你的表已经设置了正确的主键和关系，级联更新不影响这个操作。

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