MS Access中点击关闭窗体时仍触发Not In List事件的解决办法？

这个问题我之前也碰到过，确实挺闹心的——用户明明已经放弃输入要关窗体了，结果还被Not In List的提示框拦下来。其实核心原因是：当未绑定组合框里的内容不在列表中时，只要控件失去焦点（比如点击关闭按钮），Access就会自动触发Not In List事件做验证。下面给你几个实用的解决办法：

方法1：用标记变量跳过关闭时的事件触发（最推荐） #

这是灵活性最高的方案，既能保留原本的输入验证逻辑，又能在用户关闭窗体时跳过提示：

1. 先在窗体的模块里声明一个模块级变量，用来标记窗体是否正在关闭：

   Private blnIsClosing As Boolean
   

2. 然后修改「close form」按钮的Click事件，先把标记设为True再关闭窗体：

   Private Sub close_form_Click()
       blnIsClosing = True
       DoCmd.Close acForm, Me.Name
   End Sub
   

3. 最后调整组合框的NotInList事件，先判断标记状态，如果是关闭状态就直接退出事件：

   Private Sub search_NotInList(NewData As String, Response As Integer)
       ' 如果用户正在关闭窗体，直接跳过处理
       If blnIsClosing Then
           Response = acDataErrContinue
           Exit Sub
       End If
       
       ' 这里保留你原本的Not In List处理逻辑，比如提示用户添加新记录
       MsgBox "该值不在列表中，请选择现有选项或添加新记录。", vbExclamation
       Response = acDataErrDisplay
   End Sub
   

方法2：关闭前清空组合框内容（简单快捷） #

如果不需要保留用户输入的内容，这个方法更简洁——直接在关闭窗体前清空组合框，这样就不会触发验证了：

Private Sub close_form_Click()
   ' 清空组合框，避免触发Not In List事件
   Me.search.Value = Null
   DoCmd.Close acForm, Me.Name
End Sub

方法3：修改LimitToList属性（仅作备选） #

如果你完全不需要限制用户输入列表外的值，可以把组合框的LimitToList属性设为False，这样Not In List事件就不会触发了。但这显然不符合你原本的需求（需要在用户主动输入时触发验证），所以只作为应急备选。

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