MS Access录入新客户名时自动追加到关联表的实现方法

最优实现方式为基于录入窗体的组合框「不在列表中（Not In List）」事件实现，这是Access原生设计支持的标准处理逻辑，相比直接操作表、用查询触发或数据宏的灵活性、可控性更高，适配绝大多数业务场景。

具体实现步骤 #

• 第一步：创建tblContracts的录入窗体，将ClientName字段的控件类型设置为组合框
  • 组合框行来源设置为：SELECT ClientName FROM tblClientName ORDER BY ClientName;
  • 组合框的「限于列表」属性设置为是，「允许值列表编辑」设置为否
• 第二步：编写组合框的Not In List事件代码
  按Alt+F11打开VBA编辑器，在组合框的Not In List事件中粘贴以下代码：

  Private Sub ClientName_NotInList(NewData As String, Response As Integer)
      Dim rs As DAO.Recordset
      ' 确认是否要新增该客户
      If MsgBox("客户 " & NewData & " 不存在于客户列表中，是否新增？", vbYesNo) = vbYes Then
          Set rs = CurrentDb.OpenRecordset("tblClientName", dbOpenDynaset)
          rs.AddNew
          rs!ClientName = NewData
          rs.Update
          rs.Close
          Set rs = Nothing
          ' 通知Access已经处理新值，无需报错
          Response = acDataErrAdded
      Else
          ' 用户选择不新增，清空输入恢复原值
          Response = acDataErrContinue
          Me!ClientName.Undo
      End If
  End Sub
  

• 第三步：测试验证
  在窗体的客户名称组合框中输入全新的客户名称，确认提示后即可自动同步到tblClientName表，同时当前合同记录的客户字段正常保存。

特殊场景备选方案 #

如果你的使用场景必须直接在tblContracts的数据表视图中录入数据，可使用表级数据宏实现：

• 打开tblContracts的设计视图，点击「设计」选项卡下的「数据宏」，选择「插入前」事件
• 添加操作：首先用LookupRecord判断输入的ClientName是否存在于tblClientName中，如果不存在则执行CreateRecord操作向tblClientName插入新的ClientName值

注意：数据宏没有交互确认环节，只要输入不存在的客户名就会自动插入，无法中途取消，适合不需要人工确认的场景。

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