为何我的MS Access控件的"On Not In List"事件代码无法生效？

嘿，我太懂你说的这个问题了！Access 2016里On Not In List事件间歇性失效、弹出默认提示框的情况，我之前帮好几个朋友排查过，结合实际经验给你几个实用的解决思路：

• 先锁死自定义逻辑的优先级
  有时候Access 2016会抢在你的自定义代码前弹出默认提示，解决办法是在On Not In List事件代码的最开头加上：

  Cancel = True ' 立即取消系统默认的错误提示流程
  

  确保你的代码先执行，避免系统提示“抢戏”。另外别在这个事件里塞太耗时的操作（比如一次性查询上千条数据），不然事件处理不及时，系统还是会 fallback 到默认提示。

• 刷新记录源避免缓存误判
  如果你的组合框用的是动态记录源（比如依赖其他控件的参数查询），有时候缓存的旧列表会让系统误判输入内容“不在列表里”。可以在事件开头手动刷新记录源：

  Me.YourComboBoxName.Requery
  

  先重新加载最新的列表，再判断输入内容是否真的不存在，从根源避免缓存导致的间歇性失效。

• 检查信任中心的安全拦截
  Access 2016的信任机制偶尔会“抽风”拦截VBA事件，尤其是数据库不在信任位置的时候。你可以：

  • 把数据库所在文件夹添加到信任位置（路径：文件>选项>信任中心>信任中心设置>信任位置）
  • 调整宏设置为“启用所有宏”（如果你的代码有数字签名，也可以选启用带签名的宏）
    很多时候这种“间歇性”问题都是安全机制在后台偷偷搞鬼。

• 修复数据库隐性损坏
  Access数据库用久了容易出现隐性损坏，会导致控件事件绑定不稳定。试试这两个操作：

  • 执行压缩和修复数据库（文件>信息>压缩和修复数据库）
  • 把出问题的表单导出为文本格式，再重新导入到新的空白数据库里，重建控件和事件关联
    有时候控件的事件绑定会因为数据库损坏变得时灵时不灵，重建能解决这类隐性问题。

• 用错误拦截做兜底方案
  如果以上方法还是偶尔失效，可以给组合框加个On Error事件拦截系统提示：

  Private Sub YourComboBoxName_Error(DataErr As Integer, Response As Integer)
      ' 2113是"输入值不在列表中"的错误代码
      If DataErr = 2113 Then
          Response = acDataErrContinue ' 跳过系统默认提示
          ' 直接调用你自定义的添加新项目逻辑
          Call YourCustomAddItemSub(Me.YourComboBoxName.Text)
      End If
  End Sub
  

  这个方法相当于直接绕开系统的默认处理流程，强制执行你的自定义逻辑，彻底解决间歇性弹出提示的问题。

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